Date: 9 4 月 2013

f(x)=

f(x) = x^(3) - 3 * x + 1
inputBox1 = Textfield(f)
A, B = Extremum(f)
C = TurningPoint(f)
n = 1 (slider from 1 to 3, step 1)
g_1 = Function(f, x(Corner[1]), Min[x(A), x(B)])
g_3 = Function(f, Max[x(A), x(B)], x(Corner[2]))
g_2 = Function(f, Min[x(A), x(B)], Max[x(A), x(B)])
list1 = Coefficients(f'(x))
a = Element(list1, 1)
b = Element(list1, 2)
c = Element(list1, 3)
ac: a * c
D: b^(2) - 3 * ac
h_1 = Function(f, x(Corner[1]), x(C))
h_2 = Function(f, x(C), x(Corner[2]))