AireLatérale

AireBase

AireTotale

Angledéroulé = 0 (slider from 0 to 360, step 1)
a': 360 - Angledéroulé
Rayon = 3.2 (slider from 0 to 10, step 0.1)
Hauteur = 7 (slider from 0 to 20, step 0.1)
A = (0, 0)
c = Circle(A, Rayon, xOyPlane)
B: (Rayon, 0)
a_1: ((2 * π) * Rayon)
D: (Rayon, (((2 * π) * Rayon) * a' / 360), 0)
b, d, e = Cylinder(c, Hauteur)
E: B + (0, 0, Hauteur)
F: D + (0, 0, Hauteur)
G: D - (Rayon, 0, 0)
C: ((Rayon * cos(a'°)), (Rayon * sin(a'°)))
p = CircleArc(A, B, C)
H: A + (0, 0, Hauteur)
I: C + (0, 0, Hauteur)
liste1 = Sequence(Rotate[B, ((60 * d))°, Line[A, H]], d, 0, 5)
P: G + (0, 0, Hauteur)
i = Line(A, C)
j = OrthogonalLine(C, i)
k = Circle(C, (((2 * π) * Rayon) * (360 - a') / 360))
Q = Intersect(k, j, 2)
S: Q + (0, 0, Hauteur)
T: C + (0, 0, Hauteur)
poly5, c_1, q_1, s_1, t_1 = Polygon(C, Q, S, T)
l = Surface((Rayon * cos(((100 * b))°)), (Rayon * sin(((100 * b))°)), (100 * c), b, 0, a' / 100, c, 0, Hauteur / 100)
liste2 = Sequence(Rotate[D, a' + 360° - ((60 * d))°, Line[G, P]], d, 0, 5)
texte1: "Longueur fil déroulé = " + (((2 * Rayon) * Angledéroulé / 360)) + " π cm
                                       ≈ " + ((((2 * Rayon) * Angledéroulé / 360) * π)) + " cm"
texte2: "Aire latérale déroulée = " + ((((2 * Rayon) * Angledéroulé / 360) * Hauteur)) + " π cm²
                                        ≈ " + (((((2 * Rayon) * Angledéroulé / 360) * Hauteur) * π)) + " cm²"
f = Circle(A, Rayon)
g = false
m = false
n = false
texte3: "Aire de base = " + (Rayon^(2)) + " π cm²
                       ≈ " + ((Rayon^(2) * π)) + " cm²"
texte4: "Aire totale = " + (((2 * Rayon) * Hauteur) + (2 * Rayon^(2))) + " π cm²
                   ≈ " + (((((2 * Rayon) * Hauteur) + (2 * Rayon^(2))) * π)) + " cm²"