1、CASIO 卡西欧计算器程序 网站： http:/ 论坛： http:/ 适用： CASIO fx-5800P Q Q： 若有疑问请至 Email： CASIO fx-5800P SQX 竖曲线 高程计算 程序 V1.5 主程序 ： SQX 第 1 步 Lbl A： 8 DimZ： Fix 6 第 2 步 1=XS： 2=DH ： ?Q： Lbl B： DK ?C： Prog SQXSJ ： A Z1： B Z2： CZ3： If （ Z1-Z2） K And Z3 Z5： Then H+（ Z3-K） Z2 100 Z6：（ Z5-Z3） （ 2） 2 R Z7： Z6+Z7 Z8 X：
2、Goto 3： Else If Z3 Z5：Then H+（ Z3-K） Z2 100 X： IfEnd 第 5 步 Lbl 3： If Q=1： Then Goto 1： Else Goto 2： IfEnd 第 6 步 Lbl 1： Cls： ZY= ： Locate 4,1,Z4： YZ= ： Locate 4,2,Z5： L= ： Locate 4,3,L： T= ： Locate 4,4,T 第 7 步 Goto A 第 8 步 Lbl 2： Cls： DK= ： Locate 4,1,C： DH= ： Locate 4,2,X 第 9 步 Goto B 数据库： SQXSJ 第 1
3、 步 Goto 1 第 2 步 Lbl 1： If C12000： Then Cls： Locate 2,2, SQX ： Locate 4,3, CHAOXIAN ：Locate 10,4, Stop 第 3 步 Stop： IfEnd 第 4 步 Lb1 1： If C本条线路竖曲线止点里程 n Cls： Locate 2,2, SQX ：Locate 4,3, CHAOXIAN ： Locate 10,4, Stop 第 3 步 Stop： IfEnd 第 4 步 Lbl 1： If CXS： 2=DH Q? 2 （ 输入 1 为显示要素、输入 2 为计算高程 ） DK?= 10000 （ 计算里程 ） DK= 10000 （ 显示计算里程 ） DH= 333.319 （ 高程计算结果 ） 说明：按 EXE 键输入里程可进行连续计算。 运行主程序 SQX 1=XS： 2=DH Q? 1 （输入 1 为显示要素、输入 2 为计算高程） DK?= 10000（ 计算里程 ） ZY= 11162.000 （直圆桩号） YZ= 11212.000（圆直桩号） L= 50.000（曲线长） T= 25.000（切线长） 程序在线下载地址： http:/
