5800程序.doc

1. 主程序(zbjs)lbl 4：1.sz = xy：2.xy = sz：？n：？s：prog“sub0”1pc： (p-r)(2hpr) d:180e:n=1 = goto1： goto2：lbl 1：? z： abs(s-o) w：prog sub1： xs=：xys=：yf-90f： “fs=”：fdmsgoto4lbl 2：？x： ？y：xi：yj： prog“sub2”：o+ws：“s=”：s“z=”：zgoto42. 正算子程序(sub1)0.1739274226a： 0.3260725774b： 0.0694318442k： 0.3300094782l： 1-lf： 1-km：u+w(acos(g+qekw(c+kwd)+bcos(g+qelw(c+lwd)+bcos(g+qefw(c+fwd)+acos(g+qemw(c+mwd) x： v+w(asin(g+qekw(c+kwd)+bsin(g+qelw(c+lwd)+bsin(g+qefw(c+fwd)+asin(g+qemw(c+mwd) y：g+qew(c+wd)+90f： x+zcos（f）x： y+zsin（f）y2. 反算子程序(sub2)g-90t： abs(y-v)cost-(x-u)sint) w 0z：lbl 0：prog sub1t+qew(c+wd) l： (j-y)cos（l）-(i-x)sin（l）z：if abs（z）1e-6：then0z:prog sub1： (j-y)sin（f）z：else w+zw:goto0：ifendsub0 数据库子程序goto1 同时保存多个曲线时的指针lbl 1：if s*（线元终点里程）：then*g（线元起点方位角）：*o（线元起点里程）：*u（线元起点x）：*v（线元起点y）：*p（线元起点曲率半径）：*r（线元终点曲率半径）： *h（线元起点至终点长度）：0或1、-1q：return:ifendif sxy（正算坐标）2.xy=反算坐标。2：s？ 输入里程 z?输入偏距（0为中桩，-1为左，1为右）3：xs 计算出所在里程的x坐标 ys 计算出所在里程的y坐标 fs 线路方位角4：按exe返回程序。坐标反算：1：运行主程序zbjs,选择1.sz=xy（正算坐标）2.xy=反算坐标。2：s?输入所求大约里程3：x?输入已知x坐标，y?输入已知y坐标4：s=计算出所求里程。z=偏离中线距离，一般很少，可以省略。5：按exe返回程序。以下是广三高速8标的线元要素：if s26873.225（线元终点里程）：then293度03分43.1秒g（线元起点方位角）：25305.836o（线元起点里程）：2561273.902u（线元起点x）：493212.208v（线元起点y）：*10的45次方p（线元起点曲率半径）：10的45次方r（线元终点曲率半径）：1567.389h（线元起点至终点长度）：0q：return:ifendif s27173.225（线元终点里程）：then293度33分43.1秒g（线元起点方位角）：26873.225o（线元起点里程）：2561900.451u（线元起点x）：491775.495v（线元起点y）：*10的45次方p（线元起点曲率半径）：2000r（线元终点曲率半径）：300h（线元起点至终点长度）：1q：return:ifendif s27719.625（线元终点里程）：then297度51分33秒g（线元起点方位角）：27173.225o（线元起点里程）：2562027.179u（线元起点x）：491503.