Date: 22 3 月 2013

Choose Points

Tangent Line

Extremum

f'(x)

f''(x)

Draw f(x)

D_1 = (-1.62, 2.4)
C_1 = (2.04, 2.86)
B_1 = (-2.54, 1.94)
A_1 = (0.46, -0.44)
A = DynamicCoordinates(A_1, floor(x(A_1)), floor(y(A_1)))
B = DynamicCoordinates(B_1, floor(x(B_1)), floor(y(B_1)))
D = DynamicCoordinates(D_1, floor(x(D_1)), floor(y(D_1)))
C = DynamicCoordinates(C_1, floor(x(C_1)), floor(y(C_1)))
f = Polynomial({A, B, C, D})
text1: "f(x)=" + (LaTeX[f]) + ""
E, F = Extremum(f)
a_1 = true
G = Point(f)
L = Tangent(G, f)
text2: "" + (LaTeX[L]) + ""
a_5 = false
a_6 = false
f' = Derivative(f)
H, I = Root(f')
d: x = x(H)
e: x = x(I)
a_3 = false
a_4 = false
f'' = Derivative(f')
J = TurningPoint(f)
i: x = x(J)
K = Intersect(f'', xAxis)
text5: "$f''(x)=" + (LaTeX[f'']) + "=0$
$⇒x=" + (LaTeX[x(J)]) + "$"
v = 1 (slider from 1 to 2, step 1)
f_1 = Function(f, x(Corner[1]), Min[x(E), x(F)])
f_2 = Function(f, Min[x(E), x(F)], Max[x(E), x(F)])
f_3 = Function(f, Max[x(E), x(F)], x(Corner[2]))
g_1 = Function(f', x(Corner[1]), Min[x(H), x(I)])
g_2 = Function(f', Min[x(I), x(H)], Max[x(I), x(H)])
g_3 = Function(f', Max[x(I), x(H)], x(Corner[2]))
h_1 = Function(f, x(Corner[1]), x(J))
h_2 = Function(f, x(J), x(Corner[2]))
h_3 = Function(f'', x(Corner[1]), x(J))
h_4 = Function(f'', x(J), x(Corner[2]))
list2 = Coefficients(f')
Delta: Element[list2, 2]^(2) - 4 * Element[list2, 1] * Element[list2, 3]
text4: "$f'(x)=" + (LaTeX[f']) + "=0$
$⇒" + (LaTeX[If[Delta > 0, "x=" + (x(H)) + "," + (x(I)), If[Delta ≟ 0, "x=" + (x(H)), "x無實根"]]]) + "$
$" + (LaTeX[If[Delta > 0, "⇒f(" + (x(H)) + ")=" + (f(x(H))) + ",f(" + (x(I)) + ")=" + (f(x(I))), If[Delta ≟ 0, "⇒f(" + (x(H)) + ")=" + (f(x(H))), "⇒f(x)無極值"]]]) + "$"
a_2 = false
t = -5.659999999999999 (slider from x(Corner[1]) to x(Corner[2]), step 0.0010)
interval = 1 (slider from 0.1 to 1, step 0.1)
list1 = Sequence((j, f(j)), j, x(Corner[1]), t, interval)
text3: "$x=" + (LaTeX[t]) + "⇒f(x)=" + (LaTeX[f(t)]) + "$"