F1 SQX JS (竖曲线计算) 主程序
H ：B：I ：J ：T=RAbs (I－J) ／2▲： Q“QD”=B－T▲
U“ZD”=B+T▲
LbI 1：｛L｝：C=B－L：F=1：I＞J＝＞F=－1△L≤B＝＞P=I：Prog“GC” ▲
Goto 1▲
≠＞L＞B＝＞P=J：Prog“GC” ▲ Goto 1▲
≠＞I＜J＝＞F=1：△L≤B＝＞P=I：Prog“GC” ▲
Goto 1▲
≠＞L＞B＝＞P=J：Prog“GC” ▲
Goto 1 ←
F2 GC 子程序
G=H－CP(T-Abs C)2/2R ←
說明： 适于CASIO－4800xp
H—变坡点高程 B—变坡点里程 I—前一坡段坡度 上坡“＋”下坡“—” J—后一坡段坡度 上坡“＋”下坡“—” QD—变坡点起点里程ZD—变坡点终点里程 L—待求点里程 G—待求点高程

由本站论坛　xugongyiduan　标明原创。