全线坐标放样(自己的).docVIP

全线坐标放样（自己的） LXZB（第一主程序名） ｛P｝P≤(圆曲线终点里程)＝＞GOTO 0：≠＞P≤（第二缓和曲线终点）＝＞GOTO 1： ≠＞P≤（圆曲线终点里程）＝＞GOTO 2：≠＞P≤（第二缓和曲线终点）＝＞GOTO 3：≠＞P≤（第一缓和曲线终点）＝＞GOTO 4：≠＞P≤（圆曲线终点里程）＝＞GOTO 5：≠＞P≤（第二缓和曲线终点）＝＞GOTO 6：≠＞P≤（直线终点里程）＝＞GOTO 7：≠＞P≤（标段终点里程）＝＞Prog “LXZB1”LBl 0?A=圆曲线起点里程：V=圆曲线的计算方位角：C=圆曲线起点X值：D=圆曲线起点Y值：R=圆曲线半径：I=（偏角为左角时I=-1，偏角为右角时I=1）：Prog“YQX .SUB”?（转移至圆曲线计算子程序“YQX .SUB”） LBl 1A=（第二缓和曲线起点里程）：C=（第二缓和曲线起点X）：D=（第二缓和曲线起点Y）：V=（第二缓和曲线起点计算方位角）：R=（第二缓和曲线所在的圆曲线半径）：L=（缓和曲线长）：I=-1（偏角为左角时I=-1，偏角为右角时I=1）：Prog“HQ1.SUB”?（转移至第一缓和曲线计算子程序“HQ1 .SUB”） LBl 2A=圆曲线起点里程：V=圆曲线的计算方位角：C=圆曲线起点X值：D=圆曲线起点Y值：R=圆曲线半径：I=（偏角为左角时I=-1，偏角为右角时I=1）：Prog“YQX .SUB”?（转移至圆曲线计算子程序“YQX .SUB”） LBl 3B=（第二缓和曲线起点里程）：E=（第二缓和曲线起点X）：F=（第二缓和曲线起点Y）：W=（第二缓和曲线起点计算方位角）：R=（第二缓和曲线所在的圆曲线半径）：L=（缓和曲线长）：I=-1：Prog“HQ2.SUB”?（转移至第二缓和曲线计算子程序“HQ2 .SUB”） LBl 4A=（第一缓和曲线起点里程）：C=（第一缓和曲线起点X）：D=（第一缓和曲线起点Y）：V=（第一缓和曲线起点计算方位角）：R=（第一缓和曲线所在的圆曲线半径）：L=（缓和曲线长）：I=-1（偏角为左角时I=-1，偏角为右角时I=1）：Prog“HQ1.SUB”?（转移至第一缓和曲线计算子程序“HQ1 .SUB”） LBl 5A=圆曲线起点里程：V=圆曲线的计算方位角：C=圆曲线起点X值：D=圆曲线起点Y值：R=圆曲线半径：I=（偏角为左角时I=-1，偏角为右角时I=1）：Prog“YQX .SUB”?（转移至圆曲线计算子程序“YQX .SUB”） LBl 6B=（第二缓和曲线起点里程）：E=（第二缓和曲线起点X）：F=（第二缓和曲线起点Y）：W=（第二缓和曲线起点计算方位角）：R=（第二缓和曲线所在的圆曲线半径）：L=（缓和曲线长）：I=-1：Prog“HQ2.SUB”?（转移至第二缓和曲线计算子程序“HQ2 .SUB”） LBl 7A=（直线起点里程）：C=（直线起点X）：D=（直线起点Y）：V=（直线起点计算方位角）：Prog“ .SUB”?（转移至直线计算子程序“ .SUB”） 说明： P为计算里程，以上程序按我所在施工段顺序编排，因标段的起点为圆曲线，故P的第一段里程范围为圆曲线。P≤(圆曲线终点里程)＝＞GOTO 0：≠＞P≤（第二缓和曲线终点）＝＞GOTO 1：意思是在圆曲线范围内进入第一个条件转移式既圆曲线转移式，不在圆曲线而在第二缓和曲线内进入第二个转移式既第二缓和曲线转移式。大家根据自己标段的实际情况进行编排。 Prog “LXZB1”因CASIO 4850 的条件转移量在单个程序里最多为15个条件，所以我选择在里程输入里转移到第二主程序“LXZB1”，如果大家在十五个条件转移量范围内能计算完自己标段可选择不转移继续输入。 注：以上主程序中“LBl 1”段为第一段圆曲线和第二段圆曲线所夹的缓和曲线整段为不完整曲线，既第一段圆曲线和第二段圆曲线公共一条缓和曲线，属于卵型曲线，因此按第一段圆曲线的半径，作为第一缓和曲线计算。如整段曲线为完整的则按第二缓和曲线计算。 LXZB1（第二主程序名） P≤（第一缓和曲线终点）＝＞GOTO 0：≠＞P≤（圆曲线终点里程）＝＞GOTO 1：≠＞P≤（第二缓和曲线终点）＝＞GOTO 2 （如标段没有结束以此形式类推） LBl 0A=（第一缓和曲线起点里程）：C=（第一缓和曲线起点X）：D=（第一缓和曲线起点Y）：V=（第一缓和曲线起点计算方位角）：R=（第一缓和曲线所在的圆曲线半径）：L=（缓和曲线长）：I=-1（偏角为左角时I=-1，偏角为右角时I=1）：Prog“HQ1.SUB”?（转移至第一缓和曲线计算子程序“HQ1 .SUB”） LBl 1A=圆曲线起点里程：V=圆曲线的计算方位