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