5800计算器全线坐标计算放样程序

“XLZBJSCX” ◢ （ 第一个程序）
Lb1 0 ↙
Cls : Fix 4 : 30→Dimz ↙
“XHS="?G ( 后视点 X) :"YHS="?L ( 后视点 Y) :"XZJ="?M ( 置镜点 X) :"YZJ="?N ( 置镜点 Y) :Pol(G-M,L-N):"DH=":I ( 后视距 ) ◢ J<0=>J+360→J:"FH=":J►DMS ◢ ( 后视方位角 )
Lbl 1 ↙ ( If （如果的意思） And （和字的意思） Then （然后的意思） )
“K=”?K ◢ （计算里程） ( 下面有色的是数据库 )
If （如果） K< 51760.052 本曲线 缓直点 桩号 And （ 和） K≥ 51048.785 上一个曲线 缓直点 桩号 ： Then （然后） 本曲线 缓直点 桩号 51760.052 →Z[1] : 上一个曲线 缓直点 桩号 51048.785 →Z[2] ： 1 -1 →O （注： 左偏曲线输 入 - 1→O, 右偏曲线输入 1→O ） : 偏角 12 ’ 23 ’ 19.5 ’ →A ： 半径 3289.486 →R : 第一缓和曲线 长度 0 →Z[6] : 第二缓和曲线 长度 0 →Z[7] : 交点 X 坐标 →B : 交点 Y 坐标 →C : 小里程向交点 方位角 →E : 交点向大里程 方位角 →F : Goto 2 : IfEnd ↙ ( 重兰字是输入的数字 )
………… （曲线段分段输入）
补充直线段输入如下
If （如果） K< 本段直线 终点 里程 And （ 和） K≥ 本段直线 起点 里程 :Then （然后） 1→O: 本段直线 终点 里程 →Z[3]: 终点 坐标 X→Z[16]: 终点 坐标 Y→Z[17]: 方位角 →E:Goto 4:IfEnd ↙
Lb1 2 ↙ （曲线要素计算）
Z[6] ÷ 2- Z[6]^ 3 ÷ (240R^2)+ Z[6]^ 5 ÷ (34560*R^4) →Z[8] ↙ （ M1 不输）
Z[7 ] ÷ 2- Z[7]^ 3 ÷ (240R^2)+ Z[7]^ 5 ÷ (34560 R^4) →Z[9] ↙ （ M2 不输）
Z[6]^ 2 ÷ (24R)- Z[6]^ 4 ÷ (2688R^3) →Z[10] ↙ （ P1 不输）
Z[7]^ 2 ÷ (24R)- Z[7]^ 4 ÷ (2688R^3) →Z[11] ↙ （ P2 不输）
(πAR ) ÷ 180+0. 5 × ( Z[6]+ Z[7])→S ↙ （曲线总长）
90 × Z[6 ] ÷ ( R × π) →Z[14] ↙ （第一缓和曲线总偏角） ( ×÷以后自己改 )
9 0 × Z[7 ] ÷ ( R × π) →Z[15] ↙ （第二缓和曲线总偏角 , 可以省略）
Z[8] ＋（ R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12] ↙ ( 切线 T1)
Z[9] ＋（ R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13] ↙ ( 切线 T2)
B+ Z[12]*COS (E+180)→ Z[16] ↙ （ ZH 点 X ）
C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ ZH 点 Y ）
Z[1]-S→Z[3] ↙ (ZH 点里程 )
Z[3]+ Z[6]→Z[4] ↙ (HY 点里程 )
Z[1]- Z[7]→Z[5] ↙ (YH 点里程 )
GOTO 3 ↙
LB1 3 ↙ ( 判断里程点与曲线关系 )

If K≤Z[3] And K> Z[2] : Then Goto 4 : IfEnd ↙
If K≤Z[4] A nd K> Z[3] : T hen Goto 5 : IfEnd ↙
If K≤Z[5] A nd K> Z[4] : T hen Goto 6 : IfEnd ↙
If K≤Z[1] A nd K> Z[5] : T hen Goto 7 : IfEnd ↙
LB1 4 ↙ （里程小于直缓点直线独立坐标）
K- Z[3] →X : 0→Y : E→T : Prog“TYZBCX” ： Goto 1 ↙
Lb1 5 ↙ （第一缓和曲线独立坐标）
K- Z[3] →H ↙
H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙
H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙
90*H^2/( R*π* Z[6]) →T ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙
PRrog“TYZBCX” ： Goto 1 ↙
Lb1 6 ↙ （圆曲线独立坐标）
K- Z[4] →H ↙
H*180/( R*π)+ Z[14]→T ↙
R*SIN( T)+ Z[8]→X ↙
R*(1-COS (T))+ Z[10]→Y ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙
Prog“TYZBCX” ： Goto 1 ↙
Lb1 7 ↙ （第二缓和曲线独立坐标）

Z[1] -K →H ↙
H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7 ]^4) →U ↙
H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙
90*H^2/( R*π* Z[7]) →T ↙
Z[13]COS (A)+ Z[12]-U*COS( A)-V*SIN (A)→X ↙
Z[13]*SIN( A)-U*SIN( A)+V*COS (A)→Y ↙
IF O >0 ： Then F-T→T : T<0=>360+T→T : Else F+T →T : IfEnd ↙
Prog“TYZBCX” ： Goto 1 ↙
子程序：
“TYZBCX” ↙ （统一坐标计算） （ 第 2 个程序）
IF O<0 : Then -Y→Y : IfEnd ↙
“QXJ=” :T ◢ （计算里程点切线方位角，可以不显示）
Z[16]+X*COS (E)-Y*SIN( E)→Z[18] ↙
Z[17]+X*SIN (E ） +Y*COS (E ） →Z[19] ↙
“XI=” : Z[18] ◢ （ XI 中线 X ）
“ YI =” : Z[19] ◢ （ YI 中线 Y ）
Pol(Z[18]-M,Z[19]-N):"DI=":I ◢ （中桩放样距） J<0=>J+360→J:"FI=": J ►DMS ◢ （ 中桩放样方位角）

“ PJ =”?P ◢ ( 输入边桩与线路夹角 PJ ，左偏 – 90 右 +90 )
“ PD =”?D ◢ （输入边桩距 PD ）
Z[18]+D*COS(T+P) →Z[20] ↙
Z[19]+D*SIN(T+P) →Z[21] ↙
“XP=”: Z[20] ◢ （ XP 边桩 X ）
“YP=”: Z[21] ◢ （ YP 边桩 Y ）
Pol(Z[20]-M,Z[21]-N):"DP=":I ◢ （边桩放样距） J<0=>J+360→J:"FP=":J ► DMS ◢ （边桩放样方位角）
Return ↙ （以上都要输进计算器）注解不输

K 里程

XI 中线 X

YI 中线 Y

PD 输入边桩距

XP 边桩 X 坐标

YP 边桩 Y 坐标

I 边桩放样距

PJ 输入边桩与线路夹角，左偏 – 90 右 +90 )

I 中桩放样距

T 计算里程点切线方位角，可以不显示