全线坐标放样(己的).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