4800改5800全线坐标正反算程序

线路中边桩任意里程坐标正、反算改编程序（CASIO fx-4800改CASIO fx-5800）

1. 正算子程序(SUB1)

0.1739274226→Z[3]：0.3260725774→Z[4]：0.0694318442→Z[5]：0.3300094782→Z[6]：1-Z[6]→Z[7]：1-Z[5]→Z[8]：A+Z[10] (Z[3]cos(F +57.2958 O Z[5] Z[10] (1/C+ Z[5] Z[10] Z[9]))+Z[4]cos(F +57.2958 O Z[6] Z[10] (1/C+ Z[6] Z[10] Z[9]))+Z[4]cos(F +57.2958 O Z[7] Z[10] (1/C+ Z[7] Z[10] Z[9]))+ Z[3]cos(F +57.2958 O Z[8] Z[10] (1/C+ Z[8] Z[10] Z[9]))) →Z[11]：B+ Z[10] (Z[3]sin(F +57.2958 O Z[5] Z[10] (1/C+ Z[5] Z[10] Z[9]))+Z[4]sin(F +57.2958 O Z[6] Z[10] (1/C+ Z[6] Z[10] Z[9]))+Z[4]sin(F +57.2958 O Z[7] Z[10] (1/C+ Z[7] Z[10] Z[9]))+Z[3]sin(F +57.2958 O Z[8] Z[10] (1/C+ Z[8] Z[10] Z[9]))) →Z[12]：F +57.2958 O Z[10] (1/C+ Z[10] Z[9])+90→Z[7]：Z[11]+Scos(Z[7]-90+M) →Z[11]：Z[12]+Ssin(Z[7]-90+ M) →Z[12]：←┘ 2. 反算子程序(SUB2)

Abs((Z[12]-B)cos(F-90)-( Z[11]-A)sin(F-90))→Z[10]：0→S：Lbl 0：Prog \：(F-90)+57.2958 O Z[10] (1/C+ Z[10] Z[9])→Z[6]：(J- Z[12])cos Z[6]-(I-Z[11])sin Z[6]→S：If AbsZ<1E-6：then Goto1：Else Z[10]+S→Z[10]：Goto 0：Ifend：←┘

Lbl 1：0→S：Prog \：(J-Z[12])÷sin Z[7]→S：←┘

二.增设数据库程序（ＳＪＫ主程序）

Lb1 4：\=> XY\：\=> SZ\：“K=\ K：“N=\ ：If K <下一线元起点里程：then 本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O： Goto0：Ifend：←┘ (第一线元数据要素)

If K <下一线元起点里程：then 本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O： Goto0：Ifend ：←┘(第二线元数据要素)

If K <下一线元起点里程：then 本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O： Goto0：Ifend ：←┘(第三线元数据要素)

If：。。。。。。。。。 Goto0：Ifend：←┘(第N-1线元数据要素)

If：。。。。。。。。。 Goto0：Ifend：←┘(第N线元数据要素)

LB1 0：(C-R)÷(2 Z[2] C R) →Z[9]：If N=1：Then Goto 1：Else Goto 2：Ifend←┘

Lbl 1：“S=\：“M =\ M ： Abs(K- Z[1]) →Z[10]：Prog \\：\：Z[11]◢ \：Z[12]◢

\：Z[7]-90◢(可以删除) “XC=” ?P：“YC=” ?Q 0→I：0→J：Pol（Z[11]-P，Z[12]-Q）：“I=” ：I◢ If J<0：Then J+360→J：“J=” ：J→DMS◢ Else “J=” ：J→DMS◢ Ifend：←┘ Goto4：←┘

Lbl 2：“X=\：“Y=\：X→I：Y→J：Prog \：Z[1]+ Z[10]→K：\ K \：K◢ \：S◢

Goto4←┘ 三. 使用说明： 1、规定

(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， O=-1；当线元往右偏时，O=1；当线元为直线时，O=0。

(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2、输入与显示说明 输入部分： 1. SZ => XY 2. XY = > SZ

N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ； 输入2表示由坐标反算里程和边距。

S ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中

线上取零)

M？为斜交角度，规定M为涵轴右侧方向与“线路前进方向切线”之间的夹角，当涵轴与线路正交时，T=90 XS=××× 正算时，计算得出的所求点的X坐标

YS=××× 正算时，计算得出的所求点的Y坐标 FS=××× 正算时，所求点对应的中线点的切线方位角 “XC、YC、”为测站坐标

“Ｉ＝”、“Ｊ＝”为放样距离和方位角

A ？线元起点的X坐标 B？线元起点的Y坐标 Z[1] ？线元起点里程 F ？线元起点切线方位角 Z[2] ？线元长度 C ？线元起点曲率半径 R ？线元止点曲率半径

O ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0） K ？ 正算时所求点的里程 X ？反算时所求点的X坐标 Y ？反算时所求点的Y坐标 显示部分：

K=××× 反算时，计算得出的所求点的里程 Z=××× 反算时，计算得出的所求点的边距 3、备 注

HY方位角＝正方位角±90L／Rπ（L缓和曲线长度，R为圆曲线半径，左转角-右转角+）

YH方位角＝正方位角±90L／Rπ（L缓和曲线长度，R为圆曲线半径，左转角+右转角-）

本文来源：https://www.bwwdw.com/article/e13r.html