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

《5800计算器公路全线坐标正反算计算程序(含隧道)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、正算主程序(zs)lb10fix4：?s：?z：prog“pm-sj”：abs(s-o)→w：prog"sub1"："xs="：x◢"ys="：y◢f-90→f(需要时可以让他显示，不要时不必输入)：prog“sqx-sj”:prog“sqx”：“h=”：h◢goto0反算主程序(fs)lb10fix4:?s：?x：？y：prog“pm-sj”：x→i：y→  j：prog"sub2"："s="：o+w→s◢"z="：z◢prog“sqx-sj”：prog“sqx”：“h=”：h◢goto0隧道3心圆放样主程序（sd-3xy）lb10：prog“fs”：1.5→a

2、：1.65→b：0.89→g：2.27→c：3.3→d：2.41→e：0.51→j：“h1”：f：iff≤h+a：thene-absz→w：ifend：iff＞h+aandf≤h+a+b：then√（d²-（f-h-a）²）-g-absz→w：ifend：iff＞h+a+b：then√（c²-（f-h-a-j）²）-absz→w：ifend：“w=”：w◢  （水平方向的超欠挖：正为欠,负为超）goto0正算子程序(sub1)1÷p→c：(p-r)÷(2hpr)→d：180÷π→e：0.1739274226→  a：0.32

3、60725774→b：0.0694318442→k：0.3300094782→l：1-l→f：1-k→m：5u+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

4、((y-v)cost-(x-u)sin（t）)→w：0→z：lbl0：prog"sub1"：t+qew(c+wd)→l：(j-y)cosl-(i-x)sinl→z：ifabsz<1e-6：thengoto1：elssw+z  →w：goto0：ifend←┘5lbl1：0→z：prog"sub1"：(j-y)÷sinf→z子程序（平面线形数据库）pm-sjifs≥500（线元起点里程）ands＜769.256（线元止点里程）：then19942.837→u（线元起点x坐标）：28343.561→v（线元起点y坐标）：500→o（线元起点里程）：125°16°31°

5、→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（线元左右偏标志：

6、左负右正）：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.8125（线元止点里程）：then19736.072→u（线元起点x坐

7、标）：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（线元起点曲率半径）：1

8、0^（45