式はこんな感じ。0除算を避ける為にごちゃごちゃしてますが、 ox=num_ox/denom ox=num_oy/denom r=sqr((x0-ox)^2+(y1-oy)^2) です。 0除算でエラー出さずに inf なり nan なり返してくれれば、余計な if 文はばっさり不要になるのに。 あ!! option defint 環境下でも動くよう、変数には全部 # つけとくべきだったな・・・失敗した。