Segmento di retta di equazione 
             x + y = 20
con 0≤x≤20

Muovi il punto A sul segmento nero.
Vedrai tanti rettangoli che hanno: 
- semiperimetro x + y = 20;
- area xy = S.

In quale caso il rettangolo ha area massima?

D = Intersect(xAxis, yAxis)
f(x) = If[0 ≤ x ≤ 20, 20 - x]
A = Point(f)
a = Line(A, xAxis)
b = Line(A, yAxis)
B = Intersect(a, yAxis)
C = Intersect(b, xAxis)
E = Intersect(xAxis, yAxis)
poli1, b_1, a_1, c, e = Polygon(B, A, C, E)
S: poli1
g(x) = If[x > 0, S / x]
Testopoli1: "Area S = " + poli1 + ""