單項三次函數的圖形
Author: 藍邦偉  老師

,

y=x^4

單項三次函數的圖形

,.

,.

$ O $

A = (-4, 0)
B = (4, 0)
C = (0, -4)
D = (0, 4)
a = false
b = false
c = false
u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
A_1 = Corner(1)
A_4 = Corner(4)
A_2: (7.2 * Corner[1] + 2.8 * Corner[2]) / 10
A_3: (7.2 * Corner[4] + 2.8 * Corner[3]) / 10
多邊形1, a_1, a_2, a_3, a_4 = Polygon(A_1, A_2, A_3, A_4)
d = Segment(A_2, A_3)
i = false
j = false
h = 0 (slider from -5 to 5, step 0.1)
k = 0 (slider from -5 to 5, step 0.1)
e = false
h_1(x) = (x - h)^(3) + k
f(x) = 2 * (x - h)^(3) + k
g(x) = 0.5 * (x - h)^(3) + k
k_1(x) = -(x - h)^(3) + k
p(x) = -2 * (x - h)^(3) + k
q(x) = -0.5 * (x - h)^(3) + k
text1: "y=" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
text2: "y=2" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
text3: "y=\frac{1}{2}" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
text4: "y=-" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
text5: "y=-2" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
text6: "y=-\frac{1}{2}" + (LaTeX[If[h ≠ 0, "(", ""]]) + "x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, abs(h), ""]]) + "" + (LaTeX[If[h ≠ 0, ")", ""]]) + "³" + (LaTeX[If[k < 0, "-", If[k > 0, "+", ""]]]) + "" + (LaTeX[If[k ≠ 0, abs(k), ""]]) + ""
O = (0, 0)