1、坐标正反算程序程序变量说明：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:Norm 2Z1Z:”两个空格 ZS=1 Or FS=2”?ZIf Z 1 And Z2:Then Cls:Locate 5,2,”NO 1Or 2”: Locate 6,3 “!Stop!”: Stop:Els
2、e ZZ1:IfEndZ10D: “四个空格 XL123 九个空格 XL N=N”?DIf D1 And D2 And D3: Then Cls:Locate 5,2,”XL123”:Locate 5,3 “!Stop!”: Stop: Else DZ9: IfEndIf D=Z10:Then Cls:Do:Locate 3,1,”EXE GO!GO!”:Locate 8,2,9-Intg(Z/7)Locate 4,3,”10SDAT.”: Locate 12,3,D:Isz Z:Z=70=Goto 1:Lpwhile Getkey47:Goto 2:IfEndLbl 1D=1=Prog” 1
3、.DAT”:D=2=Prog” 2.DAT”:D=3=Prog” 3.DAT”:D=X=Prog” X.DAT”DZ7: For 1Z To Z7-1Cls: Locate 9,2,Z7-ZZ10Z+11-Z10Z+1LProg” TQSJ”:NextLbl 2Z9Z10Cls:Z1=2=Prog”FS”Z2E:“(X)=”?E:EZ2:Z3F:”(Y)=”?F:FZ3: Prog”ZS”正算子程序 1（ZS ）Lbl 0:Norm 2“k0+000=”?K:”+Xm=”?B:”=”?Q0 Z:Prog “TQSJ”Rec(B,O+Q)X+IX:Y+JYPol(X-Z2,Y-Z3)Cls:Fi
4、x 3“X=”:Locate 5,1,X“Y=”:Locate 5,2,Y“=-=”:Locate 5,3,I“= =”:Locate 5,4,JoGoto 0反算子程序 2（FS ）Lbl 0:Norm 2Z4E:“Xp”?E:Z5F:”Yp”?F:”k0+000m=”?KK=0=Z1K:EZ4: FZ5Do:0Z:Prog” TQSJ”Pol(Z4-X, Z5-Y)Rec(I,O-J)K+IK:Lpwhile Abs(I)0. 01Cls :Fix 3“ZH=”: Locate 5,1,K“JL=”: Locate 5,2,JGoto 0数据调用子程序 3(TQSJ)If Z100:The
5、n Do:Isz Z:Lpwhile KZ10Z+1:Dsz Z:K-Z10Z+1L:IfEndZ10Z+2-1UZ10Z+3OZ10Z+4XZ10Z+5YZ10Z+12-1VZ10Z+11-Z10Z+1SProg “JS”O+90L2(U-V)/(S)-180UL/ OIf Z100:Then Return:IfEndO360=O-360 OO0=O+360 OOOZ10Z+13XZ10Z+14Y Z10Z+15坐标运算子程序 4(JS)If UV:Then Abs(S/( U-V)CCUD(U-V)/Abs(U-V)EEL-DFF+D-(F5+D5)/(40C2)+(F9+D9)/(345
6、6C4)I(F3+D3)/(6C)-(F7+D7)/(336C3)+(F11+D11)/(42240C5)JO-90ED2/(C) CX+EIcos(C)-Jsin(C)XY+EIsin(C)+Jcos(C)YReturn:IfEndIf UV=0:Then X+Lcos(O)X:Y+Lsin(O)Y:Return:IfEndO-180LU/CX+(sin(O)-sin(C)/UXY-(cos(O)-cos(C)/UY数据库子程序 5(1.DAT)9 DimZ:13D:10D+10DimZ99O5123.2”Z13:-6820.231Z14 :-15146.29Z158800Z11: 1045
7、Z128995.879Z21: 1045Z229049.155Z31:600Z329118.921Z41:600Z429168.921Z51: 1045Z529218.921Z61:-600Z629287.765Z71:-600Z729337.765Z81: 1045Z829689.203Z91: 1045Z929739.203Z101:-625 Z1029953.174Z111:-625 Z11210003.174Z121: 1045Z12210131.193Z131: 1045Z132数据库子程序 6(1.DAT)9 DimZ:13D:10D+10DimZ红色加粗的数量根据参数多少需更改。
8、 数量为 Z131中的 13数据库子程序 7(1.DAT)9 DimZ:13D:10D+10DimZ程序运行内容说明：开机运行程序后，1、进入 GLZB-ZFS 主程序，选择正算或反算，1 为正算，2 为反算。2、选择线路，1 为第 1.DAT 线。2 为第 2.DAT 线。3 为第 3.DAT 线等等。3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按 EXE 不更新。如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示） 。3、 3.1 正算。 3.1.1 提示入入置仪点坐标。3.1.2 提示输入待算点桩号。3.1.3 提示输入离中桩距离。3.1.
9、4 提示输入与线路方向夹角。3.1.5 结果：坐标 X、Y。距置仪点距离和方位角。 3.1.6 再次提示输入待算点桩号。3.2 反算。3.2.1 提示输入实测点坐标 X、Y。3.2.2 结果：待算点桩号程距中桩距离。 3.2.3 再次提示输入实测点坐标 X、Y。程序特点：1、输入参数少，只要输入线路起点的桩号、半径、方位角、XY 坐标以及各线元的桩号和半径 (左+ 右- 直线 1045)即可。2、调用变量少，本程还有 A、G、H、M、N、P、R、W 字母变量未使用，可以用于其它程序而不会和本程序产生冲突。3、数据库独立，更换工程时数据更换方便。4、界面友好，尽量做到人人都容易上手，操作一学就会。5、程序尽量运用 5800 计算器各种指令，使程序速度提高。并能够起到帮助大家学习 5800 各指令工作原理，以便更好掌握编程。QQ：80183442
