Canette de 33cl modélisée par un cylindre dont le patron est tracé ci-contre

Faire varier le Rayon à l'aide du curseur ci-dessous:

Rayon = 3.6 (slider from 3.3 to 5, step 0.1)
f(x) = sqrt(Rayon^(2.0) - x^(2.0)) / 4.0 - 8.0
A = Point(yAxis)
g(x) = -1.0 * f(x) - 16.0
B: (Rayon, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 8.0)
C: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * Rayon, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 8.0)
D = Point(g)
E = Point(g)
F = Point(f)
G = Point(f)
c = Conic(D, E, F, G, C)
d = Segment(A, B)
Hauteur: 330.0 / (3.141592653589793 * Rayon * Rayon)
e = Circle(A, Hauteur)
H = Intersect(e, yAxis, 2.0)
h = Segment(A, H)
u = Vector(A, H)
k = Translate(c, u)
I = Translate(C, u)
J = Translate(B, u)
i = Segment(C, I)
j = Segment(B, J)
K = (31.075000000000003, 11.274999999999995)
p = Circle(K, Rayon)
L = Point(p)
l = Segment(K, L)
m = OrthogonalLine(L, l)
n: 2.0 * 3.141592653589793 * Rayon
q = Circle(L, n / 2.0)
M = Intersect(q, m, 2.0)
N = Intersect(q, m, 1.0)
r = OrthogonalLine(M, m)
s = OrthogonalLine(N, m)
t = Circle(M, Hauteur)
c_1 = Circle(N, Hauteur)
O = Intersect(t, r, 2.0)
P = Intersect(c_1, s, 2.0)
Q, m_1, n_1, p_1, o = Polygon(M, N, P, O)
R = Midpoint(O, M)
a_1 = OrthogonalLine(R, o)
d_1 = Mirror(p, a_1)
TexteQ: "Aire " + (Name[M]) + (Name[N]) + (Name[P]) + (Name[O]) + " = " + Q
aired1 = Area(d_1)
Texted1: "Aire = " + aired1
airep = Area(p)
a = Area(p)
texte1: "Aire = " + a
b: 2.0 * a + Q
aire: b
texte2: "L'aire totale est égale à " + b