Author: Jacquet Julien

Diamètre

Longueur du cercle

diametre = 10 (slider from 0 to 50, step 0.5)
rayon: diametre / 2
rouler = 0 (slider from 0 to 360, step 0.5)
A = (0, 0)
B: (x(A) + rouler * rayon * 6.28318 / 360, y(A))
longueur = Segment(A, B)
b = Segment(A, B)
c = OrthogonalLine(B, xAxis)
d = Circle(B, rayon)
C, D = Intersect(d, c)
e = Circle(D, rayon)
B' = Rotate(B, (-rouler)°, D)
α = Angle(B', D, B)
f = CircleArc(D, B, B')
g = Circle(D, 0.9 * rayon)
h = Segment(B', D)
E = Intersect(g, h, 1)
i = Segment(E, D)
E' = Rotate(E, 324*°, D)
D' = Rotate(D, 324*°, D)
i' = Segment(E', D')
E'_1 = Rotate(E, 36*°, D')
D'_1 = Rotate(D, 36*°, D')
i'_1 = Segment(E'_1, D'_1)
F = Rotate(E'_1, 36*°, D'_1)
G = Rotate(D'_1, 36*°, D'_1)
j = Segment(F, G)
F' = Rotate(F, 36*°, G)
G' = Rotate(G, 36*°, G)
j' = Segment(F', G')
F'' = Rotate(F', 36*°, G')
G'' = Rotate(G', 36*°, G')
j'' = Segment(F'', G'')
F''' = Rotate(F'', 36*°, G'')
G''' = Rotate(G'', 36*°, G'')
j''' = Segment(F''', G''')
H = Rotate(F''', 36*°, G''')
I = Rotate(G''', 36*°, G''')
k = Segment(H, I)
H' = Rotate(H, 36*°, I)
I' = Rotate(I, 36*°, I)
k' = Segment(H', I')
H'' = Rotate(H', 36*°, I')
I'' = Rotate(I', 36*°, I')
k'' = Segment(H'', I'')
p = Circle(D, rayon)
A_1: (x(A) + 1, y(A))
m = Line(A, A_1)
texte2: longueur + ""