C&oacute;nica: dado los v&eacute;rtices del eje focal y la excentricidad

$A$

$A'$

$O$

$a$

$O(aε)$

$F$

$F'$

Elipse

Hipérbola

Circunferencia

A = (5.16, 0.76)
A' = (1.46, 0.76)
B = (-3.68, 5.32)
C = (4.48, 5.28)
a_1 = Ray(B, C)
D = Point(a_1)
ε = Segment(B, D)
O = Midpoint(A', A)
a = Segment(O, A)
c: ε * Distance[A, O]
b = Line(A, A')
d = Circle(O, c)
e = Ray(O, A)
f = Ray(O, A')
F = Intersect(d, e, 1)
F' = Intersect(d, f, 1)
h = Hyperbola(F', F, A)
g = Hyperbola(F, F', A)
k = Ellipse(F, F', A)

Tool: Conica Punto Tangente Tangente_Punto (command ConicaPuntoTangenteTangente_Punto)
Dar el foco, dos tangentes y el punto de contacto de la última
Input: F, t, t_P, P
Output: e, g, f, F_2

P = Point(t_P)
S_1 = Mirror(F, t)
S_2 = Mirror(F, t_P)
a = Line(S_2, P)
b = LineBisector(S_1, S_2)
F_2 = Intersect(a, b)
e = Ellipse(F, F_2, P)
f = Hyperbola(F, F_2, P)
g = Parabola(F, Line[S_1, S_2])

Tool: Conica Dos Focos Una Tangente (command ConicaDosFocosUnaTangente)
Dar los dos focos y una tangente
Input: F, F', t
Output: c, d, P

S = Mirror(F, t)
a = Line(F', S)
P = Intersect(t, a)
c = Ellipse(F, F', P)
d = Hyperbola(F, F', P)