文档介绍：程序输入译释
直线坐标计算及方位角放样
Lbl 0 匚
Deg:Fix 3
“ NE(0),X(CZ) ”？ Z:Z 心 “Y(CZ)= ” ?W
“ QDLC=” ？L: “ X(QD)=? A: “ Y(QD)= ”B:
“ X(ZD),0 -FWJ ” ?C: IfC=0: Then FWJ= ”？F:Else “ Y(ZD)= ” ?H:
Pol(C-A,H-B):Cls: If J<0: Then J+360 刁F:Else
J?F:lfEnd: IfEnd I
LbI讥
“ LC产0 To End ”?D:D<0 * Goto 0:
W(L,R)= ” ? S: SH0^ “L毛0°,R=+90°”？
Abs( D-L)2K:Rec (K，F):A+I?X:B+J?Y:Rec( S,F+E)
If Z=0: Then “X=X+I 刁X丄
“ Y=Y+J 刁Y丄 Goto 1: Else Pol ((X+I-Z ) ,(Y+J-W) ) :Cls: If
J<0 : Then 360+J ・J: Else J: IfEnd 毛
“ hr= JU “ hd= / Goto 1: IfEnd °
程序输入译释
圆（缓和）曲线坐标计算及方位角放样
起算数据(任意桩)
起点坐标及方位角
起点及终点坐标
Lbl 0©
Deg:Fix 3
3 汕imZ
“NE(0),X(CZ) ”？N:Nh0¥ “YCZ)?W:?R: “LS=?V: “L=,R=+1”？ G: “QDLC二”？A: “X(QD)=?P: “Y(QD)二？Q: “X(ZD)=?H:If H=0: Then “FWJ=?F:Goto1: Else “Y(ZD)=?M:Pol((H-P),(M-Q)): If J<0: Then 360+J ・J:ElseJ:lfEnd :Sin-1(l 2■申)？Z[1]:J-GZ[1]刁F: YHC= :2Z[1]R X ( n2 18CIJEnd °
LbI 1 ©
“ LC=?B:B<0 - Goto 0: W(L,R)= ”S:S 心 “ LM' ,R=+90 ”E「 90((V2 (R n )^T:VA2 224R)-V八4 22688R八3) ?D:VP-V八3 2240 RA2 ) ?L:Abs(B-A)刁K:180K2 (R n )+PO:RsinO+L ?Z:R(1 -cosO )+D ・U:Rec(Z,F):P+I 刁X: Q+J 9Y:Rec(U,F+90G)』
X+l -X: Y+J -Y: X+Scos(F+OG+E) -Z[2]:
Y+Ssin(F+OG+E) ・Z[3] °
If N=0: