fx-5800P坐标高程计算程序交点法资料讲解

1、Good is good, but better carries it.精益求精，善益求善。fx-5800P坐标高程计算程序交点法-CASIOfx-5800P单交点通用型曲线坐标高程计算程序一、说明：本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。二、内容：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计算第一缓和曲线内移值0.5S-S3(240R2)+S5(34560R4)Z2计算第一缓和曲线切线增长值T2(24R)-T4(2688R3)Z3计算第

3、二缓和曲线内移值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”调子程序计算直缓点边桩坐标2K:IfS0:ThenProg“SUB5-31”调子程序计算缓圆点中边桩坐标ElseListY1ListYK:ListFreq1ListFreqKZ11Z17:IfEn

5、d3K:Prog“SUB5-32”调子程序计算圆缓点中边桩坐标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”调子程序计算缓直(圆)点边桩坐标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(平曲线要素数据库子程序，可扩充为多条线路)IfN=2:ThenGoto1:IfEndIfN=0:ThenGoto2:IfEnd“+PEG(m)=”?FIfF47129.607:Then第一交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径

15、R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z32:ReturnElseIfF48000:Then第二交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z32:ReturnElseIfF49009.82:Then第三交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终

16、点桩号Z32:ReturnElseIfF50200:Then第四交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z32:ReturnIfEnd:IfEnd:IfEnd:IfEndLbl1:IfF47129.607:Then第一交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z

17、32:ReturnElseIfF48000:Then第二交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z32:Return:ElseIfF49009.82:Then第三交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）Z30:第一缓和曲线长度S:圆曲线半径R:第二缓和曲线长度T:本平曲线起点桩号Z31:本平曲线终点桩号Z32:ReturnElseIfF50200:Then第四

18、交点桩号Z25:交点X坐标Z26:交点Y坐标Z27:前交点X坐标Z28:前交点Y坐标Z29:转角（左负右正）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短半轴在长半轴右侧夹角为正，反之则为负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高程数据库子程序：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