2D 座標架
Author: 藍邦偉  老師

$ O $

$ 對數函數的平移 $

$ (1)\;水平 $

$ (2)\;鉛直 $

1

2

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
O = (0, 0)
Q_2: 0.7 * Corner[1] + 0.32 * Corner[2]
Q_3: (x(Q_2), y(Corner[4]))
poly1, q_1, q_2, q_4, q_3 = Polygon(Corner[1], Q_2, Q_3, Corner[4])
f(x) = ld(x)
h = 3 (slider from -5 to 5, step 1)
k = 4 (slider from -5 to 5, step 1)
a = false
b = false
g_2(x) = f(x) + k
g(x) = ld(x - h)
text2: "$ f(x)=log_2x $
$h(x)=f(x)" + (LaTeX[If[k ≟ 0, "", If[k > 0, "+" * abs(k), If[k < 0, "-" * abs(k)]]]]) + "$
$\;\;\;\;\;\;\;\;=log_2x" + (LaTeX[If[k ≟ 0, "", If[k > 0, "+" * abs(k), If[k < 0, "-" * abs(k)]]]]) + "$"
text1: "$f(x)=log_2x$
$g(x)=f(x" + (LaTeX[If[h < 0, "+" * abs(h), If[h > 0, "-" * abs(h)]]]) + ") $
$\;\;\;\;\;\;\;\;=log_2{" + (LaTeX[If[h ≟ 0, "x", "(x"]]) + "" + (LaTeX[If[h ≟ 0, "", If[h > 0, "-" * abs(h), If[h < 0, "+" * abs(h)]]]]) + "" + (LaTeX[If[h ≟ 0, "", ")"]]) + "}$"