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=結(jié)構(gòu)層厚度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數(shù)據(jù)庫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豎曲線數(shù)據(jù)庫B下一豎曲線起點樁號=H（本曲線變坡點高程）：Y（變坡點樁號）：R（豎曲線半徑）：N（前縱坡坡度）：P（后縱坡坡度）： B下一豎曲線起點樁號=H（本曲線變坡點高程）：Y（變坡點樁號）：R（豎曲線半徑）：N（前縱坡坡度）：P（后縱坡坡度）：（有幾個就有幾個）XZ平曲線數(shù)據(jù)庫B=A（直緩點樁號）:D（超高坡度）:L（半幅路面寬）:G（圓緩點樁號）:O（緩直點 樁號）:Z（加寬值）:F=1(旋轉(zhuǎn)方式：+1中軸旋轉(zhuǎn)、-1邊軸旋轉(zhuǎn)):Z5= 1（路線彎向：+1右轉(zhuǎn)、-1左轉(zhuǎn)）: B=A（直緩點樁號）:D（超高坡度）:L（半幅路面寬）:G（圓緩點樁號）:O（緩直點 樁號）:Z（加寬值）:F=1(旋轉(zhuǎn)方式：+1中軸旋轉(zhuǎn)、-1邊軸旋轉(zhuǎn)):Z5= 1（路線彎向：+1右轉(zhuǎn)、-1左轉(zhuǎn)）：C=O-G: Goto 1（有幾個就有幾個）Lbi 1:F=1 = Prog“ZZXZ”: F=-1 = Prog“BZXZ” ZZXZ中軸旋轉(zhuǎn)橫坡計算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邊軸旋轉(zhuǎn)橫坡計算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?-輸入結(jié)構(gòu)層厚度 按EXE鍵4、K？-輸入放樣樁號 按EXE鍵5、ZBJ?-輸入中邊距離（左輸負、右輸正、中樁輸0）按EXE鍵二、顯示部分SJG=顯示待測點的設計高程SJQS= 顯示待測點設計高程和儀器視線高的差（設計前視）三、連續(xù)操作重復輸入部分的第4、5步，即可完成整個路段的連續(xù)計算及放樣工作！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數(shù)據(jù)庫: 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：偏轉(zhuǎn)，Z=1,Y=1 X“XL”：線路（Z,Y）左線1