| 公路路线高程通用程序（CASIO5800） 作者：李艳阳 Fx-5800路线高程程序 GCQX-000 主程序 Lbl 1: Prog“GCQX-SUB000” ↙ If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙ Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+R Sin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙ Lbl 2: “H=”:H: Goto1 GCQX-000 数据库 Goto0↙ Lbl 0↙ If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程): ***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Return:IfEnd↙ If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Return:IfEnd↙ ………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。如是直线R可用10^45输入。本程序可用于圆曲线与直线的中线高程计算。 1、 输入与显示说明 S？ 输入里程 H= 输出高程 2、本程序只能用于直线和圆曲线，不适用于其它曲线 |
|【路桥隧】
( 湘ICP备16018960号-1 ) QQ群：
GMT+8, 2026-4-2 08:21
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.
