欢迎来到天天文库
浏览记录
ID:10924348
大小:45.00 KB
页数:2页
时间:2018-07-09
《casiofx-5800psqx竖曲线高程计算程序v5》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、CASIO卡西欧计算器程序网站:http://www.fffsky.com/blog论坛:http://dict.5d6d.net适用:CASIOfx-5800PQQ:295188316CASIOfx-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=":Loca4、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:205、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:295188316数据输入说明:第1步Goto1第2步Lbl1:IfC<本条线路竖曲线起点里程C>本条线路竖曲线止点里程nCls:Locate2,2,"SQX":Locate4,3,"CHAOXIAN":Locate10,4,"→Stop"◢第37、步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
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:295188316数据输入说明:第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
此文档下载收益归作者所有