程序卵形曲线上各点位中桩和边桩坐标方法.docVIP

卵形曲线上各点位中桩及边桩坐标的程序 直线线路上点的坐标简单易算，但卵形曲线上点的坐标计算则较复杂，为了便于掌握运用，下面介绍一种施工实践中应用CASIOfx-4800PA型计算机程序计算卵形曲线上点位中桩及边桩坐标的方法。 程序清单及说明： Fi LXQXFY（文件名） L1 A：R：G：B：C：D：E：O：P O（B，C）HY点里程及坐标； P（D，E）YH点里程及坐标； A缓和曲线参数；R曲线半径；G曲线左右判定条件。 L2 Defm 2 扩大内存 L3 L = V2/R：V= O- L L为缓和曲线总长，V直缓点里程。 L4 PoL（（D-B），（E-C）） L5 K=J：J＜0?K=J+360△ K为缓圆至圆缓方位角。 L6 N=K-G（90（P-O）/π/R） N为缓圆点切线方位角。 L7 Q“QX” =L-L3/40/R2+L5/3456/R4- L7/599040/R6 L8 W“WY”=（L2/6/R-L4/R3/336+L6/42240/R5-L8/9676800/R7 Q“QX”、 W“WY”为切线支距坐标。 L9 M=N-G（90L/π/R） M直缓点切线方位角。 L10 Rec(√（Q2 + W2），﹝K+G（180-90（P-O）/π/R -（90L/π/R-tan-1 （W/Q）））) 圆缓点总偏角 90（P-O）/π/R圆曲线弦切角； 90L/π/R-tan-1（W/Q）缓圆点切线角。 L11 Z﹝1﹞=B+I：Z﹝2﹞=C+J 直缓点坐标。 L12 LbI 0 L13 ﹛H,T,U﹜ 待求点要素 H所求点里程；T边距；U 交角（左为-，右为+）。 L14 H＜O?Goto 1 △ L15 H＜P?Goto 2 △ L16 LbI 1 L17 S=（H-V） S：所求点至直缓点曲线长。 L18 Q=S-S5/40/R2/L2+S9/3456/R4/L4-S13/599040/R6/L6 L19 W=S3/6/R/L-S7/336/R3/L3+S11/42240/R5/L5 –S15/9676800/R7/L7 切线支距坐标 L20 Rec(√（Q2 + W2），（M+G（tan-1 (W/Q)）） √（Q2 + W2）直缓点至所求点弦长； tan-1 (W/Q) 直缓点至所求点弦切角。 L21 X“XZ”=Z（1）+I △ L22 Y“YZ”=Z（2）+J △ 中桩坐标 L23 Rec(T，（M+G（90S2/π/R/L）+U）) L24 X“XB”=X+I △ L25 Y“YB”=Y+J △ 边桩坐标 L26 Goto 0 L27 LbI 2 L28 S=H-Ｏ 所求点到HY曲线长 L29 Q=Rsin（180S/π/R）：W=R（1-cos（180S/π/R ）） L30 Rec(√（Q2 + W2），（N+G（tan-1 (W/Q)））) 切线支距坐标 L31 X“XZ”=B+I△ L32 Y“YZ”=C+J△ 中桩坐标 L33 Rec(T，（N+G（2（tan-1 (W/Q)））+U)） L39 X“XB”=X+I△ L40 Y“YB”=Y+J △ 边桩坐标 L41 Goto 0