# Exercici 08.10

kill(all)$

Designem per a, b els costats del rectangle.
Suposem que a es el costat que creix a la velocitat donada.
L'area A es constant (50 cm2)
Designem per P el perímetre

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);

Quan el perímetre deixa de disminuir vol dir que DP = 0,
és a dir, Db = - Da => a = b (quadrat)

kill(all)$

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