公路竖曲线高程的精确计算函数【修正版】.doc

公路竖曲线高程的精确计算函数【修正版】 公路竖曲线高程的精确计算函数【修正版】 CASIO 可编程计算器4850版【已修正】: Lbl0 Norm：Deg {Q}:QCHAINAGE Ai1:Bi2RUVPI STATIONFVPI ELEVATION C=tan-1(A÷100)：D=tan-1 (B÷100) AB0=AbsAAbsB=Z=-1:≠=Z=1⊿⊿ W=C-D：T=Rtan(AbsW÷2) E=TcosAbsC:G=RsinAbsC K=Q-U+E M=√(R2-(K-ZG)2) L=√(R2-G2)-AbsW(F-EA÷100)÷W Fix3 QU-E=H=F+A(Q-U)÷100:≠=H=AbsW(M-L)÷W⊿ H=:H◢ Goto0 i1和i2按%为单位输入 CASIO 可编程计算器5800带串列功能版【已修正】: Lbl0 Norm 2:Cls:ClrStat:0→N “--MODE SELECT--1.BATCH-TREAT 2.One BY One”?Z Z=1=Goto2 Lbl1 Cls:”CHAINAGE=”?Q If Q=-1000:Then Goto5:Else Goto4:IfEnd Lbl2 “BEGIN CH=”?O “END CH=”?Y “STEPS=”?S Lbl3 If Y≥O+NS:Then O+NS→Q:Else Goto5:IfEnd Lbl4 If N=0:Then “i1”?A:”i2”?B:?R:”VPI STATION”?U:”VPI ELEVATION”?F:IfEnd tan-1(A÷100)→C:tan-1 (B÷100)→D If AB0 And Abs(A)Abs(B):Then -1→I:Else 1→I:EndIf C-D→W:Rtan(Abs(W)÷2)→T Tcos(Abs(C))→E:Rsin(Abs(C))→G Q-U+E→K √(R2-(K-IG)2) →M √(R2-G2)-Abs(W)(F-EA÷100)÷W→L If QU-E:Then F+A(Q-U)÷100→H:Else Abs(W)(M-L)÷W→H:IfEnd Fix3 N+1→N Q→List X[N] H→List Y[N] If Z=1:Then Cls:“K”:Locate2,1,Int(Q÷1000):Locate7,1,+”:Locate8,1,Q-1000Int(Q÷1000):Locate1,2,”ELEV=”:Locate6,2,H:locate1,3,”PROGRAM IS RUNN-“: Locate1,4,”ING,PLEASE WAIT!”:Goto3 :Else“ELEVATION=”:H◢Goto1:IfEnd Lbl5 Cls “PROGRAM-END” 版本有两种计算模式——批量计算显示结果保存到串列和逐个计算显示结果并保存到串列的功能。i1和i2的值还是按%为单位。 在批量计算中，BEGIN CH=输入起始桩号，END CH=输入结束桩号，STEPS=输入桩号间隔步距值。 在逐个计算中，桩号输入-1000程序自动结束退出。 5800全线任意点设计高程计算，可计算竖曲线范围内外任意点的设计高程: “BPDZH=”?Z:“GC=”?H:“R=”?R:“I1=”? I:“I2=”?L ：“T=”:0.005RAbs(I -L) →T◢ “E=”: T2÷2÷R◢ Lbl 0:“JZZH=”?→K:Z-T→A:Z+T→B:K-A→C:B-K→D:K-Z→E←┘ If L I:Then 1→J:Else -1→J:IfEnd←┘ If KA:Then 0→C:Else KB =0→D: IfEnd←┘ If K≦Z:Then I→Y:C→G:Else K Z=L→Y:D→G: IfEnd←┘ Lbl 1:Fix 3:“H=”:H+EY÷100+JG2÷2÷R◢ Goto 0←┘ 说明：BPDZH：前变坡点桩号 用变量Z表示 H：前变坡点高程 R：半径 I L：前后纵坡值 输入格式：6.1%输入6.1，有负号的要输入负号 T：切线长 E：竖距 JZZH：待求点设计高程的桩号 用变量K表示 Fix 3：计算结果保留3位小数 天涯明月刀FX5800P高程计算之垃圾版 NFH[KZ](高程计算主程序) Lbl 1（数据初始化） Prog”SEL[HDT]” Prog”NH[JSYS]” Cls:”W0=”?X:Cls “[+ -]t0=”?Y Lbl 2（循环调用纵横数据计算高程） Do Cls:“KP=”?S:If S=-1:Then Goto 1:Else If SmaxX Or SminX:Then Cls:”---- KP