公路坐标正反算程序

1、坐标止反算程序程序变量说明：D:选线。E、F:置仪点坐X、Y。K:待算点桩号。B:待算点距离。Q:待算点与线路交角(以顺时针方向)L:线元起点至待算点长度。0:待算点方位角。S:线元长度。U:线元起点半径。V:线元终点半径。X、Y:正算结果。Z、计算序列。C I、J、T:内部运算。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数据库子程序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数据库子程序69t DimZ: 13 t D:10D+10t DimZ红色加粗的数量根据参数多 少需更改。数量为Z131中的13数据库子程序79t DimZ: 13t D:10D+10t DimZ数据调用子程序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程序运行内容说明：开机运行程序后，1、进入GLZB-ZFSfc程序，选择正算或反算，1为正算，2为反算。2、选择线路，1为第线。2为第线。3

9、为第线等等。3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按 EXE不更新。如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示）。3、正算。提示入入置仪点坐标。提示输入待算点桩号。提示输入离中桩距离。提示输入与线路方向夹角。结果：坐标X、Y。距置仪点距离和方位角。再次提示输入待算点桩号。反算。提示输入实测点坐标 X、Y。结果：待算点桩号程距中桩距离。再次提示输入实测点坐标X、Y。程序特点：1、输入参数少，只要输入 线路起点的桩号、半径、方位角、 XY坐标以及各线元的桩号和半径 （左+右-直线x 1045）即可。2 、调用变量少，本程还有 A、G H、M N P、R