Animation

$A$

S

5000 \text{\ st}

\alpha =7,2°

Anaxagore

Eratosthène

\text{v.\,} -500

\text{v.\,} -275

S: (0, 0)
f: x = 0
r(x) = (5 * (2 - x)^(1 / (x + 0.1)))
t = 0 (slider from 0 to 1.1, step 0.01)
c = Circle(S, If[t ≤ 1, r(t), r(1)])
O = Intersect(c, yAxis, 1)
d = Circle(O, S)
ang: (2 / r(t) / π * 180)
A = Rotate(S, If[0 ≤ t ≤ 1, ang°, (2 / r(1) / π * 180°)], O)
g = Ray(O, A)
e = Circle(A, 1.5)
B = Intersect(e, g, 2)
S'' = Rotate(A, (-((2 / r(1) / π * 180°))), B)
h = Ray(B, S'')
C = Intersect(d, h, 1)
i, s = Tangent(A, d)
D = Intersect(h, i)
α = Angle(B, A, D)
t1, c_1, b, s' = Polygon(B, A, C)
j = Ray(C, B)
β = Angle(C, B, A)
k = CircleArc(O, S, A)
γ = Angle(S, O, A)
l = Segment(O, S)
E: (0.12, 0)
E' = Mirror(E, yAxis)
F: (x(E), -0.7)
G: ((-x(E)), y(F))
m = PolyLine(E, F, G, E')
H = Midpoint(G, F)
n = Ray(H, S)
I = Intersect(j, n)
q = Segment(A, O)
p = Circle(I, 0.6)
δ = Angle(S, I, B)