竖曲线全线高程计算程序Lb1?? 1↙ K=k◢???? (计算点里程输入) If?? k<?? AND?? K≥ :Then?? -→A : 0→B : →S : →G : 600000→R : Goto?? 2 : IfEnd↙ If?? k<?? AND?? K≥ :Then?? -→A : -→B : →S :→G : 100000→R : Goto?? 2 : IfEnd↙ If?? k
竖曲线高程计算主程序(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÷(
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≦
#
#
卡西欧5800计算器程序曲线段主程序:→XY: →SZ:N: XOU: YOV:SOO: SNI: FOG: LSH: ROP: RNR: JIAJIAOT:Q:1÷P→C(P-R)÷(2HPR)→D:18÷π→ E:IfN=1:ThenGoto0:ElseGoto1:IfEnd:Lbl0:S:Z:IfS>I:ThenCHUJIE ◢Goto0:IfEnd:Abs(s-0)→W:ProgSU
第2页
5800竖曲线高程超高程序 2010510 主程序:(高程序横坡程序设计任意点高程及横坡)程序名:GCJS-000LbI 0:Norm 2↙ KMZ:D: ↙Prog GCJSZCX1:Fix 3: H=:Locate 64H◢↙ I=: Locate 64I◢↙Goto 0↙子程序:程序名:GCJSZCX1Prog GCJSSUK1:R:T:C:G:I:C-T→
#
超级精典的竖曲线4800计算程序,可以计算直线与竖曲线的设计标高 通杀Lbl 3:T:i”i1”:D”i2”:R:H:(Z=Z+F):V:L=Z-Q:L0?L=L*-1:◣ZQ?M=I: ??M=D:◣?{Z}?L≤T?K=H+M*L+((T-L)^2/R)*V◢???K=H+M*L◢◣?Goto 3?T:竖曲线切线 D:I:左侧坡度 D:右侧坡度 R:竖曲线半径Z:任意点桩号 Q:竖曲线交点
违法有害信息,请在下方选择原因提交举报