A = (-0.7083749780921182, 3.969926416846874)
B = Point(Circle[A, 1])
a = Segment(A, B)
poly1, b, c, d, e, C, D = Polygon(A, B, 4)
α = 0.61 (slider from 0 to 1, step 0.01)
f = Ray(D, A)
g = Circle(A, α)
E = Intersect(g, f, 2)
h = Circle(C, α)
G = Intersect(a, b)
F, H = Intersect(h, d)
i = Line(E, F)
I_1 = Intersect(a, b)
I = Intersect(i, b)
AI: (α - α^(2)) / (α + 1)
distanceAI = Distance(A, I)
TexteAI: "\overline{" + (Name[A]) + (Name[I]) + "} \, = \, " + distanceAI