領域

一次不等式が表す領域を描きましょう。

領域の入れ替え

正解

e(x) = x > 0.51
b: (Random[0, 1] * 2) - 1
a: (Random[2, 3] * ((Random[0, 1] * 2) - 1))
c: (((Random[1, 2] * 2) - 1) * ((Random[0, 1] * 2) - 1))
A = PointIn(e)
f(x) = x  <  0.49
s = -1
B = PointIn(f)
d(x, y) = (s * (((x(A) - x) * (y(A) - y(B))) - ((y(A) - y) * (x(A) - x(B))))) ≥ 0
st2: (a * x(B)) + (b * y(B)) + c ≟ 0
st1: (a * x(A)) + (b * y(A)) + c ≟ 0
n: (Random[0, 1] * 2) - 1
f0 = Expand((a * x) + (b * y) + c)
text3 = If(n ≟ 1, "\le ", "\ge ")
text1: "" + (LaTeX[f0]) + "" + (LaTeX[text3]) + "0を表すように赤い点を動かしましょう．"
st3 = If(b  <  0, s ≟ n, s ≠ n)
st: st3 ∧ st1 ∧ st2