CASIO5800ZXZFS直线正反算坐标计算程序

[原创] CASIO fx-5800P ZXZFS 直线正反算坐标计算程序

原理：采用正余弦定理求待求点垂距进行确定里程和偏距。

公式：tan-1((yb-ya)/(xb-xa)) 、√(xB-xA)2+(yB-yA)2、sinα×D、Q÷tan(α)

说明：该程序适用于计算器 CASIO fx-5800P，针对直线正反算设计，正算可算直线中边桩坐标及其斜交、反算可推算直线距线路中心的里程偏距。

1、DK(QD)? 输入起点里程

2、X(QD)? 输入起点坐标X

3、Y(QD)? 输入起点坐标Y

4、FWJ? 输入计算方位角

5、J? 输入1为正算、输入2为反算

6、JSDK? 输入计算里程

主程序名：ZXZFS

Deg：Fix 4↙

＂DK(QD)＂?A：＂X(QD)＂？B：＂Y(QD)＂？C：＂FWJ＂？F↙

＂1=>XY.2=>DK＂：＂J＂？W↙

If W=1：Then Goto 1：Else If W=2：Then Goto 2：IfEnd↙

Lb1 1↙

＂JSDK＂？E：＂PJ＂?G：＂PA＂？H↙

＂X=＂：B+(E-A) ×cos(F)+G×cos(F+H)→X◢

＂Y=＂：C+(E-A) ×sin(F)+G×sin(F+H)→Y◢

＂ZJD(X)＂？S：＂ZJD(Y)＂？T↙

＂PJ=＂：Pol(X-S，Y-T)：I→M◢

＂FWJ=＂：If J<0：Then J+360→N：Else J→N：N▲DMS◢

Goto 1↙

Lb1 2↙

＂X=＂？K：＂Y=＂？L↙

Pol(K-B，L-C)：I→D：If J<0：Then J+360→P：Else J→P：IfEnd↙

If F

Sin(Ｏ)×D→Q↙

＂DK=＂：A+Q÷tan(Ｏ)→R◢

＂PJ=＂：sin(Ｏ)×D→Q：If F

Goto 2

注：

1、◢为显示指令。

2、↙为回车(EXE)标识。

计算参数：

1、DK(QD)?= 12200

2、X(QD)?= 3376008.436

3、Y(QD)?= 457225.196

4、FWJ?= 152°09ˊ41.68″

5、J?= 1

6、JSDK?= 12300

7、PJ?= 0

8、PA?= 0

9、X=3375920.009

10、Y=457271.894

11、ZJD(X)?= 3375949.713

12、ZJD(Y)?= 457225.279

13、PJ= 55.275

14、FWJ= 122°30ˊ21.37″

15、J?= 2

16、X=? 3375964.503

17、Y=?457308.812

18、DK= 12277.896

19、PJ= -53.423