上

下

左

右

還原

二次函數

指數函數

對數函數

n0 = 3 (slider from 1 to 3, step 1)
O = (3.82, -2.04)
Q_2: (2 / 3 * Corner[2]) + (1 / 3 * Corner[1])
Q_3: (x(Q_2), y(Corner[4]))
side = Segment(Q_2, Q_3)
u_x = Vector((x(Corner[1]), y(O)), (x(Q_2), y(O)))
u_y = Vector((x(O), y(Corner[1])), (x(O), y(Corner[4])))
h = 0 (slider from -5 to 5, step 1)
k = 0 (slider from -5 to 5, step 1)
g_1 = If(n0 ≟ 1, (x - h)^(2) + k, If[n0 ≟ 2, 2^(x - h) + k, If[n0 ≟ 3, log(2, x - h) + k]])
f = If(n0 ≟ 1, If[x(Corner[1]) ≤ x ≤ x(Q_2),(x - x(O))^(2) + y(O)], If[n0 ≟ 2, If[x(Corner[1]) ≤ x ≤ x(Q_2),2^(x - x(O)) + y(O)], If[n0 ≟ 3, If[x(Corner[1]) ≤ x ≤ x(Q_2),ld(x - x(O)) + y(O)]]])
A = Point(f)
B: A + (h, 0)
u_1 = Vector(A, B)
C: B + (0, k)
u_2 = Vector(B, C)
text2: "g(x)=" + (LaTeX[If[n0 ≟ 1, If[h ≟ 0, Simplify[g_1], g_1]]]) + "" + (LaTeX[If[n0 ≥ 2, g_1]]) + ""
text5: "" + (LaTeX[If[k ≠ 0, abs(k)]]) + ""
text4: "" + (LaTeX[If[h ≠ 0, abs(h)]]) + ""
D: O + (h, k)
text6: "(" + (LaTeX[h]) + "," + (LaTeX[k]) + ")"
g = If(n0 ≟ 1, If[x(Corner[1]) ≤ x ≤ x(Q_2),(x - h - x(O))^(2) + y(O) + k], If[n0 ≟ 2, If[x(Corner[1]) ≤ x ≤ x(Q_2),2^(x - h - x(O)) + y(O) + k], If[n0 ≟ 3, If[x(Corner[1]) ≤ x ≤ x(Q_2),ld(x - x(O) - h) + y(O) + k]]])
f_1 = If(n0 ≟ 1, x^(2), If[n0 ≟ 2, 2^(x), If[n0 ≟ 3, log(2, x)]])
text1: "f(x)=" + (LaTeX[f_1]) + ""
text3: "將\textcolor{0,255,255}{f(x)=" + (LaTeX[f_1]) + "}
\\" + (LaTeX[If[h  <  0, "向左平移" + (abs(h)) + "單位", If[h > 0, "向右平移" + (abs(h)) + "單位"]]]) + "
\\ " + (LaTeX[If[k  <  0, "向下平移" + (abs(k)) + "單位", If[k > 0, "向上平移" + (abs(k)) + "單位"]]]) + " 
\\" + (LaTeX[If[(h ≠ 0) ∨ (k ≠ 0), "可得"]]) + "\textcolor{yellow}{" + (LaTeX[text2]) + "}"
R_1 = (14.52, -7.36)
R_2 = (13.4, -3.36)