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

5800计算器全线坐标计算放样程序（修改第三版） 5800计算器全线坐标计算放样程序（修改版）??????????????????????????????????????????彭赐明“XLZBJSCX” LB1??0 ↙CLS : FIX 4 : 30→DIM Z ↙“XHS=?G(后视点X):YHS=?L(后视点Y):XZJ=?M(置镜点X):YZJ=?N(置镜点Y):Pol(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→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线→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:IFENDLB1??2 （曲线要素计算）Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ??（M1）Z[7]/2- Z[7]^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[6]+ Z[7])→S ?? （曲线总长）90* Z[6]/(R*π) →Z[14] ????（第一缓和曲线总偏角）90* 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]??AND??K Z[3] : THEN??GOTO??5 : IFEND ↙IF??K≤Z[5]??AND??K Z[4] : THEN??GOTO??6 : IFEND ↙IF??K≤Z[1]??AND??K Z[5] : THEN??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??O0??：THEN??T +E→T : ELSE??E-T →T : T0=360+T→T : IFEND PROG“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??O0??：THEN??T +E→T : ELSE??E-T →T : T0=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[