CASIO fx-5800P线元法坐标正反算程序.doc

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=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.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）X：Y+Zsin（Z1）Y反算子程序名：ABCYTF第1步 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 Z0：Then -1IZ：Else 1IZ：IfEnd数据库名：ABCYTSJ第1步 Goto1第2步 Lbl 1：If S7586.707 Or S13346.96：Then Cls：Locate 2,2,PQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第3步 Stop：IfEnd第4步 Lbl 1：IF S7946.707：Then 985656G：7586.707o：3378605.445U：453648.704V：0P：4500R： 360H： 1Q：Return：IfEnd第5步 Lbl 1：IF S11766.03：Then 1011426G：7946.707o：3378544.714U：454003.518V：4500P：4500R： 3819.323H： 1Q：Return：IfEnd第6步 Lbl 1：IF S12126.03：Then 1495211G：11766.03o：3376389.890U：457018.324V： 4500P：0R： 360H： 1Q：Return：IfEnd第7步 Lbl 1：IF S13346.96：Then 1520941.68G：12126.03o：3376073.846U：457190.654V：0P：0R：1220.93H：0Q：Return：IfEnd第n步 数据输入说明：第1步 Goto1第2步 Lbl 1：If S本条线路起点里程S本条线路止点里程 Cls：Locate 2,2,PQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第3步 Stop：IfEnd第4步 Lbl 1：If S本线元止点里程：Then线元起点切线方位角G：线元起点桩号O：线元起点坐标XU：线元起点坐标YV：线元起点半径（直线为0、曲线为半径）P：线元止点半径（直线为0、曲线为半径）R：线元长度H：线元转向（左转为-1、右转为1、直线为0）Q：Return：IfEnd第n步 Lbl 1：每增加一行则为增加一个线元要素。竖曲线子程序名：ABCYTSQX第1步 SC：Prog ABCYTSQXSJ：AZ1：BZ2：CZ3：If (Z1-Z2)0：Then 1Z8：Else -1Z8：IfEnd第2步 RAbs(Z1100-Z2100)L：L2T：T(2)2RE：K-TZ4：Z4+LZ5第3步 If Z3Z4：Then H-(K-Z3)Z1100X：Goto 3：Else If Z3Z4 And Z3K：Then H+(Z3-K)Z1100Z6：(Z3-Z4)(2)2RZ7：Z6+Z7Z8X：Goto 3：Else If Z3=K：Then H+EZ8X：Goto 3：Else If Z3K 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 S5000.000 Or S11211.997：Then Cls：Locate 2,2,SQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第3步 Stop：IfEnd第4步 Lb1 1：If S5900.000：Then 5800.000K：323.527H：20000R：-0.5800A：0.4200B：Return：IfEnd第5步 Lb1 1：If S8982.000：Then 8910.000K：336.589H：20000R：0.4200A：-0.3000B：Return：IfEnd第6步 Lb1 1：If S11211.997：Then 11187.000K：329.758H：20000R：-0.3000A：-0.5500B：Return：IfEnd第n步 数据输入说明：第1步 Goto 1第2步 Lbl 1：If C本条线路竖曲线起点里程C本条线路竖曲线止点里程n Cls：Locate 2,2,SQX：Locate 4,3,CHAOXIAN：Locate 10,4,Stop第3步 Stop：IfEnd第4步 Lbl 1：If C本条竖曲线圆直桩号或止点桩号：Then 变坡点桩号K：变坡点高程H：竖曲线半径R：第一纵坡（百分数单位）A：第二纵坡（百分数单位）B：Return：IfEnd第n步 Lbl 1：每增加一行则为增加一个竖曲线要素。程序输入说明： 本程序中除了浅黄底色O表示为字母，其余均为数字0，输入程序时每输入完成1步则按EXE换行，需认真、仔细，子程序输入方式和主程序相同，若字体小请按住CTRL键然后再滑动鼠标滚动条进行缩放页面大小。本程序中多数指令在FUNCTION中（2：COMPLX、3：PROG）查找。Deg和Fix 按SHIFT再按MODE SETUP查找。程序演示步骤：坐标正算运行主程序ABCYT1.DK=XY2.XY=DKQ? 1 (输入1为坐标正算、输入2为坐标反算)DK?= 10000(计算里程)W?= 5(边桩偏距：左为负，右为正)?= 90(边桩偏角：正交为90，斜交自拟)F= 1272302.02(计算切线方位角)X= 3377702.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 (反算结果偏