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

《5800计算器全线坐标计算放样正反算程序.doc》由会员分享，可在线阅读，更多相关《5800计算器全线坐标计算放样正反算程序.doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、5800计算器全线坐标计算放样正反算程序主程序坐标正反算程序名称：ZBZFSLB1ACls : Fix 4 : 30Dim Z :0=ZS,1=FS?Z IfZ=0:ThenGoto B:IfEnd(Z=0进入里程点坐标正算）IfZ=1:ThenProgFSLCBZ : Goto A:IfEnd(Z=1进入反算里程边桩）Lb1 B“K=”?K ：（计算里程） ProgSJK1 :Prog”ZBFY” :Goto A子程序数据库SJK1IFK本段曲线终点里程ANDK上段曲线终点里程 ：THEN本段终点里程Z1 : 上段曲线终点里程Z2 ：1O （注：左偏曲线输入-1O,右偏曲线输入1O）: 半径

2、R : 曲线偏角A:第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : Prog”XLZBJSCX”:Return: IFENDIFProg”XLZBJSCX”:Return:IFEND（曲线段分段输入）补充直线段输入如下(单独直线段）IF K Z2 : THENGOTO4 : IFEND IFKZ4ANDK Z3 : THENGOTO5 : IFEND IFKZ5ANDK Z4 : THENGOTO6 : IFEND IFKZ1ANDK Z5 : THENGOTO7 : IFEND LB14 （里程小于直缓点直线独立坐

3、标）K- Z3 Z23 : 0Z24 : ET : GOTO8LB15 （第一缓和曲线独立坐标）K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) Z23 H3/(6*R* Z6)-H7/(336*R3* Z63) Z24 90*H2/( R* Z6) T IFO0：THENT +ET : ELSEE-T T : T360+TT : IFEND GOTO 8 LB1 6 （圆曲线独立坐标）K- Z4 H H*180/( R*)+ Z14T R*SIN T+ Z8Z23 R*(1-COS T)+ Z10Z24 IFO0：THENT +ET : ELSEE-T

4、T : T360+TT : IFEND GOTO 8 LB1 7 （第二缓和曲线独立坐标）Z1 -KH H-H5/(40*R2* Z72)+H9/(3456*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS A+ Z12-U*COS A-V*SIN AZ23 Z13*SIN A-U*SIN A+V*COS AZ24IFO0：THENF-TT : T360+TT : ELSEF+T T : IFEND GOTO8 LLb1 8IFO0: THEN- Z24Z24 : IFEND Z16+Z23*COS E-Z24*

5、SIN EZ18 Z17+Z23*SIN E+Z24*COS EZ19 ReTurn子程序反算里程边桩，名称：FSLCBZLb11XK=?X:YK=?Y（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb12ProgSJK1 :T-90 W:W360+WW:Abs(Y-Z19)*Cos W-(X-Z18)*Sin W)SIfS0.0001:ThenGoto4:ElseGoto 3:IfendLb13K+SK: ProgSJK1:T-90 W:W360+WW:Abs(Y-Z19)*Cos W-(X-Z18)*Sin W)QIfQ0

6、.0001 :Then QS: Goto4:Else IFQS:THENK-QK:Goto2:Ifend:Ifend:IfendLb14Pol (X-Z18,Y-Z19:JJ+360J:(J-T)-IIDP(-Z+Y)=:I(偏距，左右）K=:K+SK（里程）Return子程序坐标放样：ZBFYLB10 “XHS=?G(后视点X):YHS=?L(后视点Y):XZJ=?M(置镜点X):YZJ=?N(置镜点Y):Pol(G-M,L-N):DH=:I(后视距)JJ+360J:FH=:JDMS(后视方位角) “QXJ=” :T（计算里程点切线方位角，可以不显示）“XI=” : Z18 （中线X）“YI=” : Z19 （中线Y）Pol(Z18-M,Z19-N):DI=:I（中桩放样距）JJ+360J:FI=:JDMS（中桩放样方位角）“PJ=”?P (输入边桩与线路夹角，左-右+)“PD=”?D（输入边桩距）Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”: Z20 （边桩X）“YP=”: Z21 （边桩Y）Pol(Z20-M,Z21-N):DP=:I（边桩放样距）JJ+360J:FP=:JDMS（边桩放样方位角）Return