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

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 计算里程点切线方位角，可以不显示