casiofx-5800psqx竖曲线高程计算程序v5

《casiofx-5800psqx竖曲线高程计算程序v5》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、CASIO卡西欧计算器程序网站：http://www.fffsky.com/blog论坛：http://dict.5d6d.net适用：CASIOfx-5800PQQ：２９５１８８３１６CASIOfx-5800PSQX竖曲线高程计算程序V1.5主程序：SQX第1步LblA：8→DimZ：Fix6第2步＂1=>XS：2=>DH＂：?Q：LblB：＂DK＂?C：Prog＂SQXSJ＂：A→Z[1]：B→Z[2]：C→Z[3]：If（Z[1]-Z[2]）<0：Then1→Z[8]：Else-1→Z[8]：I

2、fEnd第3步R×Abs（Z[1]÷100-Z[2]÷100）→L：L÷2→T：T^（2）÷2÷R→E：K-T→Z[4]：Z[4]+L→Z[5]第4步IfZ[3]≤Z[4]：ThenH-（K-Z[3]）×Z[1]÷100→X：Goto3：ElseIfZ[3]≥Z[4]AndZ[3]

3、3：ElseIfZ[3]>KAndZ[3]≤Z[5]：ThenH+（Z[3]-K）×Z[2]÷100→Z[6]：（Z[5]-Z[3]）^（2）÷2÷R→Z[7]：Z[6]+Z[7]×Z[8]→X：Goto3：ElseIfZ[3]≥Z[5]：ThenH+（Z[3]-K）×Z[2]÷100→X：IfEnd第5步Lbl3：IfQ=1：ThenGoto1：ElseGoto2：IfEnd第6步Lbl1：Cls：＂ZY=＂：Locate4,1,Z[4]：＂YZ=＂：Locate4,2,Z[5]：＂L=＂：Loca

4、te4,3,L：＂T=＂：Locate4,4,T◢第7步GotoA第8步Lbl2：Cls：＂DK=＂：Locate4,1,C：＂DH=＂：Locate4,2,X◢第9步GotoB数据库：SQXSJ第1步Goto1第2步Lbl1：IfC<5000.000OrC>12000：ThenCls：Locate2,2,＂SQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lb11：IfC<5900：Then5800→K：323.527→H：20

5、000→R：-0.5800→A：0.4200→B：Return：IfEnd第5步Lb11：IfC<8982：Then8910→K：336.589→H：20000→R：0.4200→A：-0.3000→B：Return：IfEnd第6步Lb11：IfC<12000：Then11187→K：329.758→H：20000→R：-0.3000→A：-0.5500→B：Return：IfEnd第n步……………………………………………………注意：数据库中第2步止点里程12000和最后一步中的止点里程12000一

6、致，否则计算最后一段直坡会出现错误。——若有疑问请至Email：ceo@fffsky.comCASIO卡西欧计算器程序网站：http://www.fffsky.com/blog论坛：http://dict.5d6d.net适用：CASIOfx-5800PQQ：２９５１８８３１６数据输入说明：第1步Goto1第2步Lbl1：IfC<本条线路竖曲线起点里程C>本条线路竖曲线止点里程nCls：Locate2,2,＂SQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3

7、步Stop：IfEnd第4步Lbl1：IfC<本条竖曲线圆直桩号或止点桩号：Then变坡点桩号→K：变坡点高程→H：竖曲线半径→R：第一纵坡（百分数单位）→A：第二纵坡（百分数单位）→B：Return：IfEnd第n步Lbl1：每增加一行则为增加一个竖曲线要素。程序演示步骤：运行主程序SQX1=>XS：2=>DHQ?2（输入1为显示要素、输入2为计算高程）DK?=10000（计算里程）DK=10000（显示计算里程）DH=333.319（高程计算结果）说明：按EXE键输入里程可进行连续计算。运行主程序

8、SQX1=>XS：2=>DHQ?1（输入1为显示要素、输入2为计算高程）DK?=10000（计算里程）ZY=11162.000（直圆桩号）YZ=11212.000（圆直桩号）L=50.000（曲线长）T=25.000（切线长）程序在线下载地址：http://www.fffsky.com/blog/post/SQX-5800.html——若有疑问请至Email：ceo@fffsky.com