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

正算主程序(zs)lb1 0fix4：?s：?z：prog “pm-sj”： abs(s-o) → w：prog "sub1"： "xs="：x"ys="：yf-90→f(需要时可以让他显示，不要时不必输入)：prog“sqx-sj”: prog“sqx”：“h=”：hgoto 0反算主程序(fs)lb1 0fix4: ?s：?x：？y：prog“pm-sj”： x→ i： y→??j：prog "sub2"： "s="：o+w→s"z="：zprog“sqx-sj”：prog“sqx” ：“h=”：hgoto 0隧道3心圆放样主程序（sd-3xy）lb1 0：prog“fs”：1.5→a：1.65→b：0.89→g：2.27→c：3.3→d：2.41→e：0.51→j：“h1”：f：iff≤h+a：then e-absz→w：ifend：iff＞h+a and f≤h+a+b：then√（d&sup2;-（f-h-a）&sup2;）-g-absz→w：ifend：iff＞h+a+b：then√（c&sup2;-（f-h-a-j）&sup2;）-absz→w：ifend：“w=”：w??（水平方向的超欠挖：正为欠,负为超）goto0正算子程序(sub1)1÷p→ c： (p-r)÷(2hpr) → d： 180÷π→ e： 0.1739274226→??a： 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-90→t： 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：ifabsz<1e-6：thengoto1：elssw+z??→ w：goto 0：ifend←┘lbl 1： 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°→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