5800计算器公路全线坐标正反算计算程序(含隧道).doc

正算主程序(zs)lb1 0fix4：?s：?z：prog “pm-sj”： abs(s-o) w：prog sub1： xs=：xys=：yf-90f(需要时可以让他显示，不要时不必输入)：prog“sqx-sj”: prog“sqx”：“h=”：hgoto 0反算主程序(fs)lb1 0fix4: ?s：?x：？y：prog“pm-sj”： x i： yj：prog sub2： s=：o+wsz=：zprog“sqx-sj”：prog“sqx” ：“h=”：hgoto 0隧道3心圆放样主程序（sd-3xy）lb1 0：prog“fs”：1.5a：1.65b：0.89g：2.27c：3.3d：2.41e：0.51j：“h1”：f：iffh+a：then e-abszw：ifend：iffh+a and fh+a+b：then（d²-（f-h-a）²）-g-abszw：ifend：iffh+a+b：then（c²-（f-h-a-j）²）-abszw：ifend：“w=”：w（水平方向的超欠挖：正为欠,负为超）goto0正算子程序(sub1)1p c： (p-r)(2hpr) d： 180 e： 0.1739274226a： 0.3260725774 b： 0.0694318442 k： 0.3300094782 l： 1-l f：1-k m： 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)+90 f： x+zcosf x： y+zsinf y反算子程序(sub2)g-90t： abs(y-v)cost-(x-u)sin（t）) w： 0 z：lbl 0：prog sub1： t+qew(c+wd) l： (j-y)cosl-(i-x)sinl z：ifabsz1e-6：thengoto1：elssw+z w：goto 0：ifendlbl 1： 0 z：prog sub1： (j-y)sinf z子程序（平面线形数据库）pm-sjifs 500（线元起点里程）ands769.256（线元止点里程）：then19942.837 u（线元起点x坐标）：28343.561 v（线元起点y坐标）：500 o（线元起点里程）：1251631g（线元起点方位角）：269.265 h（线元长度）：10（45）p（线元起点曲率半径）：10（45）r（线元终点曲率半径）：0 q（线元左右偏标志：左负右正）：ifendifs 769.256（线元起点里程）ands806.748（线元止点里程）：then19787.34 u（线元起点x坐标）：28563.378v（线元起点y坐标）：769.256o（线元起点里程）：1251631g（线元起点方位角）：37.492h（线元长度）：10（45）p（线元起点曲率半径）：221.75r（线元终点曲率半径）：-1q（线元左右偏标志：左负右正）：ifendifs 806.748（线元起点里程）ands919.527（线元止点里程）：then19766.566u（线元起点x坐标）：28594.574v（线元起点y坐标）：806.748o（线元起点里程）：1202554.07g（线元起点方位角）：112.779h（线元长度）：221.75p（线元起点曲率半径）：221.75r（线元终点曲率半径）：-1q（线元左右偏标志：左负右正）：ifendifs 919.527（线元起点里程）ands999.812（线元止点里程）：then19736.072 u（线元起点x坐标）：28701.893 v（线元起点y坐标）：919.527o（线元起点里程）：911730.63g（线元起点方位角）：80.285h（线元长度）：221.75p（线元起点曲率半径）：9579.228r（线元终点曲率半径）：-1q（线元左右偏标志：左负右正）：ifendifs 999.812（线元起点里程）：then19744.038 u（线元起点x坐标）：28781.659v（线元起点y坐标）：999.812o（线元起点里程）：804050g（线元起点方位角）：100h（线元长度）：10（45）p（线元起点曲率半径）：10（45）r（线元终点曲率半径）：0 q（线元左右偏标志：左负右正）：ifend子程序（竖曲线数据库）sqx-sjifs999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）e：0.0227（后坡度：上坡正下坡负）f：600r（竖曲线半径）：780g（变坡点里程）：110c（变坡点高程）：ifend子程序（竖曲线计算公式）sqxe-fj：ifj0：then-rr：elssrr：abs（r*j2）t：ifendifsg-t：theng-sl：c-leh：ifendifsg-t and sg： theng-sl：（s+t-g）²2rn：c-le+n h：ifendifsg and sg+t： then s-gl：（g +t- s）²2rn：c+lf+n h：ifendifsg+t ：thens-gl： c+lf h：ifend三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，q=-1；当线元往右偏时，q=1；当线元为直线时，q=0。(2) 当所求点位于中线时，z=0；当位于中线左铡时，z取负值；当位于中线中线右侧时，z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以1