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

1、Good is good, but better carries it.精益求精，善益求善。fx-5800P坐標(biāo)高程計(jì)算程序交點(diǎn)法-CASIOfx-5800P單交點(diǎn)通用型曲線坐標(biāo)高程計(jì)算程序一、說明：本程序采用交點(diǎn)法計(jì)算道路基本型曲線坐標(biāo)及高程，在建立好數(shù)據(jù)庫后，能連續(xù)計(jì)算全線各樁號(hào)的中邊樁坐標(biāo)及高程。本程序共包括一個(gè)主程序和九個(gè)子程序，其中有坐標(biāo)計(jì)算、高程計(jì)算、坡口坡腳線放樣，錐坡放樣坐標(biāo)計(jì)算等子程序。二、內(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計(jì)算JDHZ方位角S2（24R）-S4(2688R3)Z1計(jì)算第一緩和曲線內(nèi)移值0.5S-S3(240R2)+S5(34560R4)Z2計(jì)算第一緩和曲線切線增長值T2(24R)-T4(2688R3)Z3計(jì)算第

3、二緩和曲線內(nèi)移值0.5T-T3(240R2)+T5(34560R4)Z4計(jì)算第二緩和曲線切線增長值(R+Z3)sin(D)-(R+Z1)tan(D)+Z2Z5計(jì)算第一切線長(R+Z1)sin(D)-(R+Z3)tan(D)+Z4Z6計(jì)算第二切線長90S(R)Z7:90T(R)Z8計(jì)算第一、二緩和曲線偏角R(D-Z7-Z8)180Z9計(jì)算圓曲線長度S+T+Z9Z10計(jì)算曲線總長度Z25-Z5ListX1計(jì)算直緩點(diǎn)樁號(hào)1K:Prog“SUB5-37”ListX1+SListX2:ListX2+Z9ListX3計(jì)算緩圓點(diǎn)、圓緩點(diǎn)樁號(hào)Z26-Z5cos(Z11)ListY1:Z27-Z5sin(Z11

4、)ListFreq1IfS0:Then“ZHPEG(m)=”:ListX1顯示直緩點(diǎn)樁號(hào)Else“ZYPEG(m)=”:ListX1顯示直圓點(diǎn)樁號(hào)IfEnd“X(m)=”:ListY1顯示直緩(圓)點(diǎn)X坐標(biāo)“Y(m)=”:ListFreq1顯示直緩(圓)點(diǎn)Y坐標(biāo)“H（m）=”:Z24顯示直緩(圓)點(diǎn)Z坐標(biāo)“FWJ=”:Z11DMS顯示直緩(圓)點(diǎn)切線方位角1K:Z11Z13:Prog“SUB5-34”調(diào)子程序計(jì)算直緩點(diǎn)邊樁坐標(biāo)2K:IfS0:ThenProg“SUB5-31”調(diào)子程序計(jì)算緩圓點(diǎn)中邊樁坐標(biāo)ElseListY1ListYK:ListFreq1ListFreqKZ11Z17:IfEn

5、d3K:Prog“SUB5-32”調(diào)子程序計(jì)算圓緩點(diǎn)中邊樁坐標(biāo)ListX1+Z10ListX4計(jì)算緩直點(diǎn)樁號(hào)4K:Prog“SUB5-37”IfT0:ThenZ26+Z6cos(Z23)ListY4Z27+Z6sin(Z23)ListFreq4計(jì)算緩直點(diǎn)中樁坐標(biāo)“HZPEG(m)=”:ListX4顯示緩直(圓)點(diǎn)樁號(hào)“X(m)=”:ListY4顯示緩直(圓)點(diǎn)X坐標(biāo)“Y(m)=”:ListFreq4顯示緩直(圓)點(diǎn)Y坐標(biāo)“H（m）=”:Z24顯示緩直(圓)點(diǎn)Z坐標(biāo)“FWJ=”:Z23DMS顯示緩直點(diǎn)切線方位角Z23Z13:Prog“SUB5-34”調(diào)子程序計(jì)算緩直(圓)點(diǎn)邊樁坐標(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)計(jì)算子程序）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顯示樁號(hào)“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)計(jì)算子程序）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顯示樁號(hào)“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)計(jì)算子程序）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顯示樁號(hào)“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)計(jì)算子程序）“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(平曲線要素?cái)?shù)據(jù)庫子程序，可擴(kuò)充為多條線路)IfN=2:ThenGoto1:IfEndIfN=0:ThenGoto2:IfEnd“+PEG(m)=”?FIfF47129.607:Then第一交點(diǎn)樁號(hào)Z25:交點(diǎn)X坐標(biāo)Z26:交點(diǎn)Y坐標(biāo)Z27:前交點(diǎn)X坐標(biāo)Z28:前交點(diǎn)Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑

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

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

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

18、交點(diǎn)樁號(hào)Z25:交點(diǎn)X坐標(biāo)Z26:交點(diǎn)Y坐標(biāo)Z27:前交點(diǎn)X坐標(biāo)Z28:前交點(diǎn)Y坐標(biāo)Z29:轉(zhuǎn)角（左負(fù)右正）Z30:第一緩和曲線長度S:圓曲線半徑R:第二緩和曲線長度T:本平曲線起點(diǎn)樁號(hào)Z31:本平曲線終點(diǎn)樁號(hào)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本平曲線起點(diǎn)樁號(hào)“ENDP

19、EG(m)=”?Z32本平曲線終點(diǎn)樁號(hào)Return7.SUB5-36(錐坡放樣坐標(biāo)計(jì)算子程序)“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計(jì)算錐坡橢圓長短軸的半徑差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計(jì)算錐坡橢圓等分角度所對應(yīng)的橢圓弧點(diǎn)X坐標(biāo)Y+Esin(Q)Y計(jì)算錐坡橢圓等分角度所對應(yīng)的橢圓弧點(diǎn)Y坐標(biāo)“X(m)=”:X顯示X坐標(biāo)“Y(m)=”:Y顯示Y坐標(biāo)Goto18高程計(jì)算子程序（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