公路坐標正反算程序

1、坐標止反算程序程序變量說明：D:選線。E、F:置儀點坐X、Y。K:待算點樁號。B:待算點距離。Q:待算點與線路交角(以順時針方向)L:線元起點至待算點長度。0:待算點方位角。S:線元長度。U:線元起點半徑。V:線元終點半徑。X、Y:正算結果。Z、計算序列。C I、J、T:內(nèi)部運算。A、G H MN、P、R、W未用變量。坐標正反算主程序(GLZB-ZFS)Deg:Norm 2!Stop! ” ：Stop:ElseZt Z1:IfE ndZ1 t Z: ”兩個空格 ZS=1 Or FS=2 ” ZNO1Or 2 ”:Locate 6,3 “If Zm 1 And Z 2:Then Cls:Loca

2、te5,2, ”Z10 tD: “四個空格 XLt 1t 2t3九個空格 XL N=N” DIf Dm 1 And Dm 2 And Dm 3:ThenCls:Locate 5,2, ”XLt 1 t 2 t 3”Locate 5,3 “!Stop!” :Stop: ElseD Z9: IfEndIf D=Z10:Then Cls:Do:Locate 3,1,EXE GO!GO! " :Locate 8,2,9-Intg(Z/7)Locate 4,3,” 10StDAT.” : Locate 12,3,D:lsz Z:Z=70=>Goto 1:Lpwhile Getkeym 4

3、7:Goto 2:IfE ndLbl 1D=1=>Prog”：D=2=>Prog ”:D=3=>Prog ” :D=X=>Prog ”D Z7:For 1t z To Z7-1Cls: Locate 9,2,Z7-ZZ10Z+11-Z10Z+1 t lProg ” TQSJ” ：NextLbl 2Z9 t Z10Cls:Z1=2=>Prog ” FS”Z2 t E: “ (X)= ” E:EtZ2:Z3t F: ”(Y)= ” F:Ft Z3:Prog ” ZS'正算子程序1 (ZS)反算子程序2(FS)Lbl 0:Norm 2Lbl 0:Norm 2“k

4、0+000=” K: ” +Xm= B: ” a =”QZ4 t e： “ Xp”E:Z5 tF: ” Yp” F:” k0+000m=' K0t Z:Prog“ TQSJ'K=0=>Z1 t K:EtZ4: Ft Z5Rec(B,O+Q)Do:0 tZ:Prog ”TQSJ”X+I t X:Y+J t yPol(Z4-X, Z5-Y)Pol(X-Z2,Y-Z3)Rec(I,O-J)Cls:Fix 3K+I t K:Lpwhile Abs(I)> 0. 01“X=" :Locate 5,1,XCls :Fix 3“Y=" :Locate 5,2,

5、Y“ ZH=' : Locate 5,1,K=-=:Locate 5,3,I“ JL=” ： Locate 5,2,J“=>< =” :Locate 5,4,J oGoto 0Goto 0數(shù)據(jù)庫子程序5DimZ:13 宀 D:10D+10 DimZ99塔1 '”t Z13: tZ14 : tZ158800t Z11: xio45t Z12t Z21: x io45t Z22tZ31:600 tZ32tZ41:600 tZ42t Z51: x io45t Z52t Z61:-600 t Z62t Z71:-600 t Z72t Z81: x io45t Z82t Z9

6、1: x io45t Z92t Z101:-625 t Z102t Z111:-625 t Z112數(shù)據(jù)庫子程序69t DimZ: 13 t D:10D+10t DimZ紅色加粗的數(shù)量根據(jù)參數(shù)多 少需更改。數(shù)量為Z131中的13數(shù)據(jù)庫子程序79t DimZ: 13t D:10D+10t DimZ數(shù)據(jù)調(diào)用子程序3(TQSJ)坐標運算子程序4(JS)If Z10豐 0:Then Do:lsz Z:LpwhileK >If U 工 V:Then Abs(S/( U-V) t CZ10Z+1:Dsz Z:K-Z10Z+1t L:IfE ndCUT D-1Z10Z+2 t U(U-V)/Abs(U

7、-V) t EZ10Z+3 t OEL-D t FZ10Z+4 t X552994F+D-(F +D)/(40C )+(F +D)/(3456C ) t IZ10Z+5 t Y(F3+C?)/(6C)-(F7+d7)/(336C 3)+(F 11+d1)/(42240C 5)-1Z10Z+12 t VT JZ10Z+11-Z10Z+1 t sO-90eD7( n C) T CProg“ JS”X+Elcos(C)-Jsi n(C)t XO+90f(U-V)/( n S)-180UL/ nT OY+EIsi n( C)+Jcos(C) t YIf Z10 豐 0:Then Return:lfEn

8、dReturn:IfE ndCO 360=>O-360t OIfUV=0:The n X+Lcos(O) t x：Y+Ls in(O)tCX 0=>O+36(T OY:Return:IfE ndOT Z10Z+13O-180LU/ nT CXt Z10Z+14X+(si n( O)-si n(C)/Ut XYt Z10Z+15Y-(cos(O)-cos(C)/U t YtZ121: x io45t Z122tZ131: x io45t Z132程序運行內(nèi)容說明：開機運行程序后，1、進入GLZB-ZFSfc程序，選擇正算或反算，1為正算，2為反算。2、選擇線路，1為第線。2為第線。3

9、為第線等等。3、如果上一次計算過的話提示是不更新數(shù)線路參數(shù)，十秒鐘不操作更新，按 EXE不更新。如果上一次不是計算現(xiàn)在要計算的線路的話直接更新數(shù)據(jù)庫（數(shù)據(jù)庫更新會倒計時提示）。3、正算。提示入入置儀點坐標。提示輸入待算點樁號。提示輸入離中樁距離。提示輸入與線路方向夾角。結果：坐標X、Y。距置儀點距離和方位角。再次提示輸入待算點樁號。反算。提示輸入實測點坐標 X、Y。結果：待算點樁號程距中樁距離。再次提示輸入實測點坐標X、Y。程序特點：1、輸入?yún)?shù)少，只要輸入 線路起點的樁號、半徑、方位角、 XY坐標以及各線元的樁號和半徑 （左+右-直線x 1045）即可。2 、調(diào)用變量少，本程還有 A、G H、M N P、R