CASIO fx-5800P综合曲线坐标计算程序.doc

《CASIO fx-5800P综合曲线坐标计算程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO卡西欧计算器程序网站：http://www.fffsky.com/blog论坛：http://dict.5d6d.net适用：CASIOfx-5800PQQ：２９５１８８３１６[原创]CASIOfx-5800PZXZFS直线坐标正反算程序V1.5说明：该程序适用于计算器CASIOfx-5800P直线坐标正算、反算，可连续计算中桩及边桩坐标其斜交等，还可以反算线路外一点距线路中心的里程和垂距。主程序名：ZXZFS第1步Deg：Fix3第2步LblC：＂1.DK=>XY＂：＂2.XY=>DK＂：＂J＂？W：

2、Lbl1：＂JSDK＂？E：Prog＂ZXZFSSJ＂第3步IfW=1：ThenGotoA：ElseIfW=2：ThenGotoB：ElseGotoC：IfEnd第4步LblA：＂PJ＂？G：＂PA＂？H第5步B+(E-A)×cos(F)+G×cos(F+H)→X第6步C+(E-A)×sin(F)+G×sin(F+H)→Y第7步Cls：＂X=＂：Locate3,1,X：＂Y=＂：Locate3,2,Y◢第8步＂ZJD(X)＂？S：＂ZJD(Y)＂？T第9步Pol(X-S,Y-T)：I→M第10步IfJ<0：The

3、nJ+360→N：ElseJ→N：IfEnd第11步Cls：＂JL=＂：Locate4,1,M：＂FY=＂：Locate4,2,N°◢第12步Goto1第13步Lb1B：＂X=＂？K：＂Y=＂？L第14步Pol(K-B，L-C)：I→D：IfJ<0：ThenJ+360→P：ElseJ→P：IfEnd第15步IfF

4、End第19步Cls：＂DK=＂：Locate4,1,R：＂PJ=＂：Locate4,2,Q◢第20步Goto1——若有疑问请至Email：ceo@fffsky.comCASIO卡西欧计算器程序网站：http://www.fffsky.com/blog论坛：http://dict.5d6d.net适用：CASIOfx-5800PQQ：２９５１８８３１６数据库名：ZXZFSSJ第1步Goto1第2步Lb11:IfE<259105:Then256100→A:2575647.999→B:495400.3447→C:22

5、1°47ˊ20.24″→F:Return:IfEnd第n步……………………………………………………数据库说明：第1步Goto1第2步Lb11:IfE<7586.706:Then7152.5561→A:3378672.9776→B:453219.8377→C:98°56ˊ55.65″→F:Return:IfEnd第2步Lb11:IfE<止点桩号:Then起点桩号→A:起点坐标X→B:起点坐标Y→C:起点方位角F→F:Return:IfEnd第n步Lbl1：每增加一行则为增加一个竖曲线要素。注：1、◢为显示指令。2、

6、浅黄底色O为字母O。数据核对：《坐标正算》运行主程序ZXZFS1.DK=>XY2.XY=>DKJ?=1（输入1为坐标正算、输入2为坐标反算）JSDK=258000（输入计算里程）PJ？=15（输入计算偏距，左负右正）PA？=90（输入偏角，正交为90°）X=2574241.346（计算结果坐标X）Y=494123.022（计算结果坐标Y）ZJD（X）？=2574000.237（输入测站点坐标X）ZJD（Y）？=494100.069（输入测站点坐标Y）JL=242.199（计算结果测站点到计算点水平距离）FY=5°

7、26ˊ16.88″（计算结果测站点到计算点方位角）《坐标反算》运行主程序ZXZFS——若有疑问请至Email：ceo@fffsky.comCASIO卡西欧计算器程序网站：http://www.fffsky.com/blog论坛：http://dict.5d6d.net适用：CASIOfx-5800PQQ：２９５１８８３１６1.DK=>XY2.XY=>DKJ?=2（输入1为坐标正算、输入2为坐标反算）JSDK=258100（输入近似里程）X=？2574241.346（输入反算坐标X）Y=？494123.022（输入

8、反算坐标Y）DK=258000.000（反算结果里程）PJ=15.000（反算结果偏距）——若有疑问请至Email：ceo@fffsky.com