Date: 4 4 月 2013

f'(x)

f''(x)

f(x)

A = (-4, 8)
C = (8, 4)
B = (2, 6)
D = (6, 8)
f = Polynomial({A, B, C, D})
text1: "f(x)=" + (LaTeX[f]) + ""
E = DynamicCoordinates(A, floor(x(A)), floor(y(A)))
F = DynamicCoordinates(B, floor(x(B)), floor(y(B)))
G = DynamicCoordinates(C, floor(x(C)), floor(y(C)))
H = DynamicCoordinates(D, floor(x(D)), floor(y(D)))
I, J = Extremum(f)
K = Point(f)
b = Tangent(K, f)
text2: "" + (LaTeX[b]) + ""
TangentLine = false
f' = Derivative(f)
text3: "f'(x)=" + (LaTeX[f']) + ""
L, M = Root(f')
c: x = x(L)
d: x = x(M)
f'' = Derivative(f')
N = TurningPoint(f)
text4: "f''(x)=" + (LaTeX[f'']) + ""
h: x = x(N)
P = Intersect(f'', h)
p = Function(f, x(Corner[1]), x(I))
q = Function(f', x(Corner[1]), x(L))
r = Function(f, x(I), x(J))
s = Function(f', x(J), x(Corner[2]))
t = Function(f, x(J), x(Corner[2]))
f_1 = Function(f, x(L), x(M))
g_1 = Function(f', x(L), x(M))
O = Intersect(f', q, 1)
Q = Intersect(q, b, 1)
e = false
i = false
k = true