RETTANGOLI ISOPERIMETRICI

base=x

altezza=y

x+y

Muovi lo slider 'base' e osserva le 
tracce lasciate dai punti P ed S 

xy

Area Massima

base = 0 (slider from 0 to 20, step 0.1)
O = (0, 0)
h: 20 - base
P: (base, h)
A: (base, 0)
C: (0, h)
poli1, c, b_1, a_1, o = Polygon(C, P, A, O)
A2: base
B2: h
C2: A2 + B2
testo3 = TableText({{A1, B1, C1}, {A2, B2, C2}}, "|_")
S: (base, poli1)
testo4: "Area del rettangolo s=" + poli1 + ""
D2: poli1
testo5 = TableText({{A1, B1, C1, D1}, {A2, B2, C2, D2}}, "|_")
f(x) = If[0 ≤ x ≤ 20, (-x^(2)) + (20 * x)]
M: (10, 100)
Z: (0, 100)