CASIO4850P主线及匝道程序.docVIP

CSAIO4850P线路计算程序设计（已经过验证，计算无误） 杨春林修订于 2008、11、18 特别说明：各程序中@即为英文大写字母O（使用@代替O以区分阿拉伯数字0） 线路坐标计算及放样主程序XLFY (220步)（可算斜交） V=24:Fixm:Rad( {EF}:X”X0”:Y”Y0” (请输入测站坐标) Z[20]=E:Z[21]=F Lbl 1( {ZQG}:Z”K”:Q”L”:G”AJ” (K为放样桩号,L为放样点至中桩的距离,左”-“、右”+“ ，AJ为线路前进方向于放样点顺时针方向的夹角) Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J ( ”X=”: X◢（放样点坐标） ”Y=”Y◢（放样点坐标）(Z[21]=0(Goto 1◣◣ Pol(X-Z[20],Y-Z[21]) J2π(J=J-2π◣( J0(J=J+2π◣( J=180J÷π ”FW=”:J→DMS◢ （放样点相对于测站的方位角,若未输入测站坐标,将不显示此步）”S=”:I◢ （放样点相对于测站的距离,若未输入测站坐标,将不显示