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

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

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-90→t：abs((y-v)cost-(x-u)sin（t）)→w：0→z：lbl0：progsub1：t+qew(c+wd)→l：(j-y)cosl-(i-x)sinl→z：ifabsz1e-6：thengoto1：elssw+z??→w：goto0：ifend←┘

lbl1：0→z：progsub1：(j-y)÷sinf→z子程序（平面线形数据库）pm-sj

ifs≥500（线元起点里程）ands＜769.256（线元止点里程）：then19942.837→u（线元起点x坐标）：28343.561→v（线元起点y坐标）：500→o（线元起点里程）：125°16°31°→g（线元起点方位角）：269.265→h（线元长度）：10^（45）→p（线元起点曲率半径）：10^（45）→r（线元终点曲率半径）：0→q（线元左右偏标志：左负右正）：ifend←┘

ifs≥769.256（线元起点里程）ands＜806.748（线元止点里程）：then19787.34→u（线元起点x坐标）：28563.378→v（线元起点y坐标）：769.256→o（线元起点里程）：125°16°31°→g（线元起点方位角）：37.492→h（线元长度）：10^（45）→p（线元起点曲率半径）：221.75→r（线元终点曲率半径）：-1→q（线元左右偏标志：左负右正）：ifend←┘

ifs≥806.748（线元起点里程）ands＜919.527（线元止点里程）：then19766.566→u（线元起点x坐标）：28594.574→v（线元起点y坐标）：806.748→o（线元起点里程）：120°25°54.07°→g（线元起点方位角）：112.779→h（线元长度）：221.75→p（线元起点曲率半径）：221.75→r（线元终点曲率半径）：-1→q（线元左右偏标志：左负右正）：ifend←┘

ifs≥919.527（线元起点里程）ands＜999.812（线元止点里程）：then19736.072→u（线元起点x坐标）：28701.893→v（线元起点y坐标）：919.527→o（线元起点里程）：91°17°30.63°→g（线元起点方位角）：80.285→h（线元长度）：221.75→p（线元起点曲率半径）：9579.228→r（线元终点曲率半径）：-1→q（线元左右偏标志：左负右正）：ifend←┘

ifs≥999.812（线元起点里程）：then19744.038→u（线元起点x坐标）：28781.659→v（线元起点y坐标）：999.812→o（线元起点里程）：80°40°50°→g（线元起点方位角）：100→h（线元长度）：10^（45）→p（线元起点曲率半径）：10^（45）→r（线元终点曲率半径）：0→q（线元左右偏标志：左负右正）：ifend←┘

子程序（竖曲线数据库）sqx-sj

ifs≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→e：0.0227（后坡度：上坡正下坡负）→f：600→r（竖曲线半径）：780→g（变坡点里程）：110→c（变坡点高程）：ifend←┘

子程序（竖曲线计算公式）sqx

e-f→j：ifj＞0：then-r→r：elssr→r：abs（r*j÷2）→t：ifend←┘

ifs≤g-t：theng-s→l：c-le→h：ifend←┘

ifs＞g-tands≤g：theng-s→l：（s+t-g）sup2;÷2÷r→n：c-le+n→h：ifend←┘

ifs＞gands≤g+t：thens-g→l：（g+t-s）sup2;÷2÷r→n：c+lf+n→h：ifend←┘

ifs＞g+t：thens-g→l：c+lf→h：ifend←┘

三、使用说明

1、规定

????????(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，q=-1；当线元往右偏时，q=1；当线元为直线时，q=0。

????????(2)当所求点位于中线时，z