资源描述：
《CASIO fx-5800P线元法坐标正反算程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、CASIOfx-5800P线元法坐标正反算程序说明：本程序适用于卡西欧计算器CASIOfx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。主程序名：ABCYT第1步Deg：Fix3：10→DimZ第2步Lbl3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：IfP=0：Then10^(45)→P：IfEnd：IfR=0：Then10^(45)→R：IfEnd第3步1÷P→C：(
2、P-R)÷(2HPR)→D：180÷π→E：IfW=1：ThenGoto1：ElseGoto2：IfEnd第4步Lbl1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog＂ABCYTZ＂第5步Cls：＂F=＂：Locate3,1,F°：＂X=＂：Locate3,2,X：＂Y=＂：Locate3,3,Y◢第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate3,1,H◢第7步1→W：90→N：Goto3第8步Lbl2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S第9步Cls：＂K=＂：Locate3,1,S：＂S=＂：L
3、ocate3,2,Z◢第10步2→W：Goto3正算子程序名：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
4、×(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步Lbl2：（S-O）→W：0→Z：Prog＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步IfAbs(Z[10])>0.001：ThenS+Z[10]→S：Goto2：ElseGoto1：IfEnd
5、第3步Lbl1：(Y-J)÷sin(Z[9])→Z第4步Pol(X-I，Y-J)：IfZ<0：Then-1×I→Z：Else1×I→Z：IfEnd数据库名：ABCYTSJ第1步Goto1第2步Lbl1：IfS<7586.707OrS>13346.96：ThenCls：Locate2,2,＂PQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl1：IFS<7946.707：Then98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P
6、：4500→R：360→H：1→Q：Return：IfEnd第5步Lbl1：IFS<11766.03：Then101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R：3819.323→H：1→Q：Return：IfEnd第6步Lbl1：IFS<12126.03：Then149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V：4500→P：0→R：360→H：1→Q：Return：IfEnd第7步Lbl1：IFS<13346.96：Then
7、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步Lbl1：IfS<本条线路起点里程S>本条线路止点里程Cls：Locate2,2,＂PQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl1：IfS<本线元止点里程：Then线元起点切线方位角→G：线元起点桩号→O：线元起点坐标X
8、→U：线元起点坐标Y→V：线元起点半径（直线为0、曲线为半径）→P
