#
#
SQXJSCX↙Lb1?? 1↙CLs:Fix??3↙(这句可以不要)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
CASIO5800计算器公路竖曲线全线高程计算程序 SQXJSCX↙Lb1?? 1↙CLs:Fix?? 3↙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 : 100
#
竖曲线高程计算1. fx5800p全线高程计算SQXGCJSDeg:Fix 3Lbl 1:K:BJB:JGCGPorg SQXSJKIf K≤A:Then C(D-K)×E-G→H:Goto 2:Else K≤D =>HC(K-A)÷2÷R(D-K)×E-G→H:Goto 2:If K≤I:Then C-(I-K)2÷2÷R(K-D)×F-G→H:Goto 2Lbl 2:BSJGC=:H
竖曲线高程计算主程序(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≦
竖曲线全线高程计算程序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
违法有害信息,请在下方选择原因提交举报