5800计算器线坐标计算放样程序(修改第三版).doc

5800计算器全线坐标计算放样程序（修改第三版） 5800计算器全线坐标计算放样程序（修改版）“XLZBJSCX” ◢LB1??0 ↙CLS : FIX 4 : 30→DIM Z ↙“XHS=?G(后视点X):YHS=?L(后视点Y):XZJ=?M(置镜点X):YZJ=?N(置镜点Y)0l(G-M,L-N):DH=:I(后视距)◢J0=J+360→J:FH=:J→DMS◢(后视方位角)LB1??1 ↙“K=”?K ◢（计算里程）IF??K本段曲线终点里程??AND??K≥上段曲线终点里程 ：THEN??本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→0 （注：左偏曲线输入-1→0,右偏曲线输入1→0）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : G0T0??2 : IFEND↙…………（曲线段分段输入）补充直线段输入如下IF K本段直线终点里程 AND??K≥本段直线起点里程:THEN 1→0:本段直线终点里程→Z[]:终点X→Z[16]:终点Y→Z[1]:方位角→E:G0T0 4:IFENDLB1??2 ↙（曲线要素计算）Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙??（M1）Z[7]/2- Z[]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙??（M2）Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙??（P1）Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙??（P2）π*A*R/180+0.5*( Z[]+ Z[2])→W ↙? ?（曲线总长）90* Z[6]/(R*π) →Z[14] ↙? ? （第一缓和曲线总偏角）90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])TAN(A/2)-(Z[1]-Z[11] )/SIN A→Z[11]↙? ?(切线T1)Z[9]＋（R+Z[1])TAN(A/2)+(Z[10]-Z[12] )/SIN A→Z[12]↙? ?(切线T2)B+ Z[12]*C0S (E+180)→ Z[1] ↙??（ZH点X） C+ Z[12]*SIN(E+180)→ Z[1] ↙? ?（ZH点Y）Z[1]-S→Z[3] ↙? ?? ? (ZH点里程)Z[3]+ Z[6]→Z[4] ↙? ?(HY点里程)Z[1]- Z[7]→Z[5] ↙? ?(YH点里程)G0T0 3 ↙LB1??3 ↙(判断里程点与曲线关系)IF??K≤Z[3]??AND??K Z[2] : THEN??G0T0??4 : IFEND ↙IF??K≤Z[4]??AND??K Z[3] : THEN??G0T0??5 : IFEND ↙IF??K≤Z[5]??AND??K Z[4] : THEN??G0T0??6 : IFEND ↙IF??K≤Z[1]??AND??K Z[5] : THEN??G0T0??7 : IFEND ↙LB1??4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →X : 0→Y : E→T : PR0G“TYZBCX” ：G0T0??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/(3362*R^3* Z[6]^3) →Y ↙90*H^2/( R*π* Z[6]) →T ↙IF??00??：THEN??T +E→T : ELSE??E-T →T : T0=360+T→T : IFEND ↙ PR0G“TYZBCX” ：G0T0??1 ↙LB1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+ Z[14]→T ↙R*SIN T+ Z[8]→X ↙R*(1-C0S T)+ Z[1]→Y ↙IF??00??：THEN??T +E→T : ELSE??E-T →T : T0=360+T→T : IFEND ↙ PR0G“TYZBCX” ：G0T0??1 ↙LB1 7 ↙（第二缓和曲线独立坐标）Z[1] -K??→H ↙H-H^5/(40*R^2* Z[7]^2)+H^/(3456*R^4* Z[4]^4) →U↙H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]