MXKCASIO5800P五种竖曲线高程计算.docVIP

竖曲线高程计算 1. fx5800p全线高程计算 SQXDeg：Fix 3 Lbl 1: ?K:“BJ”?B:“JGC”?G Porg “SQXSJK” If K≤A:Then C+(D-K)×E-G→H：Goto 2:Else K≤D =＞“H”C+(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:B？“SJGC=”:H◢Goto 1“BZGC=”:H-B×横破比ReturnSQXSJKLbl 0If K≤曲线终点:Then曲线起点→A:交点高程→C:交点桩号→D:前坡比→E:后坡比→F:曲线终点→I:半径→R（EF下坡正上坡负）K=桩号，BJ=边距，JGC=结构层厚度公路路线高程通用程序（CASIO5800）?? 公路路线高程通用程序（CASIO5800）??????????????????????????????????作者：李艳阳Fx-5800路线高程程序GCQX-000??????????????主程序Lbl 1: Prog“GCQX-SUB000” If R10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+R Sin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙Lbl 2: “H=”:H: Goto1GCQX-000????????????????数据库If S***: Then ***→A(线元起点里程): ***→B(线元起点高程): ***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Goto 0:IfEndIf S***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Goto 0:IfEnd↙……………………….. Lbl 0↙ 3.CASIO4850)中边桩高程连续计算及放样**可计算两种形式的超高 [SJG]————主程序?Defm 6:Lbi 0:S“BM+HS”（视线高）:E“LGP”（路拱坡度）:V“JGC”（结构层厚度）: {B}:B“K”（查询桩号）:Prog“SQ”:T=RAbs(P-N) ÷2:X=1:N＞P=X=-1←┘BY-T=Z[1]=0:Z[2]=N: ≠BY=Z[1]=1:Z[2]=N: ≠BY+T=Z[1]=1:Z[2]=P: ≠Z[1]=0:Z[2]=P⊿⊿⊿←┘{W}:W“ZBJ”（中桩到边桩的距离）:Prog“YD”:Goto 0[YD]—————引导程序B≤?不设超高的路段终点桩号= Prog“G1”: ≠B≤设置超高的路段终点桩号= Prog“XZ”：……以此类推（有几个≠就有几个）[SQ]—————竖曲线数据库B≤下一竖曲线起点桩号=H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）：P（后纵坡坡度）：≠ B≤下一竖曲线起点桩号=H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）：P（后纵坡坡度）：……（有几个≠就有几个）[XZ]—————平曲线数据库B≤=A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点 桩号）:Z（加宽值）:F=±1(旋转方式：+1中轴旋转、-1边轴旋转):Z[5]= ±1（路线弯向：+1右转、-1左转）: ≠ B≤=A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点 桩号）:Z（加宽值）:F=±1(旋转方式：+1中轴旋转、-1边轴旋转):Z[5]= ±1（路线弯向：+1右转、-1左转）：……C=O-G: Goto 1（有几个≠就有几个）←┘Lbi 1:F=1 = Prog“ZZXZ”: ≠F=-1 = Prog“BZXZ” [ZZXZ]————中轴旋转横坡计算Lbi 0:M=Abs(B-A)Z÷C: Abs(B-A) ＞Abs(G-A) =A=O: ≠A=AI=Abs(B-A)(E+D) ÷C-E:I≤E=Goto 1: ≠I≤D=Goto 2: ≠Goto 3⊿⊿⊿⊿Lbi 1:J=I:K=E: Prog“G2”: Goto 4←┘Lbi 2:J= AbsI:K= AbsI: Prog“G2”: Goto 4←┘Lbi 3:J=D:K=D: Prog“G2”: Goto 4←┘Lbi 4[BZXZ]———边轴旋转横坡计算Lbi 0:Q=2E÷(E+D)×C:M=Abs(B-A)Z