FX5800P計(jì)算器 曲線任意里程中邊樁坐標(biāo)正反算

1、卡西歐 fx5800P 計(jì)算器 曲線任意里程中邊樁坐標(biāo)正反算一、程序功能本程序由一個(gè)主程序 (ZHUCHENXU和幾個(gè)子程序正算子程序(SUB1、反算子程序 (SUB2、數(shù)據(jù)庫 (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)行正反算。二、源程序增加變量 16DimZ1. 主程序 (ZHUCHENXU"

2、;1.SZ XY,2.XY SZ, 3.SDYX , 4. BIANPO "? N :Lbl 1:”ZHUANGHAO=”?S: Prog "SUB3":N2=>Goto 2:Abs(S-OW:”BIANZHU=”?Z:Prog "SUB1":"XS=”:XX"YS=”:YY"FS=”:(F-90 F:FDMSProg "FA": Goto 1:Lbl 2:”CX=”?X: XI:”CY=”?Y: YJ:”DMG=”?Z7:Prog "SUB2": "S=&q

3、uot;:(O+W S"Z="ZZIf N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序 (SUB10.1739274226 Z1:0.3260725774B:0.0694318442K:0.3300094782L: (1-L F: (1-KM: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+L

4、WD+Bsin(G+QEFW(C+FWD+Z1sin(G+QEMW(C+MWD Y:G+QEW(C+WD+90F: X+ZcosFX:Y+ZsinFY3. 反算子程序 (SUB2G-90 Z2: Abs(Y-VcosZ2-(X-UsinZ2 W:0Z:Lbl 0:Prog "SUB1" :Z2+QEW(C+WD L: (J-YcosL-(I-XsinLZ:If Abs(Z<1E-6:Then Goto1:Else W+ZW:Goto 0: IfEndLbl 1:0Z:Prog "SUB1": (J-Y÷sinFZ4. 數(shù)據(jù)庫 (SUB3I

5、f S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100O:99037.9736U:4282.3590V: 201.3266304G:1045P:1045R:253.543H:0Q: Goto 1:IfEnd If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷PC:(P-R÷(2HPR D:180÷E:5. 算方位角程序 (FALbI0:“XC=”? A : “YC=”? T :X:Y0J: POI(X-A , Y-T I:“BC=”:I If J

6、 <0 Then 360+JJ:ElseJJ :IfEnd “FW=”:JDMS Goto06. 使用方位角算坐標(biāo) (NELbI0:“X=”? X: “Y=”? Y: “L=”? L:“F0”?F:L×Cos(F +XN: “N=”NL×Sin(F +YE: “E=”EGoto07. 邊坡放樣程序 (BIANPO“QPDJL=”? Z3: “QPDGD=”? Z4: “PG=” ? Z5:2Z6:“P1=” ? Z8:“P2=” ? Z9:“P3=” ? Z10 (沒有的話就 刪 : Z7-Z4 Z11:If Z11 0 Then AbsZ11 Z11: “T=”:

7、Z11 Else“W=”:Z11 IfEndZ11÷Z5 Z12:If Z121 Then Z8×Z11 Z13:ElseZ8×Z5+Z9×Z5×(Z12-1 Z13:IfEnd: AbsZ-(Z13+Z6 ×Int Z12+Z3Z14:“BP+C-J=”: Z14 說明:Z3= QPDJL 起坡點(diǎn)離中樁距離Z4=“QPDGD” 起坡點(diǎn)設(shè)計(jì)標(biāo)高Z5=“PG” 坡高Z6=“PTK” 平臺(tái)寬度Z7=“DMG” 實(shí)測(cè)地面高度Z8=“P1” 一級(jí)邊坡坡度Z9=“P2” 二級(jí)邊坡坡度Z10=“P3” 三級(jí)邊坡坡度 (沒有的話就刪 Z14=“BP

8、+C-J=” 邊坡超欠挖寬度(+表超, -表欠8. 隧道圓心放樣程序(SDYX IF S<229000:THEN 243.997+0.0205×(S-226520-(S-2273182/2/16000+1.503 Z10:“NGC=”:Z10 ELSE 286.385-0.023×(S-230500-(S-230593.7532/2/165000+1.503Z10:“YLJ=”:Z10 IfEndZ10- Z7 Z15:“+SG,-JD”:Z15 (Z152+(ABS(Z-6.82 Z16: “R=”:Z16 三、使用說明1、規(guī)定(1 以道路中線的前進(jìn)方向 (即里程增

9、大的方向 區(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)的曲率半徑為無窮大,以 10的 45次代替。(4 當(dāng)線元為圓曲線時(shí), 無論其起點(diǎn)、 止點(diǎn)與什么線元相接, 其曲率半徑 均等于圓弧的半徑。(5 當(dāng)線元為完整緩和曲線時(shí),起點(diǎn)與直線相接時(shí),曲率半徑為無窮大, 以 10的 45次代替; 與圓曲線相接時(shí), 曲率半徑等于圓曲線的半徑。 止點(diǎn)與直線 相接時(shí),曲率半徑為無窮大,以 10的 45次代替;與圓曲線相接時(shí),曲

10、率半徑等 于圓曲線的半徑。(6 當(dāng)線元為非完整緩和曲線時(shí),起點(diǎn)與直線相接時(shí),曲率半徑等于設(shè) 計(jì)規(guī)定的值; 與圓曲線相接時(shí), 曲率半徑等于圓曲線的半徑。 止點(diǎn)與直線相接時(shí), 曲率半徑等于設(shè)計(jì)規(guī)定的值;與圓曲線相接時(shí),曲率半徑等于圓曲線的半徑。 2、輸入與顯示說明SZ XY,2.XY SZ, 3.SDYX , 4. BIANPON ? 選擇計(jì)算方式,輸入 1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ;輸入 2表示由坐標(biāo)反算 里程和邊距。輸入 3表示隧道圓心放樣和計(jì)算實(shí)測(cè)半徑;輸入 4表示進(jìn)行路基邊坡放樣。3、蓋板涵斜交操作說明:(以左前點(diǎn)為例先把蓋板涵斜交角度減90后=A再蓋板涵左長(zhǎng)度 *CosA=B,蓋板涵左長(zhǎng)度 *SinA=C,蓋板涵身寬度 / CosA=D利用 YQXJS 程序計(jì)算此樁號(hào)正交時(shí)B寬度的坐標(biāo)值,及法線方位角