Date: 29 Septiembre 2015

↑

h = 0.71 (slider from 0 to 1, step 0.01)
A = Point(yAxis)
B = Point(Circle[A, 3.141592653589793])
a = Segment(A, B)
C = Point(a, h)
c = Circle(C, 0.5)
D = Intersect(xAxis, yAxis)
E = Intersect(c, xAxis, 1)
b = Segment(D, E)
E' = Rotate(E, 2 * (π - b), C)
α = Angle(E, C, E')
d = CircleArc(C, E, E')
e = If(b ≤ 0, x² + (y - 0.5)² = 0.25)
f = Segment(C, E')
F = Point(b)
distanciaFG = Distance(F, E)
TextoFG: "" + (LaTeX[distanciaFG]) + ""