竖曲线计算程序 供参考

《竖曲线计算程序 供参考》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、竖曲线计算程序本程序只需按程序提示输入三个变坡点的桩号和高程，再输入竖曲线半径，即可随心所欲的计算任意点的纵断高程。可以大大减少使用者在现场的工作量。一、程序清单1、CASIOFχ5800计算程序“BP1”？A:“BP1H”？G:“BPD”？B:“BPDH”？I:LbI0:“BP2”?→C:“BP2H”?→J:“R”?→R:B-A→D:C-B→F:I-G→K:J-I→M:K÷D→N:M÷F→O:N-O→P:“T”:Abs(RP÷2)→T▲“E”:T²÷﹙2R)▲B-T→W:B+T→X:G+N(W-A)→Y﹕I+OT→Z︰LbI1“KM”?→Q:Q>X=>Goto2:WhileQ﹤W

2、﹕Q-A→S︰G+SN→V▲Goto1:WhileEnd:WhileQ≦BAndQ>W﹕Q-W→S︰IfP﹥0∶ThenY+SN-S²÷(2R)→V▲ElseY+SN+S²÷(2R)→V▲IfEnd∶Goto1:WhileEnd:WhileQ≦XAndQ>B﹕X-Q→S︰IfP﹥0∶ThenZ-SO-S²÷(2R)→V▲ElseZ-SO+S²÷(2R)→V▲IfEnd∶Goto1:WhileEnd:LbI2:B→A:C→B:I→GJ→I:Goto02、CASIOFχ45004800计算程序LbI0:{CJR}:A“BP1”:G“BP1H”:B“BPD”:I“BPDH”:C“BP2”

3、:J“BP2H”:D=B-A:F=C-B:K=I-G:M=J-I:N=K/D:O=M/F:P=N-OT=Abs(RP÷2)▲E=T²÷﹙2R)▲W=B-T:X=B+T:Y=G+N(W-A)﹕Z=I+OTLbI1:{Q}:Q“KM”:Q>X=>Goto2⊿Q﹤W=>S=Q-A︰V=G+SN▲⊿Q≦B=>Q>W=>S=Q-W:P﹥0=>V=Y+SN-S²/(2R)▲≠>V=Y+SN+S²/(2R)▲⊿⊿⊿Q≦X=>Q>B=>S=X-Q︰P>0=>V=Z-SO-S²/(2R)▲≠>V=Z-SO+S²/(2R)▲⊿⊿⊿Goto1LbI2:A=B:B=C:G=I:I=J:Goto03、程序提

4、示符号含义及程序使用说明BP1BP1H-------前一变坡点里程桩号及高程；BPDBPDH-------竖曲线变坡点里程桩号及高程；BP2BP2H-------后一变坡点里程桩号及高程；R----竖曲线半径T-----切线长；E-----外矢距；ZXG-----计算中线高程首先按程序提示输入7个参数，计算前一变坡点至竖曲线终点的纵段高程。当输入桩号大于竖曲线终点时，程序会自动提示输入后一变坡点的桩号及高程，以及下一竖曲线半径，输入三个参数后即可进行下一段纵段高程的计算。校核程序时，可以随便找一本纵断设计图进行校核，这里不再举例。