公路匝道坐标的复化辛普森公式及用FX4500P计算器编程算坐标2.docVIP

公路匝道坐标的复化辛普森公式及用FX4500P计算器编程算坐标2... 公路匝道坐标的复化辛普森公式及用FX-4500P计算器编程算坐标 　四、公路匝道坐标计算源程序 　　l1 lbl0：t“x1”u“y1”c“at”d“pa”e“pb”a“ch0”b“chn”g“x0”i“y0”：m：lbl1：n=0：p=0：o=0：q=0：s=0：{j}：j“chi” 　　l2 lbl2：n=n+1：h=2（j-a）/m：f=nh/2+a：r=c+180/pacute;（d+（e-d）/2（b-a）acute;（f-a））（f-a）：int（n/2）=n/2=o=o+cosr：p=p+sinr：sup1;q=q+ cosr：s=s+ sinrd 　　l3 n=m=goto3：sup1;goto2dlbl3：x=g+h/6acute;（cosc+4q+2o-cosr：y=i+h/6acute;（sinc+4s+2p-sinr）：x：“x=”ùy：“y=”ù pol（x-t，y-u： vù ww=w+360ùsup1;wùdgoto1 　　 x1----测站点x坐标 　　 y1----测站点y坐标 　　 at----曲线起点方位角 　　 pa----曲线起点曲率 （当曲线右偏时，ρa取正；当曲线左偏时ρa取负。） 　　 pb----曲线终点曲率 （