So kann man den Radius eines Zylinders bestimmen, dessen Oberfläche für ein vorgegebenes Volumen von 1000 VE minimal wird:

kill(all)$

Orh:2*r^2*%pi+2*r*%pi*h;

Vrh:r^2*%pi*h;

B:solve(Vrh=1000,h);

NB:rhs(B[1]);

Or:subst(NB,h,Orh);

O1:diff(Or,r);

Lsg:solve(O1=0,r);

float(Lsg[3]);