fx-5800P坐標(biāo)高程計算程序交點法資料講解

1、Good is good, but better carries it.精益求精，善益求善。fx-5800P坐標(biāo)高程計算程序交點法-CASIOfx-5800P單交點通用型曲線坐標(biāo)高程計算程序一、說明：本程序采用交點法計算道路基本型曲線坐標(biāo)及高程，在建立好數(shù)據(jù)庫后，能連續(xù)計算全線各樁號的中邊樁坐標(biāo)及高程。本程序共包括一個主程序和九個子程序，其中有坐標(biāo)計算、高程計算、坡口坡腳線放樣，錐坡放樣坐標(biāo)計算等子程序。二、內(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坐標(biāo)“Y(m)=”:ListFreq1顯示直緩(圓)點Y坐標(biāo)“H（m）=”:Z24顯示直緩(圓)點Z坐標(biāo)“FWJ=”:Z11DMS顯示直緩(圓)點切線方位角1K:Z11Z13:Prog“SUB5-34”調(diào)子程序計算直緩點邊樁坐標(biāo)2K:IfS0:ThenProg“SUB5-31”調(diào)子程序計算緩圓點中邊樁坐標(biāo)ElseListY1ListYK:ListFreq1ListFreqKZ11Z17:IfEn

5、d3K:Prog“SUB5-32”調(diào)子程序計算圓緩點中邊樁坐標(biāo)ListX1+Z10ListX4計算緩直點樁號4K:Prog“SUB5-37”IfT0:ThenZ26+Z6cos(Z23)ListY4Z27+Z6sin(Z23)ListFreq4計算緩直點中樁坐標(biāo)“HZPEG(m)=”:ListX4顯示緩直(圓)點樁號“X(m)=”:ListY4顯示緩直(圓)點X坐標(biāo)“Y(m)=”:ListFreq4顯示緩直(圓)點Y坐標(biāo)“H（m）=”:Z24顯示緩直(圓)點Z坐標(biāo)“FWJ=”:Z23DMS顯示緩直點切線方位角Z23Z13:Prog“SUB5-34”調(diào)子程序計算緩直(圓)點邊樁坐標(biā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（緩和段坐標(biāo)計算子程序）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坐標(biāo)“Y(m)=”:ListFreqK顯示Y坐標(biāo)“H（m）=”:Z24顯示Z坐標(biāo)“FWJ=”:Z13DMS顯示切線方位角Prog“SUB5-34”:Return3.SUB5-32（圓曲線曲線段坐標(biāo)計算子程序）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坐標(biāo)“Y(m)=”:ListFreqK顯示Y坐標(biāo)“H（m）=”:Z24顯示Z坐標(biāo)“FWJ=”:Z13DMS

12、顯示切線方位角Prog“SUB5-34”:Return4.SUB5-33（直線段坐標(biāo)計算子程序）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、標(biāo)“Y(m)=”:ListFreqK顯示Y坐標(biāo)“H（m）=”:Z24顯示Z坐標(biāo)“FWJ=”:Z13DMS顯示切線方位角Prog“SUB5-34”:Return5.SUB5-34（邊樁坐標(biāo)計算子程序）“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ù)庫子程序，可擴(kuò)充為多條線路)IfN=2:ThenGoto1:IfEndIfN=0:ThenGoto2:IfEnd“+PEG(m)=”?FIfF47129.607:Then第一交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑

15、R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF48000:Then第二交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF49009.82:Then第三交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終

16、點樁號Z32:ReturnElseIfF50200:Then第四交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnIfEnd:IfEnd:IfEnd:IfEndLbl1:IfF47129.607:Then第一交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z

17、32:ReturnElseIfF48000:Then第二交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:Return:ElseIfF49009.82:Then第三交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點樁號Z31:本平曲線終點樁號Z32:ReturnElseIfF50200:Then第四

18、交點樁號Z25:交點X坐標(biāo)Z26:交點Y坐標(biāo)Z27:前交點X坐標(biāo)Z28:前交點Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）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(錐坡放樣坐標(biāo)計算子程序)“ZHUIPOFANGYANG”“LONGR(m)=”?U錐坡橢圓的長軸半徑U“FWLONG（Deg）=”?C錐坡長軸的方位角C“SHORTR(m)=”?V錐坡橢圓的短軸半徑V“LONGSHORTANGLE（Deg）=”?Z錐坡長半軸與短半軸的夾角IfZ0:Then1D:Else-1D:IfEnd短半軸在長半軸右側(cè)夾角為正，反之則為負(fù)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計算錐坡橢圓等分角度所對應(yīng)的橢圓弧點X坐標(biāo)Y+Esin(Q)Y計算錐坡橢圓等分角度所對應(yīng)的橢圓弧點Y坐標(biāo)“X(m)=”:X顯示X坐標(biāo)“Y(m)=”:Y顯示Y坐標(biāo)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（兩條線路，可擴(kuò)充為多條線路）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