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

5800计算器全线坐标计算放样正反算程序主程序坐标正反算程序名称：ZBZFSLB1A↙Cls:Fix4:30→DimZ:0=ZS,1=FS?Z↙IfZ=0:ThenGotoB:IfEnd↙(Z=0进入里程点坐标正算）IfZ=1:ThenProgFSLCBZ:GotoA:IfEnd↙(Z=1进入反算里程边桩）Lb1B↙“K=”?K：（计算里程）ProgSJK1:Prog”ZBFY”:GotoA↙子程序数据库SJK1IFK本段曲线终点里程ANDK≥上段曲线终点里程：THEN本段终点里程→Z[1]:上段曲线终点里程→Z[2]：1→O（注：左偏曲线输入-1→O,右偏曲线输入1→O）:半径→R:曲线偏角→A:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND↙IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）↙补充直线段输入如下(单独直线段）IFK本段直线终点里程ANDK≥本段直线起点里程:THEN本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*COSE→Z[18]:Z[17]+(K-Z[3])*SINE→Z[19]:Return:IFEND子程序坐标正算，名称：XLZBJSCXLB12↙（曲线要素计算）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])→Z[25]↙（曲线总长）90*Z[6]/(R*π)→Z[14]↙（第一缓和曲线总偏角）90*Z[7]/(R*π)→Z[15]↙（第二缓和曲线总偏角,可以省略）Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]↙(切线T1)Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→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]-Z[25]→Z[3]↙(ZH点里程)Z[3]+Z[6]→Z[4]↙(HY点里程)Z[1]-Z[7]→Z[5]↙(YH点里程)GOTO3↙LB13↙(判断里程点与曲线关系)IFK≤Z[3]ANDKZ[2]:THENGOTO4:IFEND↙IFK≤Z[4]ANDKZ[3]:THENGOTO5:IFEND↙IFK≤Z[5]ANDKZ[4]:THENGOTO6:IFEND↙IFK≤Z[1]ANDKZ[5]:THENGOTO7:IFEND↙LB14↙（里程小于直缓点直线独立坐标）K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO8↙LB15↙（第一缓和曲线独立坐标）K-Z[3]→H↙H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→Z[23]↙H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Z[24]↙90*H^2/(R*π*Z[6])→T↙IFO0：THENT+E→T:ELSEE-T→T:T0=360+T→T:IFEND↙GOTO8↙LB16↙（圆曲线独立坐标）K-Z[4]→H↙H*180/(R*π)+Z[14]→T↙R*SINT+Z[8]→Z[23]↙R*(1-COST)+Z[10]→Z[24]↙IFO0：THENT+E→T:ELSEE-T→T:T0=360+T→T:IFEND↙GOTO8↙LB17↙（第二缓和曲线独立坐标）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]COSA+Z[12]-U*COSA-V*SINA→Z[23]↙Z[13]*SINA-U*SINA+V*COSA→Z[24]↙IFO0：THENF-T→T:T0=360+T→T:ELSEF+T→T:IFEND↙GOTO8↙LLb18IFO0:THEN-Z[24]→Z[24]:IFEND↙Z[16]+Z[23]*COSE-Z[24]*SINE→Z[18]↙Z[17]+Z[23]*SINE+Z[24]*COSE→Z[19]↙ReTurn↙子程序反算里程边桩，名称：FSLCBZLb11↙XK=?X:YK=?Y↙（输入任意测点的XY坐标）:“K=”?K（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）↙Lb12↙ProgSJK1:T-90→W:W0=360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→S↙IfS0.0001:ThenGoto4:ElseGoto3:Ifend↙Lb13↙K+S→K:ProgSJK1:T-90→W:W0=360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→Q↙IfQ0.0001:ThenQ→S:Goto4:ElseIFQS:THENK+Q→K:Goto2:ElseIFQS:THENK-Q→K:Goto2:Ifend:Ifend:Ifend↙Lb14↙Pol(X-Z[18],Y-Z[19]:J0=J+360→J:(J-T)0=-I→I↙DP(-Z+Y)=:I◢(偏距，－左＋右）K=:K+S→K◢（里程）Return↙子程序坐标放样：ZBFYLB10↙“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◢(后视方位角)“QXJ=”:T◢（计算里程点切线方位角，可以不显示）“XI=”:Z[18]◢（中线X）“YI=”:Z[19]◢（中线Y）Pol(Z[18]-M,Z[19]-N):DI=:I（中桩放样距）◢J0=J+360→J:FI=:J→DMS◢（中桩放样方位角）“PJ=”?P◢(输入边桩与线路夹角，左-右+)“PD=”?D◢（输入边桩距）Z[18]+D*COS(T+P)→Z[20]↙Z[19]+D*SIN(T+P)→Z[21]↙“XP=”:Z[20]◢（边桩X）“YP=”:Z[21]◢（边桩Y）Pol(Z[20]-M,Z[21]-N):DP=:I◢（边桩放样距）J0=J+360→J:FP=:J→DMS◢（边桩放样方位角）Return↙