直線と点との距離

直線と点との距離を求めましょう。

d^2

=

である。

正解

cx = Random(-3, 3)
cy = Random(-3, 3)
px: (Random[1, 4] * ((Random[0, 1] * 2) - 1))
py: (Random[1, 4] * ((Random[0, 1] * 2) - 1))
pz: ((-px) * cx) - (py * cy)
f(x, y) = (px * x) + (py * y) + pz
ax: cx + px
ay: cy + py
dd: (px * px) + (py * py)
k = If(Mod[dd, 16] ≟ 0, 4, If[Mode[{dd, 9}] ≟ 0, 3, If[Mod[dd, 4] ≟ 0, 2, 1]])
d: dd / k / k
text1: "点(" + ax + "," + ay + ")と直線" + f + "=0との距離をdとすると、"
d0 = 0
入力ボックス1 = Textfield(d0)