CASIO fx-5800P任意线型中边桩坐标计算程序（附计算实例）

左向卵形曲线计算图示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 1
S1（数据库）子程序
If K≤终点桩号：Then起点桩号→Q:终点桩号→Z：起点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为右边距。

（ 卵形曲线计算 ）逐桩坐标计算表