5800公路坐標正反算程序(線元法數(shù)據(jù)輸入.doc

5800公路坐標正反算程序(線元法數(shù)據(jù)輸入.doc
坐標正反算程序 程序變量說明： D：選線。
E、F:置儀點坐X、Y。
K：待算點樁號。
B：待算點距離。
Q：待算點與線路交角（以順時針方 向）。
L：線元起點至待算點長度。
O：待算點方位角。
S：線元長度。
U：線元起點半徑。
V：線元終點半徑。
X、Y：正算結(jié)果。
Z、計算序列。
C、I、J、T：內(nèi)部運算。
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