5800P编程任何线型中边桩坐标计算OK..docVIP

左向卵形曲线计算图示2: JD1 X=9858.265 Y=10034.988 R=75 卵形曲线长Ls=48.166 JD2 X=9949.871 Y=10155.449 R=50 QD K0+084.182 X=9922.319 Y=10007.905 (QX)FWJ=157 04 52 YH K0+196.332 X=9880.441 Y=10100.900 (QX)FWJ=71 24 17.4 终点 HY K0+244.498 X=9910.602 Y=10136.790 (QX)FWJ=25 24 34.8 ZD K0+316.067 X=9973.800 Y=10119.149 (QX)FWJ=303 23 51.5 JD2 起点 ↑卵曲线 JD1 5800任意线型中边桩坐标计算程序（卵形曲线示例）RYSX ZB JS (主程序)Lb1 1: “K”? K:Prog “ S1 ” ↙ (R -D)/Abs(Z - Q)→P: Abs(K - Q)→C: PC→E↙F＋（E＋2D）×C×90÷π→J↙F＋（E÷8＋2D）×C×45÷（4π）→M↙F＋（3 E÷8＋2D）×C×135÷（4π）→N↙F＋（5 E÷8＋2D）×C×225÷（4π）→U↙F＋（7 E÷8＋2D）×C×315÷（4π）→V↙F＋（E÷4＋2D）×C×45÷（2π）→H↙F＋（E÷2＋2D）×C×45÷π→O↙ F＋（3 E÷ 4＋2D）×C×135÷（2π）→ G↙“X=”:A＋C÷24×（cos（F）＋4×（cos（M）＋cos（N）＋cos（U）＋cos（V））＋2×（cos（H）＋cos （O）＋cos（G））＋cos（J））→X ◢“Y=”:B＋C÷24×（sin （F）＋4×（sin（M）＋sin（N）＋sin（U）＋sin（V））＋2×（sin （H）＋sin （O）＋sin （G））＋sin（J））→Y ◢??Lb1 1:?W:? L:? I↙“XL=”:X＋Lcos（J－W）◢??“YL=”:Y＋Lsin（J－W）◢??“XR=”:X＋Icos（J＋W）◢??“YR=”:Y＋Isin（J＋W）◢ Goto 1S1（数据库）子程序If K≤终点桩号：Then起点桩号→Q:起点X坐标→A:起点Y坐标→B： 起点切线方位角→F：起点曲率1/R1→D:终点曲率1/R2→R: （如是直线均输0） Goto 0:If End换行下一个线元要素输入同上。。。。。。。。。。。 。。。。。。。。。。。。。。。。。。。Lb1 0：Return ↙说明：曲率 “1/R1”? D: “1/R2”?R 为起终点半径的倒数. 左向为负右向为正.若有多条路线数据库建如S2, S3。。。。。S5在使用时把主程序S1根据计算需要改为S2。。。。。S5要计算线路即可。K为待求点里程, W为夹角，L为左边距，I为右边距。 （ 卵形曲线计算 ）逐桩坐标计算表 序号 里 程 中 边 桩 X 坐 标 Y 坐 标 切线方位角 1 QD K0+084.182 中桩 9922.319 10007.905 157度04分52秒 2 K0+084.182 左11.25米 9926.700 10018.267 157度04分52秒 3 K0+084.182 右11.25米 9917.938 9997.543 157度04分52秒 4 K0+089.182 中桩 9917.782 10010.004 153度15分41秒 5 K0+089.182 左11.25米 9922.844 10020.051 153度15分41秒 6 K0+089.182 右11.25米 9912.720 9999.957 153度15分41秒 7 K0+094.182 中桩 9913.395 10012.401 149度26分30秒 8 K0+094.182 左11.25米 9919.115 10022.088 149度26分30秒 9 K0+094.182 右11.25米 9907.675 10002.713 149度26分30秒 10 K0+099.182 中桩