1、CASIO fx-5800P 线元法坐标正反算程序说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。主程序名：ABCYT第 1 步 Deg：Fix 3：10DimZ第 2 步 Lbl 3： 1.DK=XY：2.XY=DK：Q?W： DK?S：Prog ABCYTSJ：If P=0： Then 10(45)P：IfEnd：If R=0：Then 10(45)R：IfEnd第 3 步 1PC：(P-R)(2HPR) D：18
2、0E：If W=1 ：Then Goto 1：Else Goto2：IfEnd第 4 步 Lbl 1：W ?Z ：?N：Abs(S- O)W：Prog ABCYTZ第 5 步 Cls：F=：Locate 3,1,F：X=：Locate 3,2,X： Y=：Locate 3,3,Y第 6 步 ProgABCYTSQX：Cls：H=：Locate 3,1,H第 7 步 1W：90 N：Goto 3第 8 步 Lbl 2：?X ：?Y：XI：YJ：ProgABCYTF：O +WS第 9 步 Cls：K=：Locate 3,1,S ：S= ：Locate 3,2,Z第 10 步 2W： Goto 3正
3、算子程序名：ABCYTZ第 1 步 0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L第 2 步 1-LF：1-KM第 3 步 U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X第 4 步 V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)Y第 5 步 G+QEW(C+WD)F：F+ NZ1第 6 步 X+Zcos（Z1
4、）X：Y+Zsin（Z1）Y反算子程序名：ABCYTF第 1 步 Lbl 2：（S-O）W ： 0 Z： Prog ABCYTZ：F-90Z9：(J-Y) cos(Z9)-(I-X)sin(Z9)Z10第 2 步 If Abs(Z10)0.001：Then S+Z10S：Goto 2：Else Goto 1：IfEnd第 3 步 Lbl 1：(Y-J)sin(Z9) Z第 4 步 Pol(X-I，Y-J) ：If Z13346.96：Then Cls：Locate 2,2,PQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第 3 步 Stop：IfEnd第 4 步
5、 Lbl 1：IF S本条线路止点里程 Cls：Locate 2,2,PQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第 3 步 Stop：IfEnd第 4 步 Lbl 1：If SK And Z3Z5：Then H+(Z3-K)Z2100Z6：(Z5-Z3)(2)2RZ7：Z6+Z7 Z8X：Goto 3：Else If Z3Z5：Then H+(Z3-K)Z2100X： IfEnd：Lbl 3：XH：Return竖曲线数据库：ABCYTSQXSJ第 1 步 Goto 1第 2 步 Lbl 1：If S11211.997：Then Cls：Locate 2,2
6、,SQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第 3 步 Stop：IfEnd第 4 步 Lb1 1：If S本条线路竖曲线止点里程 n Cls：Locate 2,2,SQX ：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第 3 步 Stop：IfEnd第 4 步 Lbl 1：If CXY2.XY=DKQ? 1 (输入 1 为坐标正算、输入 2 为坐标反算)DK?= 10000(计算里程)W?= 5(边桩偏距：左为负，右为正)?= 90(边桩偏角：正交为 90，斜交自拟)F= 1272302.02(计算切线方位角)X= 33777
7、02.697(计算结果坐标 X)Y= 455855.490(计算结果坐标 Y)H= 333.319（计算竖曲线高程）说明：按 EXE 键返回主程序界面。坐标反算运行主程序 ABCYT1.DK=XY2.XY=DKQ? 1 (输入 1 为坐标正算、输入 2 为坐标反算)DK?= 10000(计算里程)X? 3377700.567（输入反算点坐标 X）Y? 455950.689 （输入反算点坐标 Y）K= 10076.066 （反算结果里程）S=-51.759 (反算结果偏距：负为偏左,正为偏右)说明：按 EXE 键返回主程序界面。其他说明须知：当计算里程小于或大于数据库中指定的桩号时会提示超限显示。如：输入里程 1000 会提示如下错误：提示 1： PQXCHAOXIANStop该错误表示输入的里程超出了平曲线数据库中指定的最小或最大里程。提示 2：SQXCHAOXIANStop该错误表示输入的里程超出了竖曲线数据库中指定的最小或最大里程。
