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

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◢(后视方位角) 要素输入按如下红色编写,输完接着编写“LBI 2“部分 “DK(ZD)=”?Z:Z→Z[26]:”UPDK(UPZD)=”?Z:Z→Z[27]:”Z=-1,Y=1”?O:”A(PIANJIAO)=”?A:”R=”?R:”L(S1)=”?Z: Z→Z[6] :”L(S2)=”?Z: Z→Z[7]：“X(JD)=”?B：“Y(JD)=”?C：“FWJ=”?E:E+O*A→F LB1? 1 ↙“K=”?K ◢（计算里程）IF? K Z[26]? AND? K≥Z[27] ：THEN? Z[26]→Z[1] : Z[27]→Z[2] ：GOTO? 2 : IFEND 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:IFEND LB1? 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