5800公路坐标正反算程序(线元法数据输入.doc

5800公路坐标正反算程序(线元法数据输入.doc
坐标正反算程序 程序变量说明： D：选线。
E、F:置仪点坐X、Y。
K：待算点桩号。
B：待算点距离。
Q：待算点与线路交角（以顺时针方 向）。
L：线元起点至待算点长度。
O：待算点方位角。
S：线元长度。
U：线元起点半径。
V：线元终点半径。
X、Y：正算结果。
Z、计算序列。
C、I、J、T：内部运算。
A、G、H、M、N、P、R、W未用变量。
坐标正反算主程序(GLZB-ZFS) Deg:Norm2 Z[1]→Z:”两个空格ZS=1OrFS=2”?Z IfZ≠1AndZ≠2:ThenCls:Locate5,2,”NO1Or2”:Locate6,3“!STOP!”:Stop:Else Z→Z[1]:IfEnd Z[10]→D:“三个空格XL1=1XL2=2八个空格XLX=X”?D IfD≠1AndD≠2:ThenCls:Locate3,2,”XL1=1OrXL1=2”:Locate5,3“!STOP!”:Stop:Else D→Z[9]:IfEnd IfD=Z[10]:ThenCls:Do:Locate3,1,”[EXE]GO!GO!”:Locate8,2,9-Intg(Z÷7) Locate4,3,”10S→DAT.”:Locate12,3,D:IszZ:Z=70=>Goto1:LpwhileGetkey≠47:Goto 2:IfEnd Lbl1 D=1=>Prog” 1.DAT” D=2=>Prog” 2.DAT” D=3=>Prog” 3.DAT” D=X=>Prog” X.DAT” D→Z[7]:For1→ZToZ[7]-1 Cls:LocateZ+1,2,Z[7]-Z Z[10Z+11]-Z[10Z+1]→L Prog” TQSJ”:Next: Lbl2 Z[9]→Z[10] Cls:Z[1]=2=>Prog”FS” Z[2]→E:“(X)=”?E:E→Z[2]:Z[3]→F:”(Y)=”?F:F→Z[3]:Prog”ZS” 99jianzhupprar 正算子程序1（ZS） 反算子程序2（FS） Lbl0:Norm2Lbl0:Norm2 “k0+000=”?K:”+Xm=”?B:”α=”?QZ[4]→E:“Xp”?E:Z[5]→F:”Yp”?F:”k0+000 0→Z:Prog“TQSJ” m=”?K X+Bcos(O+Q)→X8