二次函數的平移
Author: 藍邦偉  老師

$ O $

滑竿輸入

Up

Down

Left

Right

      $ ⇑ $
$⇐\;\;\;\;⇒$
      $⇓$

Reset

ZoomIn

$ a= $

$ b= $

$ c= $

1

2

3

自行輸入

$ 二次函數的平移 $

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.3 * 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])
a = -1 (slider from -5 to 5, step 0.1)
h = 1 (slider from -5 to 5, step 0.5)
k = 2.5 (slider from -5 to 5, step 0.5)
f(x) = a * (x - h)^(2) + k
V: (h, k)
text1: "$ (" + (LaTeX[FractionText[x(V)]]) + "," + (LaTeX[FractionText[y(V)]]) + ") $"
b = true
zoom = 2.9 (slider from 0.1 to 5, step 0.1)
inputBox1 = Textfield(a)
inputBox2 = Textfield(h)
inputBox3 = Textfield(k)
c = false
text2: "$ f(x)=" + (LaTeX[If[abs(a) ≠ 1, FractionText[a], If[a ≟ 1, "", "-"]]]) + "" + (LaTeX[If[h ≟ 0, "", "("]]) + "\;x" + (LaTeX[If[h > 0, "-", If[h < 0, "+", ""]]]) + "" + (LaTeX[If[h ≠ 0, FractionText[abs(h)], ""]]) + "" + (LaTeX[If[h ≟ 0, "", ")"]]) + " ^2" + (LaTeX[If[k > 0, "+", If[k < 0, "-", ""]]]) + "" + (LaTeX[If[k ≠ 0, FractionText[abs(k)], ""]]) + "$"