原创CASIOfx-5800PZXZFS直线坐标正反算程序V5.docVIP

CASIO 卡西欧计算器程序 网站：/blog 论坛： 适用：CASIO fx-5800P Q Q：２９５１８８３１６ ——若有疑问请至Email：ceo@ [原创] CASIO fx-5800P ZXZFS直线坐标正反算程序 V1.5 说明：该程序适用于计算器 CASIO fx-5800P直线坐标正算、反算，可连续计算中桩及边桩坐标其斜交等，还可以反算线路外一点距线路中心的里程和垂距。 主程序名：ZXZFS 第1步 Deg：Fix 3 第2步 Lbl C：＂1.DK=XY＂：＂2.XY=DK＂：＂J＂？W：Lbl 1：＂JSDK＂？E：Prog ＂ZXZFSSJ＂ 第3步 If W=1：Then Goto A：Else If W=2：Then Goto B：Else Goto C：IfEnd 第4步 Lbl A：＂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=＂：Locate 3,1,X：＂Y=＂：Locate 3,2,Y◢ 第8步＂ZJD(X)＂？S：＂ZJD(Y)＂？T 第9步 Pol(X-S,Y-T)：I→M 第10步 If J0：Then J+360→N：Else J→N：IfEnd 第11步 Cls：＂JL=＂：Locate 4,1,M：＂FY=＂：Locate 4,2,N°◢ 第12步 Goto 1 第13步 Lb1 B：＂X=＂？K：＂Y=＂？L 第14步 Pol(K-B，L-C)：I→D：If J0：Then J+360→P：Else J→P：IfEnd 第15步 If FP：Then P-F→Ｏ：Else F-P→Ｏ：IfEnd 第16步 Sin(Ｏ)×D→Q 第17步 A+Q÷tan(Ｏ)→R 第18步 sin(Ｏ)×D→Q：If FP：Then 1×Q→Q：Else -1×Q→Q：IfEnd 第19步 Cls：＂DK=＂：Locate 4,1,R：＂PJ=＂：Locate 4,2,Q◢ 第20步 Goto 1 数据库名：ZXZFSSJ 第1步 Goto 1 第2步 Lb1 1:If E259105:Then 256100→A:2575647.999→B:495400.3447→C:221°47ˊ20.24″→F:Return:IfEnd 第n步 …………………………………………………… 数据库说明： 第1步 Goto 1 第2步 Lb1 1:If E7586.706:Then 7152.5561→A:3378672.9776→B:453219.8377→C:98°56ˊ55.65″→F:Return:IfEnd 第2步 Lb1 1:If E止点桩号:Then 起点桩号→A:起点坐标X→B:起点坐标Y→C:起点方位角F→F:Return:IfEnd 第n步 Lbl 1：每增加一行则为增加一个竖曲线要素。 注： 1、◢ 为显示指令。 2、浅黄底色O为字母O。 数据核对： 《坐标正算》 运行主程序ZXZFS 1.DK=XY 2.XY=DK J?=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°26ˊ16.88″（计算结果测站点到计算点方位角） 《坐标反算》 运行主程序ZXZFS 1.DK=XY 2.XY=DK J?=2（输入1为坐标正算、输入2为坐标反算） JSDK=258100（输入近似里程） X=？2574241.346（输入反算坐标X） Y=？494123.022（输入反算坐标Y） DK=258000.000（反算结果里程） PJ=15.000（反算结果偏距）