坐标放样程序
Lbl 0¿
W:Z:O:A〝XA〞:B〝YA〞:C〝CA〞:D〝1÷RA〞:E〝1÷RB〞:F〝DKA〞:G〝DKB〞¿
{HL}¿
P=(E-D) ÷Abs(G-F):Q=Abs(H-F):U=P×Q:T=D+U¿
V=C+(U+2D)×Q×90÷π:M=C+(U÷4+2D) ×Q×45÷(2π):N=C+(3U÷4+2D) ×Q×135÷(2π) ¿
K=C+(U÷2+2D) ×Q×45÷π¿
X=A+Q÷12×(cosC+4(cosM+cosN)+2cosK+cosV):Y=B+Q÷12×(sinC+4(sinM+sinN)+2sinK+sinV) ¿
L¹0Þ Goto2 ◣¿
X◢
Y◢
Goto 1¿
Lbl 2¿
L<0ÞX〝XL〞=X-L×cos(V-(180-O)) ◢
Y〝YL〞=Y-L×sin(V-(180-O)) ◢
¹Þ X〝XR〞=X+L×cos(V+O) ◢
Y〝YR〞=Y+L×sin(V+O) ◢
◣¿
Goto1¿
Lbl 1¿
Pol(X-W,Y-Z):J<0ÞJ=J+360◣J→DMS ◢
I◢
Goto 0¿
w,z:测站点坐标  o: 与路线夹角    XA,YA:起点坐标    CA:起点方位角
1÷RA:起点半径倒数     1÷RB:终点半径倒数(左偏-,右偏+)
DKA:起点桩号   DKB:终点桩号    H:待求点桩号    L:待求点距中桩距离
XL,YL: 待求点坐标    J:角度   I:距离
2009-9/卡西欧匝道放样程序.rar