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

正算主程序(zs)lb1 0fix4：?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◢goto 0反算主程序(fs)lb1 0fix4: ?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◢goto 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√（dsup2;-（f-h-a）sup2;）-g-absz→w：ifend：iff＞h+a+b：then√（csup2;-（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.32607