4800P公路中桩坐标计算(按线路前进方向执行).docVIP

公路中桩坐标计算（）”X[0]“：B“Y[0]”：F“F[0]”：E“K[0]” P 1 Prog“ZX”: ≠ P 2 Prog“YQX”: ≠ P 3 Prog“HHQX1”: ≠ P 4 Prog“HHQX2” X[0]---起点坐标X Y[0]---起点坐标Y F[0]---起点方位角 K[0]---起点桩号 P-----线形判断 P 1直线段、P 2圆曲线段、P 3第一段缓和曲线、P 4第二段缓和曲线 子程序1 ZX LbI 0： K :X A+Rec K-E ,F Y B+J Goto 0 K---计算点桩号 E---起算点桩号 子程序2 YQX Lb1 1： K ：Q 180（K-E）÷（ЛR）：W 0 X A+Rec 2Rsin Q÷2 ，（F-Q÷2） Y B+J H F- K-E ×180÷（ЛR） Goto1 ≠ W 1 X A+Rec 2Rsin Q÷2 , F+Q÷2 Y B+J H F+ K-E ×180÷（ЛR） Goto1 W---判断曲线偏向（W 0偏右、W 1偏左） H---计算点该点的切线方位角 子程序3 HHQX1 Lbl2 K :S K-E- K-E ^5/ 40R^2L^2 + K-E ^9/ 3456 R^4L^4 :T K-E ^3/ 6RL - K-E ^7/ 336 R^3L^