雙曲線標準式(2)
Author: 藍邦偉  老師

顯示a²+b²=c²

a=

b=

h=

k=

雙曲線方程式

漸近線方程式:

h

k

b

a

Reset

k = 0 (slider from -20 to 20, step 1)
h = 0 (slider from -20 to 20, step 1)
b = 1 (slider from 0 to 6, step 0.5)
a = 1 (slider from 0 to 6, step 0.5)
c: sqrt(a^(2) + b^(2))
Γ: (-(x - h)^(2)) / b^(2) + (y - k)^(2) / a^(2) = 1
d: x = h
e: y = k
M: (h, k)
A: (h, k + a)
B: (h + b, k)
F': (h, k - c)
F: (h, k + c)
K_1: (x(Corner[1]), 0)
K_2: (x(Corner[2]), 0)
K_3: (0, y(Corner[2]))
K_4: (0, y(Corner[3]))
u = Vector(K_1, K_2)
v = Vector(K_3, K_4)
B' = Mirror(B, M)
g = Segment(B, B')
R_1: A + (0, b)
R_2: A - (0, b)
o = false
n = 0 (slider from 0 to 9, step 1)
T_1 = Corner(1)
T_4 = Corner(4)
T_2: (3.1 * Corner[1] + 1.9 * Corner[2]) / 5
T_3: (3.1 * Corner[4] + 1.9 * Corner[3]) / 5
多邊形2, t_1, t_2, t_3, t_4 = Polygon(T_1, T_2, T_3, T_4)
c_1 = Segment(T_2, T_3)
G: (x(Corner[1] + 1), y(0.33 * Corner[1] + 0.67 * Corner[4]))
text6: "中心M(" + h + "," + k + ")"
inputBox1 = Textfield(h)
inputBox2 = Textfield(k)
inputBox3 = Textfield(b)
inputBox4 = Textfield(a)
text5: "\frac{(y" + (LaTeX[If[k > 0, "-", "+"]]) + "" + (LaTeX[abs(k)]) + ")²}{" + (LaTeX[a^(2)]) + "}-\frac{(x" + (LaTeX[If[h > 0, "-", "+"]]) + "" + (LaTeX[abs(h)]) + ")²}{" + (LaTeX[b^(2)]) + "}=1"
text7: "貫軸長為" + (LaTeX[2 * a]) + ""
text15: "共軛軸長為 " + (2 * b)
A': (h, k - a)
f = Segment(A, A')
text8: "頂點座標為A(" + (LaTeX[h]) + "," + (LaTeX[k + a]) + "),A'(" + (LaTeX[h]) + "," + (LaTeX[k - a]) + ")"
text9: "貫軸頂點座標為B(" + (LaTeX[h + b]) + "," + (LaTeX[k]) + "),B'(" + (LaTeX[h - b]) + "," + (LaTeX[k]) + ")"
text10: "焦點座標為F(" + (LaTeX[h]) + "," + (LaTeX[k]) + "+\sqrt{" + (LaTeX[a^(2) + b^(2)]) + " })"
text11: "與F'(" + (LaTeX[h]) + "," + (LaTeX[k]) + "-\sqrt{" + (LaTeX[a^(2) + b^(2)]) + " })"
text12: "正焦弦長為\frac{2b²}{a}=" + (LaTeX[FractionText[2 * b^(2) / a]]) + ""
L = Line(M + (b, a), M)
L' = Line(M + (b, -a), M)
i: y = k + c
j: y = k - c
C, D = Intersect(Γ, i)
E, H = Intersect(Γ, j)
l = Segment(D, C)
m = Segment(H, E)
text14: "" + (LaTeX[L]) + "," + (LaTeX[L']) + ""