橢圓的方程式(1)
Author: 藍邦偉  老師
Date: 8 12 月 2012

a²=b²+c²

h=

k=

a=

b=

a

b

h

k

Reset

a>b,a²=b²+c²

$ 橢圓方程式(1) $

$ A $

$ A' $

$ B $

$ B' $

$ F $

$ F' $

$ M $

a = 2 (slider from 0 to 10, step 1)
b = 1 (slider from 0 to 10, step 1)
h = 0 (slider from -20 to 20, step 1)
k = 0 (slider from -20 to 20, step 1)
Γ: (x - h)^(2) / a^(2) + (y - k)^(2) / b^(2) = 1
c: a > b
d: x = h
e: y = k
M: (h, k)
A: (h + a, k)
B, B' = Intersect(Γ, d)
g = Segment(B, B')
F: (h + (a^(2) - b^(2))^(1 / 2), k)
F': (h - (a^(2) - b^(2))^(1 / 2), k)
多邊形1, f_1, b_1, m_1 = Polygon(B, M, F)
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)
Step = 0 (slider from 0 to 7, step 1)
o = false
T_4 = Corner(4)
T_1 = Corner(1)
T_2: 7 / 10 * Corner[1] + 3 / 10 * Corner[2]
T_3: (x(T_2), y(Corner[3]))
多邊形2, t_1, t_2, t_3, t_4 = Polygon(T_1, T_2, T_3, T_4)
p = Segment(T_2, T_3)
A': (h - a, k)
f = Segment(A', A)
i = OrthogonalLine(F', u)
j = OrthogonalLine(F, u)
C, D = Intersect(Γ, i)
E, G = Intersect(Γ, j)
l = Segment(D, C)
m = Segment(G, E)
A_a = Textfield(a)
H: (19 / 20 * x(Corner[1] + 1 / 20 * x(Corner[2])) - 0.85, 2 / 5 * y(Corner[1]) + 3 / 5 * y(Corner[4]))
B_b = Textfield(b)
H_h = Textfield(h)
K_k = Textfield(k)
text6: "中心M(" + h + "," + k + ")"
text7: "長軸長為" + (2 * a) + "," + "短軸長為" + (2 * b)
text8: "長軸頂點A(" + (h + a) + "," + k + "),A'(" + (h - a) + "," + k + ")"
text9: "短軸頂點B(" + h + "," + (k + b) + "),B'(" + h + "," + (k - b) + ")"
text12: "正焦弦長\frac{2b²}{a}=" + (FractionText[2 * b^(2) / a])
text10: "焦點F\;(" + (LaTeX[SurdText[h + sqrt(a^(2) - b^(2))]]) + "," + (LaTeX[k]) + ")"
text11: "焦點F'\;(" + (LaTeX[SurdText[h - sqrt(a^(2) - b^(2))]]) + "," + (LaTeX[k]) + ")"
t_5: "$ \Gamma：\;\frac{" + (LaTeX[If[h ≟ 0, "", "("]]) + "" + (LaTeX[If[h ≟ 0, "x^2", If[h > 0, "x-" * abs(h), "x+" * abs(h)]]]) + "" + (LaTeX[If[h ≟ 0, "", ")^2"]]) + "}{" + (LaTeX[a^(2)]) + "} +\frac{" + (LaTeX[If[k ≟ 0, "", "("]]) + "" + (LaTeX[If[k ≟ 0, "y^2", If[k > 0, "y-" * abs(k), "y+" * abs(k)]]]) + "" + (LaTeX[If[k ≟ 0, "", ")^2"]]) + "}{" + (LaTeX[b^(2)]) + "}=1$"