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

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 （里程小于直缓点直线独立坐标）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