卡西歐匝道放樣程序.doc

坐標放樣程序
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:起點半徑倒數(shù)     1÷RB:終點半徑倒數(shù)(左偏-,右偏+)
DKA:起點樁號   DKB:終點樁號    H:待求點樁號    L:待求點距中樁距離
XL,YL: 待求點坐標    J:角度   I:距離
2009-9/卡西歐匝道放樣程序.rar

前往下載