Circunferencia

Elipse

Hipérbola

F_1

F_2

A  \space x^{2}+B \space xy+C \space y^{2}+D \space x+E \space y+F=0

Conica degenerada

Directriz

Rectas paralelas

Elipse imaginaria

Asíntota

Asíntota

Eje principal

Eje secundario

Directriz

Directriz

Parábola

Centro

Focos

Vértices

Directrices

Ejes

Asíntotas

Circunferencia

Elipse

Parábola

Rectas secantes

Hipérbola

A = 1 (slider from -20 to 20, step 1)
B: 0
C = 4 (slider from -20 to 20, step 1)
D: 0
E = 0 (slider from -20 to 20, step 2)
F = -16 (slider from -100 to 100, step 2)
k: (A * x^(2)) + ((B * x) * y) + (C * y^(2)) + (D * x) + (E * y) + F = 0
dis: B^(2) - ((4 * A) * C)
texto3 = If(dis < 0, "elíptico", If[dis ≟ 0, "parabólico", "hiperbólico"])
texto4: "Tipo " + texto3 + ""
ex = Eccentricity(k)
F', F'' = Focus(k)
texto10: "" + (LaTeX[k]) + ""
g = Defined(ex)
texto12 = If(ex ≟ sqrt(2), "equilátera", "")
texto13: "Hipérbola " + texto12 + ""
O = Center(k)
l, l_1 = Directrix(k)
m, n = Asymptote(k)
h = FirstAxis(k)
i = SecondAxis(k)
ma = FirstAxisLength(k)
me = SecondAxisLength(k)
V, V', U', U = Vertex(k)
CV = Distance(O, V)
CF = Distance(F', O)
j: CV^(2) / CF^(2)
A': O + (j * (F' - O))
p = OrthogonalLine(A', h)
A'' = Mirror(A', O)
q = OrthogonalLine(A'', h)
o = false
r = false
s = false
t = false
u = false
v = false
texto5: "Excentridad=" + (LaTeX[ex]) + ""
a = 2
b = 0
c = -2
d = 0
e = 0
f = -2
texto2: "Discriminante=B^{2}-4 \space A \space C=" + (LaTeX[dis]) + ""