線上点座標計算 FILE SENJYYUTEN Lbl 0:A"X−1=":B"Y−1=":C"X−2=":D"Y−2=": E=C−A:F=D−B:Pol (E,F):J≧0⇒H=J: Goto 1:≠⇒H=J+360 :Lbl 1:K "M+L=" EXE H"HOU" ▲X=K×Cos H +A:X"PX="▲Y=K×Sin H+B:Y"PY=▲Goto 0 線上点座標計算 X−1=?        器械点         例題  100.000 EXE Y−1=?        器械点         例題  100.000 EXE X−2=?        器械点         例題  150.000 EXE Y−2=?        器械点         例題  150.000 EXE J?            なにも入力しないで       45  EXE M+L=?        測点より中間点までの距離    5.000  EXE HOUKOUKAKU=45        EXE 角度変換必要 SHIFT °′″ この例題は   45°ですが、45.123456と出た場合は、最後に度分秒に変換 してください。 PX=103.5355339            EXE PY=103.5355339            EXE AC/on Break 入力画面に戻る、AC/on 2回押しで終了。