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→
竖曲线高程计算主程序(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≦
竖曲线全线高程计算程序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
CASIO5800计算器公路竖曲线全线高程计算程序??????????????????????????:李俊Lb1?? 1↙If??S188716??AND??S≥0 :Then??0005→A : 006429→B : 165→K : 181525→G : 800→R : Goto??2 : IfEnd↙If??S572748??AND?S≥188716 :Then??00642
#
竖曲线标高计算程序(加了数据库)主程序名: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
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÷
Fx-5800p任意曲线中边桩平曲竖曲隧道超欠挖程序本程序结合任意曲线中边桩坐标计算隧道超欠挖隧道坐标正反算于一体只需运行一个主程序即可真正做到全线贯通本程序由一个主程序一个正算子程序两个反算子程序一个平曲线数据库一个竖曲线数据库组成本程序为线元参数可计算任意曲线中边桩坐标以及隧道三维坐标主程序(ZBZFS)运行Fix 3 :4→ DimZ : ″=>XY ″: ″=>SZ″: ″=>XYFH″:
违法有害信息,请在下方选择原因提交举报