iperbole

ellisse

IPER = (4.78, 5.5200000000000005)
A = Point(xAxis)
B: -(A)
ELLI = (2, 2)
c = Ellipse(B, A, ELLI)
D = Point(c)
a = Segment(B, D)
b = Segment(A, D)
e, f = AngularBisector(a, b)
A'_1 = Mirror(A, f)
D' = Mirror(D, f)
b' = Segment(A'_1, D')
d = Hyperbola(B, A, IPER)
E = Point(d)
g = Segment(B, E)
h = Segment(A, E)
i, j = AngularBisector(g, h)
A' = Mirror(A, i)
E' = Mirror(E, i)
h' = Segment(A', E')
k = false
l = false