《casio fx-5800p线元法坐标正反算程序》由会员分享，可在线阅读，更多相关《casio fx-5800p线元法坐标正反算程序（5页珍藏版）》请在金锄头文库上搜索。
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：ProgABCYTSJ：If P=0：Then 10(45)P：IfEnd：If R=0：Then 10(45)R：IfEnd 第3步 1PC：(P-R)(2HPR)D：180E：If W
2、=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：90N：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 正算子程序名：ABCYTZ 第1步 0.173927
3、4226A：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）X：Y+Zsin（Z1）Y 反算子程序名：ABCYTF 第1
4、步 Lbl 2：（S-O）W： 0Z： 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步 Lbl 1：IF S本条线路止点里程 Cls：Locate 2,2,PQX：Lo
5、cate 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+Z7Z8X：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,SQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop 第3步
6、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 CXY 2.XY=DK Q? 1 (输入1为坐标正算、输入2为坐标反算) DK?= 10000(计算里程) W?= 5(边桩偏距：左为负，右为正) ?= 90(边桩偏角：正交为90，斜交自拟) F= 1272302.02(计算切线方位角) X= 3377702.697(计算结果坐标X) Y= 455855.490(计算结果坐标Y) H= 333.319（
7、计算竖曲线高程） 说明：按EXE键返回主程序界面。 坐标反算 运行主程序ABCYT 1.DK=XY 2.XY=DK Q? 1 (输入1为坐标正算、输入2为坐标反算) DK?= 10000(计算里程) X? 3377700.567（输入反算点坐标X） Y? 455950.689 （输入反算点坐标Y） K= 10076.066 （反算结果里程） S=-51.759 (反算结果偏距：负为偏左,正为偏右) 说明：按EXE键返回主程序界面。 其他说明须知： 当计算里程小于或大于数据库中指定的桩号时会提示超限显示。 如：输入里程1000会提示如下错误： 提示1： PQX CHAOXIAN Stop 该错误表示输入的里程超出了平曲线数据库中指定的最小或最大里程。 提示2： SQX CHAOXIAN Stop 该错误表示输入的里程超出了竖曲线数据库中指定的最小或最大里程。
