卡西欧5800p 竖曲线程序

你要的程序还是手算例：R=800 Lc=150(缓和曲线长），先把度化成弧度180°∕∏=57.295779计算总偏角： Sn=(150×90°)÷(3∏×800)=1°47′25.78″ 算任一点偏角：SN'=（572.95779×1502）÷（60×800×150）=1°47′25.78″弦长：C=L-（1505÷（90×8002×1502）=149.9414063 圆曲线 例R=800 Lq=150曲线长先把度化成弧度180°∕∏=57.295779总偏角：Sn=(150×90°)÷(∏×800)= 5°22′17.33″假如HY里程为K52000，求K52010SN=(10×90°)÷(∏×800)= 0°21′29.16″弦长：C=L-（1505÷（90×8002×1502）=149.9414063

竖曲线（凸）

”LC[K=]”?->K

K-（BPK）->N 注解：BPK为变坡里程 ；

IF N＜0:THEN H+N×-I1->G 注解：H为变坡点高程，I1为第一变坡坡度；

:ELSE H+N×-I2->G:IFEND注解：I2为第二变坡坡度；

IF AbsN＜T:THEN G+(T-AbsN)2÷2÷R÷-1->H:IFEND 注解：T为切线长；R为半径；当为凹型曲线时-1为1。

“H=”:H▲

说明：在计算器中每句程序可以用“:”来连接；“▲”为计算器中的暂停符号；程序中的蓝色字母为可变量。

---