四次函數的極值
Author: 藍邦偉　老師

四次函數的極值

a_1

a_2

a_3

a_4

a=

b=

c=

d=

L=

R=

L

R

1

x有範圍限制

e=

e

e = 0
a = 0
b = 0
c = 0
d = 0
t = -0.7276363636363625 (slider from x(Corner[1]) to x(Corner[2]))
f(x) = a * x^(4) + b * x^(3) + c * x^(2) + d * x + e
A, B, C = Extremum(f)
u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
inputBox1 = Textfield(a)
inputBox2 = Textfield(b)
inputBox3 = Textfield(c)
inputBox4 = Textfield(d)
Delta: 4 * b^(2) - 12 * a * c
L = -30
R = 30
inputBox5 = Textfield(L)
inputBox6 = Textfield(R)
g = Function(f, L, R)
W_1: (L, f(L))
W_2: (R, f(R))
text3: "" + W_1
text12: "(" + (LaTeX[FractionText[x(W_2)]]) + "," + (LaTeX[FractionText[y(W_2)]]) + ")"
text14: "$ (" + (LaTeX[FractionText[x(A)]]) + "," + (LaTeX[FractionText[y(A)]]) + ") $"
text16: "$ (" + (LaTeX[FractionText[x(B)]]) + "," + (LaTeX[FractionText[y(B)]]) + ") $"
t_e = true
q_1: f''(x(A))
q_2: f''(x(B))
text22: "當x=" + (LaTeX[FractionText[x(A)]]) + "時，f(x)有極" + (LaTeX[If[q_1 < 0, "大", "小"]]) + "值" + (LaTeX[FractionText[y(A)]]) + ""
q_3: f'(x(W_1) + 0.0010)
q_4: f'(x(W_2) - 0.0010)
text23: "當x=" + (LaTeX[FractionText[x(B)]]) + "時，f(x)有極" + (LaTeX[If[q_2 > 0, "小", "大"]]) + "值" + (LaTeX[FractionText[y(B)]]) + ""
text25: "當x=" + (LaTeX[FractionText[x(W_2)]]) + "時，f(x)有極" + (LaTeX[If[q_4 < 0, "小", "大"]]) + "值" + (LaTeX[FractionText[y(W_2)]]) + ""
inputBox7 = Textfield(e)
text1: "f(x)=" + (LaTeX[a]) + "x⁴" + (LaTeX[If[b < 0, "-", "+"]]) + "" + (LaTeX[abs(b)]) + "x³" + (LaTeX[If[c < 0, "-", "+"]]) + "" + (LaTeX[abs(c)]) + "x²" + (LaTeX[If[d < 0, "-", "+"]]) + "" + (LaTeX[abs(d)]) + "x" + (LaTeX[If[e < 0, "-", "+"]]) + "" + (LaTeX[abs(e)]) + ""
text9: "⇒f'(x)=" + (LaTeX[4 * a]) + "x³" + (LaTeX[If[b < 0, "-", "+"]]) + "" + (LaTeX[3 * abs(b^(2))]) + "x" + (LaTeX[If[c < 0, "-", "+"]]) + "" + (LaTeX[abs(2 * c)]) + "x" + (LaTeX[If[d < 0, "-", "+"]]) + "" + (LaTeX[abs(d)]) + "=0"
text27: "(" + (LaTeX[FractionText[x(C)]]) + "," + (LaTeX[FractionText[y(C)]]) + ")"
text11: "⇒x=" + (LaTeX[FractionText[x(A)]]) + "," + (LaTeX[FractionText[x(B)]]) + "," + (LaTeX[FractionText[x(C)]]) + ""
q_5: f''(x(A))
text29: "當x=" + (LaTeX[FractionText[x(C)]]) + "時，f(x)有極" + (LaTeX[If[q_5 > 0, "小", "大"]]) + "值" + (LaTeX[FractionText[y(C)]]) + ""
text24: "當x=" + (LaTeX[FractionText[x(W_1)]]) + "時，f(x)有極" + (LaTeX[If[q_3 > 0, "小", "大"]]) + "值" + (LaTeX[FractionText[y(W_1)]]) + ""