Un maître nageur souhaite installer une zone de baignade rectangulaire au bord du rivage à l'aide d'un câble de 140 m 
et de bouées.

Quelles sont les dimensions que le maître nageur choisira pour délimiter la zone de baignade la plus grande possible ?

Bouger le point B et observer.
La longueur AB est exprimée en m
L'aire de la baignade est exprimée en $m^2$

A = Intersect(xAxis, yAxis)
B_1 = Point(yAxis)
a = Ray(A, B_1)
C = Point(xAxis)
D = Point(xAxis)
E = (-20, -4)
F = (140, -4)
poly2, c_1, e, f, d_1 = Polygon(C, E, F, D)
G = Point(yAxis)
g = Segment(G, A)
B = Point(g)
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " \, = \, " + distanceAB
b: 140 - 2 * Distance[A, B]
A': (b, 0)
c = OrthogonalLine(B, g)
d = OrthogonalLine(A', xAxis)
B' = Intersect(c, d)
poly1, b_1, b', a', a_1 = Polygon(B, B', A', A)
Textepoly1: "Aire " + (Name[B]) + (Name[B']) + (Name[A']) + (Name[A]) + " = " + poly1
texte3: "Aire de  " + (Name[B]) + "" + (Name[B']) + "" + (Name[A']) + "" + (Name[A]) + " = " + poly1 + ""