リセット

判定

極値がない

L1 = Remove(Sequence[i, i, -5, 5, 1], {0})
a = RandomElement(L1)
L = Sequence(i, i, -3, 3, 1)
b = RandomElement(L)
c = RandomElement(L)
A = (-0.7970575407231721, -0.7515702808735694)
B = (-0.7970575407231721, -1.294246179724533)
poly1, f, g, h, i, C, D = Polygon(A, B, 4)
E: (b, c)
d = RandomElement(L)
p(x) = (a * x^(3)) + (b * x^(2)) + (c * x) + d
F, G = Extremum(p)
text1: "" + (LaTeX[p]) + "の極値を探しましょう。\\
赤い四角を極大値に、青い四角を極小値に持っていきましょう。\\
極値がない場合は「極値がない」にチェックを入れて判定を押してください。"
A_1 = (0.3850481349125343, -1.40191989822543)
B_1 = (0.3850481349125343, -1.944595797076392)
poly2, f_1, g_1, h_1, i_1, C_1, D_1 = Polygon(A_1, B_1, 4)
Maximum = If(y(F) > y(G), F, G)
Minimum = If(y(F) < y(G), F, G)
e = IsInRegion(Maximum, poly1)
j = IsInRegion(Minimum, poly2)
k: false
l = If((¬Defined[Maximum]) ∧ (¬Defined[Minimum]) ∧ k ≟ true, true, false)

Tool: Tool1
Input: A
Output: h, g

B: (x(A), 0)
C: (0, y(A))
g = Segment(A, C)
h = Segment(A, B)