




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、Good is good, but better carries it.精益求精,善益求善。fx-5800P坐標高程計算程序交點法-CASIOfx-5800P單交點通用型曲線坐標高程計算程序一、說明:本程序采用交點法計算道路基本型曲線坐標及高程,在建立好數(shù)據(jù)庫后,能連續(xù)計算全線各樁號的中邊樁坐標及高程。本程序共包括一個主程序和九個子程序,其中有坐標計算、高程計算、坡口坡腳線放樣,錐坡放樣坐標計算等子程序。二、內(nèi)容:1PM5-3XYZJS(主程序)“SINGLEBASICTYPECURVE”“METHODOFCOORDINATEPM5-3”Deg:ClrStat:FreqOn:Fix340Dim
2、Z“INPUT(0)OrDATA(Else)”?N“FUNCTION”?PProg“SUB5-35”IfZ300:Then-1Z20:Else1Z20:IfEndAbs(Z30)DPol(Z26-Z28,Z27-Z29):ClsIfJ360:ThenZ16-360Z12:ElseZ16Z12:IfEndIfZ12180:ThenZ12-180Z23:ElseZ12+180Z23:IfEnd計算JDHZ方位角S2(24R)-S4(2688R3)Z1計算第一緩和曲線內(nèi)移值0.5S-S3(240R2)+S5(34560R4)Z2計算第一緩和曲線切線增長值T2(24R)-T4(2688R3)Z3計算第
3、二緩和曲線內(nèi)移值0.5T-T3(240R2)+T5(34560R4)Z4計算第二緩和曲線切線增長值(R+Z3)sin(D)-(R+Z1)tan(D)+Z2Z5計算第一切線長(R+Z1)sin(D)-(R+Z3)tan(D)+Z4Z6計算第二切線長90S(R)Z7:90T(R)Z8計算第一、二緩和曲線偏角R(D-Z7-Z8)180Z9計算圓曲線長度S+T+Z9Z10計算曲線總長度Z25-Z5ListX1計算直緩點樁號1K:Prog“SUB5-37”ListX1+SListX2:ListX2+Z9ListX3計算緩圓點、圓緩點樁號Z26-Z5cos(Z11)ListY1:Z27-Z5sin(Z11
4、)ListFreq1IfS0:Then“ZHPEG(m)=”:ListX1顯示直緩點樁號Else“ZYPEG(m)=”:ListX1顯示直圓點樁號IfEnd“X(m)=”:ListY1顯示直緩(圓)點X坐標“Y(m)=”:ListFreq1顯示直緩(圓)點Y坐標“H(m)=”:Z24顯示直緩(圓)點Z坐標“FWJ=”:Z11DMS顯示直緩(圓)點切線方位角1K:Z11Z13:Prog“SUB5-34”調(diào)子程序計算直緩點邊樁坐標2K:IfS0:ThenProg“SUB5-31”調(diào)子程序計算緩圓點中邊樁坐標ElseListY1ListYK:ListFreq1ListFreqKZ11Z17:IfEn
5、d3K:Prog“SUB5-32”調(diào)子程序計算圓緩點中邊樁坐標ListX1+Z10ListX4計算緩直點樁號4K:Prog“SUB5-37”IfT0:ThenZ26+Z6cos(Z23)ListY4Z27+Z6sin(Z23)ListFreq4計算緩直點中樁坐標“HZPEG(m)=”:ListX4顯示緩直(圓)點樁號“X(m)=”:ListY4顯示緩直(圓)點X坐標“Y(m)=”:ListFreq4顯示緩直(圓)點Y坐標“H(m)=”:Z24顯示緩直(圓)點Z坐標“FWJ=”:Z23DMS顯示緩直點切線方位角Z23Z13:Prog“SUB5-34”調(diào)子程序計算緩直(圓)點邊樁坐標ElseLis
6、tY3ListYK:ListFreq3ListFreqK:IfEndIfR30:Then5I:ElseIfR0:ThenOI:IfEnd“ONLYCALC+PEG(1)”?GIfG=1:ThenGoto1:IfEndK+1K:Int(Z31I)I+IListXKIfListXKListX1:ThenProg“SUB5-31”:ElseProg“SUB5-33”:IfEndDoK+1K:ListXK-1+IListXKIfListXKListX1:ThenProg“SUB5-33”ElseIfListXKListX2:ThenProg“SUB5-31”ElseIfListXKListX3:The
7、nProg“SUB5-32”ElseIfListXKListX4:ThenProg“SUB5-31”ElseProg“SUB5-33”IfEnd:IfEnd:IfEnd:IfEndLpWhileListXK+IZ32Lbl1Do“+PEG(m)=”?FIfFZ32:ThenBreak:IfEndK+1K:FListXKIfListXKListX1:ThenProg“SUB5-33”ElseIfListXKListX2:ThenProg“SUB5-31”ElseIfListXKListX3:ThenProg“SUB5-32”ElseIfListXKListX4:ThenProg“SUB5-31”
8、ElseProg“SUB5-33”IfEnd:IfEnd:IfEnd:IfEndLpWhileF0“PM5-3END”2SUB5-31(緩和段坐標計算子程序)IfListXKListX2:ThenSH:ListXK-ListX1LElseTH:ListX4-ListXKL:IfEndIfH0:ThenL-L5(40R2H2)+L9(3456R4H4)-L13(599040R6H6)XL3(6RH)-L7(336R3H3)+L11(42240R5H5)-L15(9676800R7H7)Y(X2+Y2)Z14:tan-1(YX)Z15Else0Z14:0Z15:IfEndIfListXKListX
9、2:ThenZ11+Z20Z15Z16ListY1+Z14cos(Z16)ListYKListFreq1+Z14sin(Z16)ListFreqKIfH0:ThenZ11+90Z20L2(RH)Z13ElseZ11Z13:IfEndIfListXK=ListX2:ThenZ13Z17:IfEndElseZ12-Z20Z15Z16ListY4+Z14cos(Z16)ListYKListFreq4+Z14sin(Z16)ListFreqKIfH0:ThenZ12-90Z20L2(RH)Z13:ElseZ12Z13:IfEndZ13+180Z13:IfEndIfZ13360:ThenZ13-360Z
10、13:IfEnd:IfEndProg“SUB5-37”IfListXK=ListX2:Then“HYPEG(m)=”ElseIfG=1:Then“+PEG(m)=”Else“INTPEG(m)=”:IfEnd:IfEndListXK顯示樁號“X(m)=”:ListYK顯示X坐標“Y(m)=”:ListFreqK顯示Y坐標“H(m)=”:Z24顯示Z坐標“FWJ=”:Z13DMS顯示切線方位角Prog“SUB5-34”:Return3.SUB5-32(圓曲線曲線段坐標計算子程序)ListXK-ListX2L90L(R)Z15:2Rsin(Z15)Z14Z17+Z20Z15Z16ListY2+Z1
11、4cos(Z16)ListYKListFreq2+Z14sin(Z16)ListFreqKZ17+2Z20Z15Z13IfZ13360:ThenZ13-360Z13:IfEnd:IfEndProg“SUB5-37”IfListXK=ListX3:ThenIfT0:Then“YHPEG(m)=”Else“YZPEG(m)=”:IfEndElseIfG=1:Then“+PEG(m)=”Else“INTPEG(m)=”:IfEnd:IfEndListXK顯示樁號“X(m)=”:ListYK顯示X坐標“Y(m)=”:ListFreqK顯示Y坐標“H(m)=”:Z24顯示Z坐標“FWJ=”:Z13DMS
12、顯示切線方位角Prog“SUB5-34”:Return4.SUB5-33(直線段坐標計算子程序)IfListXKListX1:ThenListX1-ListXKLListY1-Lcos(Z11)ListYKListFreq1-Lsin(Z11)ListFreqKZ11Z13ElseListXK-ListX4LListY4+Lcos(Z23)ListYKListFreq4+Lsin(Z23)ListFreqKZ23Z13:IfEndProg“SUB5-37”IfG=1:Then“+PEG(m)=”Else“INTPEG(m)=”:IfEndListXK顯示樁號“X(m)=”:ListYK顯示X坐
13、標“Y(m)=”:ListFreqK顯示Y坐標“H(m)=”:Z24顯示Z坐標“FWJ=”:Z13DMS顯示切線方位角Prog“SUB5-34”:Return5.SUB5-34(邊樁坐標計算子程序)“WL(m),0NO=”?MIfM0:Then“ANGLEL(Deg)=”?AZ13-AZ21ListYK+Mcos(Z21)Z18ListFreqK+Msin(Z21)Z19“XL(m)=”:Z18“YL(m)=”:Z19IfP=1:ThenProg“SUB5-36”:IfEndElseNO:IfEnd:IfEnd“WR(m),0NO=”?WIfW0:Then“ANGLER(Deg)=”?AZ13
14、+AZ22ListYK+Wcos(Z22)Z18ListFreqK+Wsin(Z22)Z19“XR(m)=”:Z18“YR(m)=”:Z19IfP=1:ThenProg“SUB5-36”:IfEndElseNO:IfEnd:IfEndReturn6.SUB5-35(平曲線要素數(shù)據(jù)庫子程序,可擴充為多條線路)IfN=2:ThenGoto1:IfEndIfN=0:ThenGoto2:IfEnd“+PEG(m)=”?FIfF47129.607:Then第一交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑
15、R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF48000:Then第二交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF49009.82:Then第三交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終
16、點樁號Z32:ReturnElseIfF50200:Then第四交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnIfEnd:IfEnd:IfEnd:IfEndLbl1:IfF47129.607:Then第一交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z
17、32:ReturnElseIfF48000:Then第二交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:Return:ElseIfF49009.82:Then第三交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF50200:Then第四
18、交點樁號Z25:交點X坐標Z26:交點Y坐標Z27:前交點X坐標Z28:前交點Y坐標Z29:轉(zhuǎn)角(左負右正)Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnIfEnd:IfEnd:IfEnd:IfEndLbl2“JDPEG(m)=”?Z25“JDX(m)=”?Z26“JDY(m)=”?Z27“ZDX(m)=”?Z28“ZDY(m)=”?Z29“TURNINGANGLE,-L+R(Deg)=”?Z30“Lh1(m)=”?S“R(m)=”?R“Lh2(m)=”?T“STARTPEG(m)=”?Z31本平曲線起點樁號“ENDP
19、EG(m)=”?Z32本平曲線終點樁號Return7.SUB5-36(錐坡放樣坐標計算子程序)“ZHUIPOFANGYANG”“LONGR(m)=”?U錐坡橢圓的長軸半徑U“FWLONG(Deg)=”?C錐坡長軸的方位角C“SHORTR(m)=”?V錐坡橢圓的短軸半徑V“LONGSHORTANGLE(Deg)=”?Z錐坡長半軸與短半軸的夾角IfZ0:Then1D:Else-1D:IfEnd短半軸在長半軸右側(cè)夾角為正,反之則為負U-VL計算錐坡橢圓長短軸的半徑差Lbl1“ADDANGLE(Deg)=”?J取錐坡橢圓的等分角度IfJAbs(Z):ThenReturn:IfEndC+DJHZ18+V
20、cos(H)X:Z19+Vsin(H)YIfJ90:ThenJH:CQ:Else180-JH:C+180Q:IfEndLcos(K)EX+Ecos(Q)X計算錐坡橢圓等分角度所對應的橢圓弧點X坐標Y+Esin(Q)Y計算錐坡橢圓等分角度所對應的橢圓弧點Y坐標“X(m)=”:X顯示X坐標“Y(m)=”:Y顯示Y坐標Goto18高程計算子程序(SUB5-37)Prog“SUB5-38”05Z35Abs(0.01(Z37-Z36)Z38IfZ37Z36:Then1D:Else-1D:IfEndIfListXKZ38:ThenZ34+HLZ24:ElseZ34+HL+D(Z38-L)2(2Z35)Z2
21、4:IfEndReturn9高程數(shù)據(jù)庫子程序:SUB5-38(兩條線路,可擴充為多條線路)IfN=0:ThenGoto1:ElseIfN=2:ThenGoto2:IfEnd:IfEndIfListXK46500:Then46150Z33:361.26Z34:40000Z35:-0.3Z36:-1.2Z37:ReturnElseIfListXK47200:Then46800Z33:353.46Z34:20000Z35:-1.2Z36:1Z37:ReturnElseIfListXK48400:Then47500Z33:360.46Z34:20000Z35:1Z36:-1.6Z37:ReturnElseIfListXK49600:Then48700Z33:341.26Z34:10000Z35:-1.6Z3
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 超高性能混凝土的創(chuàng)新研究與應用進展
- 虛擬仿真實驗技術(shù)-第1篇-洞察及研究
- 公用物資使用管理辦法
- 紅心獼猴桃品質(zhì)與環(huán)境因子關(guān)系研究
- 現(xiàn)代農(nóng)業(yè)灌溉系統(tǒng)智能化管理規(guī)范研究
- 教師職業(yè)角色定位與專業(yè)發(fā)展路徑探究
- 公共財物授權(quán)管理辦法
- 固定資產(chǎn)管理系統(tǒng)設(shè)計:理論與實踐
- 國際金融治理中的主權(quán)邊界問題研究
- 生活藝術(shù)與創(chuàng)意表達
- 三通四通尺寸數(shù)據(jù)及標準表
- 2025-2030全球及中國管道運輸服務行業(yè)市場現(xiàn)狀供需分析及投資評估規(guī)劃分析研究報告
- 安慶市桐城經(jīng)開區(qū)建設(shè)投資集團有限公司招聘筆試題庫2025
- JJF 2244-2025公共機構(gòu)重點用能單位能源資源計量審查規(guī)范
- 警犬基地人員管理制度
- 2025年甘肅省建筑安全員B證(項目經(jīng)理)考試題庫
- ICU感控管理分析報告
- 垃圾分類創(chuàng)新創(chuàng)業(yè)項目
- 體育賽事中的后勤保障工作
- 建材家居業(yè)商業(yè)計劃書
- CNAS-CL01-A004:2018 實驗室能力認可準則在醫(yī)療器械檢測領(lǐng)域的應用說明
評論
0/150
提交評論