F

b

c

a

a

b

c

e = 0.8 (slider from 0 to 5, step 0.001)
a = 5 (slider from 0 to 10, step 0.1)
c: (a * e)
F: (c, 0)
F': ((-c), 0)
A: (a, 0)
A': ((-a), 0)
eli = Ellipse(F', F, A)
hip = Hyperbola(F', F, A)
p: (2 * a)
texto1 = If(e ≟ 1, "p = " + p, "a = " + a)
F_p: (p / 2, 0)
d: x = ((-p)) / 2
par = Parabola(F_p, d)
b = If(e  <  1, sqrt((a * a) - (c * c)), sqrt((c * c) - (a * a)))
B: (0, b)
B': (0, (-b))
O = (0, 0)
f = Segment(B, O)
triangeli, f_1, b_1, o = Polygon(B, O, F)
C: (a, b)
g = Line(C, O)
g' = Mirror(g, f)
trianghip, c_1, o_1, a_1 = Polygon(O, A, C)