1、有關(guān)路基和隧道的CASIO 5800P 萬能曲線 計算程序 2009-5-26 14:20:13 新聞類別：儀器硬件技巧一、 程序功能本程序由一個主程序 (ZHUCHENXU)和幾個子程序正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標 (NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序（SDYX）構(gòu)成，可以根據(jù)直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標，對該曲線段范圍內(nèi)任意里程中邊樁坐標進行正反算。 二、源程序增加變量16DimZ

2、1.主程序(ZHUCHENXU)Deg:Fix 4:Freqon:17Dimz1.SZ XY，2.XY SZ，3.SDYX，4. BIANPO ？N：(huiche)Lbl 1：”ZHUANGHAO=”?S:Prog SUB3:N2=Goto 2： Abs(S-O)W：”BIANZHU=”?Z:”JJ=”? Z17:Prog SUB1： XS=”:XXYS=”:YYFS=”:FDMSGoto 1(HUICHE)Lbl 2：”CX=”?X: XI：”CY=”?Y: YJ：Prog SUB2：(HUICHE) S=:(O+W) SZ=ZZIf N=3:Then Prog”SDYX”: IfEnd

3、：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)0.1739274226 Z1： 0.3260725774B： 0.0694318442K： 0.3300094782L： (1-L) F： (1-K)M： U+W(Z1cos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW (C+FWD)+Z1cos(G+QEMW(C+MWD) X： V+W(Z1sin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Z1sin(G+QEMW(C+MWD) Y

4、： G+QEW(C+WD)+Z17F： X+ZcosFX： Y+ZsinFY3. 反算子程序(SUB2)G-90 Z2： Abs(Y-V)cosZ2-(X-U)sinZ2) W： 0Z：Lbl 0：Prog SUB1： Z2+QEW(C+WD) L： (J-Y)cosL-(I-X)sinLZ：If Abs(Z)1E-6:Then Goto1：Else W+ZW：Goto 0: IfEndLbl 1： 0Z：Prog SUB1： (J-Y)sinFZ4. 數(shù)據(jù)庫(SUB3)If S226100:Then Cls:Stop: IfEndIf S236005.651:Then Cls:Stop: I

5、fEndLbl 1: 1PC：(P-R)(2HPR) D：180E：5. 算方位角程序(FA)LbI0：“XC=”? A : “YC=”? T :X：Y0J： POI（X-A，Y-T）I：“BC=”：IIf J0 Then 360+JJ：ElseJJ :IfEnd“FW=”：JDMS Goto06. 使用方位角算坐標(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F： LCos（F）+XN: “N=”NLSin（F）+YE: “E=”EGoto07. 邊坡放樣程序(BIANPO)“QPDJL=”? Z3: “QPDGD=”? Z4: “PG=” ? Z5：2Z6

6、： “P1=” ? Z8： “P2=” ? Z9： “P3=” ? Z10 (沒有的話就刪)： Z7-Z4 Z11：If Z110 Then AbsZ11 Z11: “T=”：Z11 Else“W=”：Z11 IfEndZ11Z5 Z12：If Z121 Then Z8Z11 Z13：Else Z8Z5+Z9Z5（Z12-1）Z13：IfEnd: AbsZ-（Z13+Z6 Int Z12+Z3）Z14:“BP+C-J=”: Z14 說明：Z3= QPDJL 起坡點離中樁距離Z4=“QPDGD” 起坡點設(shè)計標高Z5=“PG” 坡高Z6=“PTK” 平臺寬度Z7=“DMG” 實測地面高度Z8=“P

7、1” 一級邊坡坡度Z9=“P2” 二級邊坡坡度Z10=“P3” 三級邊坡坡度(沒有的話就刪)Z14=“BP+C-J=” 邊坡超欠挖寬度（+表超，-表欠）8. 隧道圓心放樣程序（SDYX）IF S229000:THEN 243.997+0.0205(S-226520)-(S-227318)2/2/16000+1.503 Z10:“NGC=”：Z10 ELSE 286.385-0.023(S-230500)- (S-230593.753)2/2/165000+1.503Z10:“YLJ=”：Z10 IfEndZ10- Z7 Z15:“+SG,-JD”：Z15 （Z152+(ABS(Z)-6.8)2

8、）Z16: “R=”:Z16 三、使用說明1、規(guī)定 (1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時， Q=-1；當線元往右偏時，Q=1；當線元為直線時，Q=0。 (2) 當所求點位于中線時，Z=0；當位于中線左鍘時，Z取負值；當位于中線中線右側(cè)時，Z取正值。 (3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。 (4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。 (5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，

9、曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 (6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。2、輸入與顯示說明 SZ XY，2.XY SZ，3.SDYX，4. BIANPO N ? 選擇計算方式，輸入1表示進行由里程、邊距計算坐標 ；輸入2表示由坐標反算 里程和邊距。輸入3表示隧道圓心放樣和計算實測半徑；輸入4表示進行路基邊坡放樣。3、蓋板涵斜交操作說明：（以左前點為例）先把蓋板涵斜交角度減后再蓋板涵左長度*，蓋板涵左長度*，蓋板涵身寬度/利用YQXJS程序計算