計(jì)算器萬(wàn)能程序

1、有關(guān)路基和隧道的CASIO 5800P 萬(wàn)能曲線 計(jì)算程序 2009-5-26 14:20:13 新聞?lì)悇e：儀器硬件技巧一、 程序功能本程序由一個(gè)主程序 (ZHUCHENXU)和幾個(gè)子程序正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(kù)(SUB3)、算方位角程序(FA)、使用方位角算坐標(biāo) (NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序（SDYX）構(gòu)成，可以根據(jù)直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長(zhǎng)度、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑）及里程邊距或坐標(biāo)，對(duì)該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。 二、源程序增加變量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ù)庫(kù)(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. 使用方位角算坐標(biāo)(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 (沒(méi)有的話就刪)： 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 說(shuō)明：Z3= QPDJL 起坡點(diǎn)離中樁距離Z4=“QPDGD” 起坡點(diǎn)設(shè)計(jì)標(biāo)高Z5=“PG” 坡高Z6=“PTK” 平臺(tái)寬度Z7=“DMG” 實(shí)測(cè)地面高度Z8=“P

7、1” 一級(jí)邊坡坡度Z9=“P2” 二級(jí)邊坡坡度Z10=“P3” 三級(jí)邊坡坡度(沒(méi)有的話就刪)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 三、使用說(shuō)明1、規(guī)定 (1) 以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)， Q=-1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0。 (2) 當(dāng)所求點(diǎn)位于中線時(shí)，Z=0；當(dāng)位于中線左鍘時(shí)，Z取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，Z取正值。 (3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無(wú)窮大，以10的45次代替。 (4) 當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。 (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，

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