MXK(CASIO5800P)__五种竖曲线高程计算.doc

竖曲线高程计算1. fx5800p全线高程计算SQXGCJSDeg：Fix 3Lbl 1:?K:“BJ”?B:“JGC”?GPorg “SQXSJK”If KA:Then C+(D-K)E-GH：Goto 2:Else KD =“H”C+(K-A)2R+(D-K)E-GH：Goto 2:If KI：Then C-(I-K)22R+(K-D)F-GH：Goto 2Lbl 2:B？“SJGC=”:HGoto 1“BZGC=”:H-B横破比ReturnSQXSJKLbl 0If K曲线终点:Then曲线起点A:交点高程C:交点桩号D:前坡比E:后坡比F:曲线终点I:半径R（EF下坡正上坡负）K=桩号，BJ=边距，JGC=结构层厚度2.公路路线高程通用程序（CASIO5800） 公路路线高程通用程序（CASIO5800）作者：李艳阳Fx-5800路线高程程序GCQX-000主程序Lbl 1: Prog“GCQX-SUB000” If R108: Then B+(S-A)(D-B) (C-A)H: Goto2: IfEndPol(D-B,C-A):J-Sin-1(I2R)F:B+R Cos(F+90)X:A+R Sin(F+90)Y: Sin-1(S-Y) R)M:X+R Cos(M)H: Goto2Lbl 2: “H=”:H: Goto1GCQX-000数据库If S*: Then *A(线元起点里程): *B(线元起点高程): *R(线元半径左-右+): *C(线元终点里程): *D(线元终点高程): Goto 0:IfEndIf SX=-1BZ1=0:Z2=N: BZ1=1:Z2=N: BZ1=1:Z2=P: Z1=0:Z2=PW:W“ZBJ”（中桩到边桩的距离）:Prog“YD”:Goto 0YD引导程序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边轴旋转):Z5= 1（路线弯向：+1右转、-1左转）: B=A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点 桩号）:Z（加宽值）:F=1(旋转方式：+1中轴旋转、-1边轴旋转):Z5= 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)ZC: Abs(B-A) Abs(G-A) =A=O: A=AI=Abs(B-A)(E+D) C-E:IE=Goto 1: ID=Goto 2: Goto 3Lbi 1:J=I:K=E: Prog“G2”: Goto 4Lbi 2:J= AbsI:K= AbsI: Prog“G2”: Goto 4Lbi 3:J=D:K=D: Prog“G2”: Goto 4Lbi 4BZXZ边轴旋转横坡计算Lbi 0:Q=2E(E+D)C:M=Abs(B-A)ZC: Abs(B-A) Abs(G-A) =A=O: A=AAbs(B-A) Goto 1: Abs(B-A) Goto 2: Goto 3Lbi 1: J=(Abs(B-A) 2EQ-E:K=E: Prog“G2”: Goto 4Lbi 2: J=(Abs(B-A)-Q)(D-E) (C-Q)+E:J=AbsJ:K=AbsJ: Prog“G2”: Goto 4Lbi 3: J=D:K=D: Prog“G2”: Goto 4Lbi 4G1不设超高的高程计算W=AbsW:Z3=H-V-Z2(Y-B)+Z1X(T-Abs(Y-B)2(2R)-WE:Z6=S-Z3: “SJG=”:Pause 0: “SJQS=”:Z6 G2设置超高的高程计算J=D=M=Z: M=MZ5=1= Goto 1: Z5=-1 = Goto 2Lbi 1:WZ4=J: W0=Z4=-K: Goto 3Lbi 2: WZ4=-K: W0=Z4=J: Goto 3Lbi 3:Z3=H-V-Z2(Y-B)+Z1X(T-Abs(Y-B)2(2R)-WZ4:Z6=S-Z3: “SJG=”:Z3:pause0: “SJQS=”:Z6 说明：一、输入部分选择主程序。按EXE键1、BM+HS?-输入仪器视线高 按EXE键2、LGP？-输入路拱坡度 （1.5输入正值 .015） 按EXE键3、JGC?-输入结构层厚度 按EXE键4、K？-输入放样桩号 按EXE键5、ZBJ?-输入中边距离（左输负、右输正、中桩输0）按EXE键二、显示部分SJG=显示待测点的设计高程SJQS= 显示待测点设计高程和仪器视线高的差（设计前视）三、连续操作重复输入部分的第4、5步，即可完成整个路段的连续计算及放样工作！4. 5800高程全线计算主程序: 1-E.BGLbl 1：Fix 3:？K:Prog”Z.EBG”: R Abs(D-C)/2T:if D-C :Then 1W:Else -1W:ifend if K:Then Z+ILH:HS=:HGoto:Else Z+IL+W(T-L)2/2/RH:HS=:HifendLbl : “h”？O:”ZHONG=B”？N:”HP”？J:H-O+(N-0.75)JB:HB=:BGoto 1数据库: Z.EBGif K332.599:Then 0.02793C:-0.03309D:1800R:235A:32.7Z: goto 1:ifend if K734.085:Then -0.03309C:-0.00485D:6000R:460A:25.254Z: goto 1:ifend .Lbl 1C前坡:D后坡:R呵呵,都知道是什么!A变坡点:Z变坡点设计高O从设计高程点处垂直向下的距离:N距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J所求桩号处的横坡.5. KASIO超高及高程casio4800超高及高程（源程序）供参考超高及高程（源程序）L1:R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(GF)2:X“X(R+1,L-1)”:P“P(R+,L-1)”L2:Lbl 6 : SL3:S+TN0D=O+(SN)F:SN0 D=O+(SN)FU(SN+T)22V: SNTD=O+(SN)GU(TS+N)22V:D=O+(SN)GD“ H=” L4:R E=: M=Goto 1: R0 Goto 3 :Goto 4L7:Lbl4:S Z I=0.02 : Goto 5:SZ+C   5L8: Lbl 3 : Z1=0.04(EPX+0.02)C : S Z + Z1I=0.02 : Goto 5:SZ+C   5L9: Lbl 5 : B : W“HB”=DIBL10: Goto 6说明：R:平曲线半径L“LS”:缓和曲线长P：偏转，Z=1,Y=1 X“XL”：线路（Z,Y）左线1