




下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、有關(guān)路基和隧道的CASIO5800P萬能曲線計(jì)算程序第二次修改:有關(guān)路基和隧道的CASIO5800P萬能曲線計(jì)算程序,可以正、反坐標(biāo),放邊坡和隧道圓心,計(jì)算開挖半徑曲線任意里程中邊樁坐標(biāo)正反算(CASIOfx-5800P計(jì)算器)程序一、程序功能本程序由一個(gè)主程序(ZHUCHENX和幾個(gè)子程序正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標(biāo)(NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序(SDYX構(gòu)成,可以根據(jù)直線、圓曲線、緩和曲線(完整或非完整型)的線元要素(起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長度、起點(diǎn)曲率半徑、止點(diǎn)曲率半
2、徑)及里程邊距或坐標(biāo),對該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。二、源程序增加變量22DimZ1 .主程序(ZHUCHENXU)1.SZXY,2.XYSZ,3.SDYX4.BIANPO?N:Lbl1:"ZHUANGHAOS:ProgSUB3:N>2二Goto2:Abs(S-0一W”BIANZHU=?Z:ProgSUB1:XS=”:X一XJYS=”:丫一Y_LFS=”:(F-90)F:F?DMSProgFA:Goto1:Lbl2:"CX=?X:XI:"CY=?Y:YJ:"DMG=?Z7:ProgSUB2:”二:(0+W)SJZ=:ZZJIfN=3
3、:ThenProgvSDYX:IfEndIfN=4:ThenPrognBIANPO:IfEnd:Goto22 .正算子程序(SUB1)0.1739274226一Zl:0.3260725774一B:0.0694318442一K:0.3300094782L:(1-L)F:(1-K)MU+W(Zlcos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Z1cos(G+QEMW(C+MW-D)V+W(Zlsin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+ZlsiG+QEW(C+WD)+
4、90n(G+QEMW(C+MWDY:F:X+ZcosFX:Y+ZsinFY3 .反算子程序(SUB2)G-90Z2:Abs(Y-V)cosZ2-(X-U)sinZ2)W0ZLbl0:ProgSUB1:Z2+QEW(C+WD)L:(J-Y)cosL-(l-X)sinLZ:IfAbs(Z)vlE-6:ThenGotol:ElseW+ZWGoto0:IfEndLbl1:0Z:ProgSUB1:(J-Y)-sinF一Z4 .數(shù)據(jù)庫(SUB3)IfS<226100:ThenCls:Stop:IfEndIfSv226255.833:Then2261000:99037.9736一U:4282.3590
5、一V:201.3266304 fG: 1045 一 P: 1045 一 R 253. 543H:0 Q: Goto 1:IfE ndIfS>236005.651:ThenCls:Stop:IfEndLbl1:1-PC:(P-R)-(2HPR)D:180-nE:5 .算方位角程序(FA)LblO:“XC=”?A:"YC="?T:X:Y0-J:POI(X-A,Y-T)I:BC=”:I±IfJ<Then360+JJ:Elsej一J:IfEnd“FW=":J?DMSJGotoO6 .使用方位角算坐標(biāo)(NE)LblO:“X=”?X:"Y=&q
6、uot;?Y:"玩'>,N®L辨in”%講Y9:lXCos(F)+XN:GotoO"E="EJ7 .邊坡放樣程序(BIANPO)ProgTCD:ProgBHD:IFS<226255.731:then232.257一Z17:225844.269Z18:-0.69Z19:11789.745一Z22:Goto3:IfEndIFS<226351.25:then230.837一Z17:226050一Z18:2.8Z19:10A45Z22:Goto3:IfEndIFS<226688.75:then239.272一Z17:226351.
7、25一Z18:2.8Z19:-45000Z22:Goto3:IfEndIFSV227318:then243.997一Z17:226520一Z18:2.05一Z19:10八45Z22:Goto3:IfEndIFS<227982:then260.356一Z17:227318一Z18:2.05Z19:-16000Z22:Goto3:IfEndLbl3:Z17+(S-Z18)XZ19/100+(S-Z18)2(2)Z22小上一(13+Z20)X0.02Z4:“QPDGD"=:Z4JZ7-Z4ZU:IfZll<0ThenAbs(Zll)Zll:“T=”:ZllJ13+Z20+Z21
8、Z3:8Z5:0Z6:1.5Z8:1.75Z9:Else“W=”ZllJ15.6+Z20+Z21Z3:10Z5:2Z6:1.0Z8:1.25Z9:IfEndZll-Z5Z12:IfZ12<1ThenZ8XZllZ13:ElseZ8XZ5+Z9XZ5X(Z12-1)Z13:IfEnd:AbsZ-(Z13+Z6XIntZ12+Z3)Z14:“BP+C-尸”:Z14J說明:只適用二級(jí)邊坡。Z14="BP+C-尸邊坡超欠挖寬度(+表超,-表欠)8. 隧道圓心放樣程序(SDYX)IFS<229000:THEN243.997+0.0205X(S-226520)-(S-227318)2
9、/2/16000+1.503Z10:“NGC”二:Z10JELSE286.385-0.023X(S-230500)-(S-230593.753)2/2/165000+1.503Z10:“YLJ二”:Z10JIfEndZio-Z7Z15:"+SGJD”:Z15JV(Z15/2+(ABS(Z)-6.8)7<2)Z16:"R=:Z16J9. TCD(停車帶)IFS<227020:then0Z20:reture:IfEndIFSV227035:then(S-227020)X3.5/15Z20:reture:IfEndIFSV227065:then3.5一Z20:retu
10、re:IfEndZ20 :IfEIFS<227080:then(S-227065)X3.5/15Z20:Else0-ndIF S<227300 :IF S<227450 :1 :IfEndthenthen10. BHD(變化段)0Z21:reture:IfEnd(S-227300)XI.85/300Z21:Else0.925三、使用說明1、規(guī)定往左偏時(shí),(2)(1) 以道路中線的前進(jìn)方向(即里程增大的方向)區(qū)分左右;當(dāng)線元Q二T;當(dāng)線元往右偏時(shí),Q=1;當(dāng)線元為直線時(shí),Q=O當(dāng)所求點(diǎn)位于中線時(shí),z=o;當(dāng)位于中線左惻時(shí),Z取負(fù)值;當(dāng)位于中線中線右側(cè)時(shí),Z取正值。(3) 當(dāng)線元
11、為直線時(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í),曲率半徑等于圓曲線的半徑。(6) 當(dāng)線元為非完整緩和曲線時(shí),起點(diǎn)與直線相接時(shí),曲率半徑等于設(shè)計(jì)規(guī)定的值;與圓曲線相接時(shí),曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí),曲率半徑等于設(shè)計(jì)規(guī)定的值;與圓曲線相接時(shí),曲率半徑等于圓曲線的半徑。2、輸入與顯示說明SZXY,2.XYSZ,3.SDYX,4.BIANP0N?選擇計(jì)算方式,輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo);輸入2表示由坐標(biāo)反算里程和邊距。輸入3表示隧道圓心放樣和計(jì)算實(shí)測半徑;輸入4表示進(jìn)行路基邊坡放樣。3、蓋板涵斜交操作說明:(以左前點(diǎn)為例)先把蓋板涵斜交角度減90后二A再蓋板涵左長度*CosA=B,蓋板涵左長度*SinA
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 遠(yuǎn)程會(huì)診系統(tǒng)的使用經(jīng)驗(yàn)與改進(jìn)計(jì)劃
- 2025年板材卷材:普中板項(xiàng)目建議書
- 2025-2030中國防護(hù)眼鏡行業(yè)市場發(fā)展分析及投資前景機(jī)會(huì)戰(zhàn)略研究報(bào)告
- 2025-2030中國鋼筋混凝土行業(yè)市場發(fā)展分析及發(fā)展?jié)摿εc投資機(jī)會(huì)研究報(bào)告
- 2025-2030中國鈣鎂磷肥市場競爭力剖析及運(yùn)行態(tài)勢分析研究報(bào)告
- 2025-2030中國連續(xù)激光二極管行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略研究報(bào)告
- 2025-2030中國輻射松行業(yè)現(xiàn)狀動(dòng)態(tài)與前景趨勢研究研究報(bào)告
- 2025-2030中國軟件加密系統(tǒng)行業(yè)市場發(fā)展現(xiàn)狀及競爭策略與投資發(fā)展研究報(bào)告
- 2025-2030中國軌至軌輸出放大器行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略研究報(bào)告
- 2025-2030中國豪華羊絨服裝行業(yè)市場發(fā)展趨勢與前景展望戰(zhàn)略研究報(bào)告
- 氟喹諾酮類藥物合理使用規(guī)范
- 風(fēng)濕免疫疾病的多學(xué)科綜合診斷與治療
- 中國近代史人物介紹孫中山
- 《解讀月意象》課件
- 腎癌切除術(shù)后護(hù)理查房課件
- 用戶體驗(yàn)測試方案
- 消防車輛采購?fù)稑?biāo)方案(技術(shù)標(biāo))
- 農(nóng)產(chǎn)品食品檢驗(yàn)員(三級(jí)高級(jí)工)技能鑒定備考(重點(diǎn))題庫及答案
- 人教版小學(xué)道德與法治《開天辟地的大事變》教學(xué)設(shè)計(jì)
- 《極致挑逗:雙人共撫全圖解120招》讀書筆記模板
- 拖拉管施工方案完整版
評(píng)論
0/150
提交評(píng)論