Rouler / dérouler le cercle.

Augmenter / diminuer le diamètre.

Précision : nombre de décimales

Valeur approchée de π

    Que j’aime à faire apprendre un nombre utile aux sages !
       3 , 1   4  1   5           9          2       6        5     3       5                
    Immortel Archimède, artiste, ingénieur, 
          8               9            7           9
    Qui de ton jugement peut priser la valeur ? 
       3   2   3         8         4       6     2    6    ...

Périmètre du cercle

p = 2 (slider from 0 to 10, step 1)
k = 4.5 (slider from 1 to 10, step 0.1)
C: (0, k)
A = Intersect(xAxis, yAxis)
N = Mirror(A, C)
n = Segment(N, A)
a = 1.0E-4 (slider from 1.0E-4 to 360, step 2)
D: (2 * k * 3.141592653589793 * a / 360, 0)
m = Distance(A, D)
B = Point(xAxis)
b = Line(A, B)
c = Circle(C, A)
E: (2 * k * 3.141592653589793 * a / 360, k)
d = Circle(E, D)
F = Rotate(D, (360 - a) * 3.141592653589793 / 180, E)
e = Segment(A, D)
f = CircleArc(E, D, F)
G = Rotate(F, 45*°, E)
H = Rotate(G, 45*°, E)
I = Rotate(H, 45*°, E)
J = Rotate(I, 45*°, E)
K = Rotate(J, 45*°, E)
L = Rotate(K, 45*°, E)
M = Rotate(L, 45*°, E)
g = Segment(I, M)
h = Segment(F, J)
i = Segment(G, K)
j = Segment(H, L)
l = Distance(A, N)
q: floor(10^(p) * m) / (n * 10^(p))
T3: "Périmètre divisé par diamètre : AD / AN = " + q
o = false
T2: "Diamètre du cercle : AN = " + (2 * k) + " cm"
T1: "Périmètre du cercle AD : environ " + (floor(10^(p) * m) / 10^(p)) + " cm"