CASIO fx-5800P SQX 竖曲线高程计算程序主程序:SQX第1步 Lbl A:8→DimZ:Fix 6第2步 1=>XS:2=>DH:Q:Lbl B:DKC:Prog SQXSJ:A→Z[1]:B→Z[2]:C→Z[3]:If (Z[1]-Z[2])<0:Then 1→Z[8]:Else -1→Z[8]:IfEnd第3步 R×Abs(Z[1]÷100-Z[2]÷100)→L:L÷
竖曲线高程计算主程序(5800)Lbl A:K:Prog:竖曲线元素库子程序:A-T→E:AT→F ←If K=A:Then Goto 5:IfEnd ←If K≤E:Then Goto 3:IfEnd ←If K≥F:Then Goto 4:IfEnd ←If K<A:Then Goto 1:IfEnd ←If K>A:Then Goto 2:IfEnd ←Lbl 1:K-E→X:X2÷(
竖曲线标高计算程序(加了数据库)主程序名:SQXBGLbi1:{H}:H:ProgSJK:F=C-D:T=Abs(RF÷2:R=RAbsF÷F:H≤B-T=>K=0:≠=>H≥BT=>K=0:C=D:≠=>K=H-BT⊿⊿G=A-(B-H)C-K2÷2R▲Goto1子程序:SJKH≤第二竖曲线起点桩号()=>A=第一竖曲线交点高程():B=第一竖曲线交点桩号(4980):C=第一竖曲线前坡度(.0
#
#
5800竖曲线计算程序(主程序)Lbi1: H H: ProgSJK: C-D →F:Abs(RF2)→T:R((AbsF )F)→R :IF H≤B-T: Then 0→K : Else If??H≥BT:??Then??0→K : D →C : Else?? H-BT→K:??IfEnd????: IfEnd??↙A-(B-H)C-K∧22R →G:G=G▲Goto1子程序:SJKif ?H≦
单击此处编辑母版标题样式单击此处编辑母版文本样式第二级第三级第四级第五级公路工程竖曲线高程计算福永项目部1.竖曲线的作用及线性竖曲线的作用(1)缓冲作用:以平缓曲线取代折线可消除汽车在变坡点的冲击(2)保证公路纵向的行车视距: 凸形:纵坡变化大时盲区较大 凹形:下穿式立体交叉的下线(3)将竖曲线与平曲线恰当的组合有利于路面排水和改善行车的视线诱导和舒适感 凸形竖曲线主要控制因素
竖曲线精确计算程序?A=前坡度:B=后坡度:R=半径:C=变坡点桩号:D=变坡点高程E=R÷cos((tan-1 A- tan-1 B)÷2)-RE 外矢距;T= ((R+E)2-R2) 05 T 切线长;J= Abs(Tcostan-1A) J ,变坡点与前切点在水平方向上的距离;O= Abs(Rsintan-1 A) O前切点与圆心在水平方向上的距离;G=C-J?G前切点里程;K=
#
#
违法有害信息,请在下方选择原因提交举报