# Ejercicio 08.10

kill(all)$

Designamos por a, b los lados del rectángulo.
Suponemos que a es el lado que crece a la velocidad dada.
El área A es constante (50 cm2)
Designamos por P el perímetro

A=A:a*b;

A=A:50;  a = a:5.172;

b = b: A/a;

DA = 0;     Da = Da : 2.158;
Eq1: a*Da + b*Db = 0;

solve (Eq1, Db), numer;

Db = Db : -1.154512010387362;

DP = 2*(Da + Db);

Cuando el perímetro deja de disminuir quiere decir que DP = 0,
es decir, Db = - Da => a = b (cuadrado)

kill(all)$

a = sqrt(50);
b = sqrt(50);