5800曲线道路全线坐标正反算(已验证).doc

CASIO fx-5800P线元法坐标正反算程序V2.0 说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。 主程序名：ABCYT 第1步 Deg：Fix 3：10→DimZ 第2步 Lbl 3：＂1.DK=XY＂：＂2.XY=DK＂：＂Q＂?W：＂K0+＂?S：Prog＂ABCYTSJ＂：If P=0：Then 10^(45)→P：IfEnd：If R=0：Then 10^(45)→R：IfEnd 第3步 1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：Then Goto 1：Else Goto2：IfEnd 第4步 Lbl 1：＂E＂?Z 90=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步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate 3,1,H◢ 第7步 1→W：90→N：Goto 3 第8步 Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S 第9步 Cls：＂K=＂：Locate 3,1,S：＂E=＂：Locate 3,2,Z◢ 第10步 2→W：Goto 3 正算子程序名：ABCYTZ 第1步 0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L 第2步 1-L→F：1-K→M 第3步 U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X 第4步 V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y 第5步 G+Q×E×W×(C+W×D)→F：F+ N→Z[1] 第6步 X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y 反算子程序名：ABCYTF 第1步 Lbl 2：（S-O）→W： 0→Z： Prog ＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10] 第2步 If Abs(Z[10])0.001：Then S+Z[10]→S：Goto 2：Else Goto 1：IfEnd 第3步 Lbl 1：(Y-J)÷sin(Z[9])→Z 数据库名：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 98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P：4500→R： 360→H： 1→Q：Return：IfEnd 第5步 Lbl 1：IF S11766.03：Then 101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R： 3819.323→H： 1→Q：Return：IfEnd 第6步 Lbl 1：IF S12126.03：Then 149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V： 4500→P：0→R： 360→H： 1→Q：Return：IfEnd 第7步 Lbl 1：IF S13346.96：Then 152°09′41.68″→G：12126.03→o：3376073.846→U：457190.654→V：0→P：0→R：1220.93→H：0→Q：Return：IfEnd 第n步 …………………………………………………… 数据输入说明： 第1步 Goto1 第2步 Lbl 1：If S本条线路起点里程S本条线路止点里程 Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,