mostra iperbole

A = Point(a)
B = Point(a)
c = Circle(A, B)
C = Point(a)
d = Circle(A, C)
E = Intersect(d, a, 2)
α = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
G = Rotate(B, α, A)
β = Angle(B, A, G)
b = Line(E, G)
e = OrthogonalLine(G, b)
g = false
h = Line(A, G)
f = Hyperbola(C, E, Radius[c])
i = OrthogonalLine(G, a)
D = Intersect(a, i)
poli1, g_1, d_1, a_1 = Polygon(D, A, G)
γ = Angle(B, A, G)