2024年4月13日发(作者：浑永春)

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 ◢ （边

中

2024年4月13日发(作者：浑永春)

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 ◢ （边

中