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

,

y=x^4

單項四次函數的圖形

,.

,.

Reset

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 * Corner[1] + 3 * Corner[2]) / 10
A_3: (7 * Corner[4] + 3 * 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
f_3(x) = (x - h)^(4) + k
f_1(x) = 2 * (x - h)^(4) + k
f_2(x) = 0.5 * (x - h)^(4) + k
g_1(x) = -(x - h)^(4) + k
g_2(x) = -2 * (x - h)^(4) + k
g_3(x) = -0.5 * (x - h)^(4) + k
text1: "y=(x" + (If[h < 0, "+", "-"]) + (abs(h)) + ")⁴" + (If[k < 0, "-", "+"]) + (abs(k))
text2: "y=2(x" + (If[h < 0, "+", "-"]) + (abs(h)) + ")⁴" + (If[k < 0, "-", "+"]) + (abs(k))
text3: "y=\frac{1}{2}(x" + (If[h < 0, "+", "-"]) + (abs(h)) + ")⁴" + (If[k < 0, "-", "+"]) + (abs(k))
ab: a * b
text4: "y=-(x" + (If[h < 0, "-", "+"]) + (abs(h)) + ")⁴" + (If[k < 0, "-", "+"]) + (abs(k))
text5: "y=-2(x" + (If[h < 0, "+", "-"]) + (abs(h)) + ")⁴" + (If[k < 0, "_", "+"]) + (abs(k))
text6: "y=-\frac{1}{2}(x" + (If[h < 0, "+", "-"]) + (abs(h)) + ")⁴" + (If[k < 0, "-", "+"]) + (abs(k))