Bougez le point bleu : 
La largeur et la longueur varient mais le périmètre est toujours 50.
L'aire grandit et diminue.

Le graphique de droit affiche l'aire A en fonction de x

A = -x²+25x

A

x

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
f = Segment(A, B)
C = Point(f)
k: 25 - Distance[A, C]
D: (0, 1)
D' = Dilate(D, k, A)
g = OrthogonalLine(C, xAxis)
h = OrthogonalLine(D', yAxis)
F = Intersect(g, h)
q1, i, j, l, m = Polygon(A, C, F, D')
distanceAC = Distance(A, C)
distanceAD' = Distance(A, D')
texte1: "périmètre = " + distanceAC + "+" + distanceAD' + "+" + distanceAC + "+ " + distanceAD' + " = 50"
TexteAC: "x = " + distanceAC + ""
TexteAD': "y = " + distanceAD' + ""
Pointq1 = PointIn(q1)
Texteq1: "Aire A = " + q1 + ""
p(x) = (-x^(2)) + (25 * x)
E: (x(C), p(x(C)))
G = Midpoint(A, F)