Example 3: Exercise #19 (Section 15.8, p. 675))

> f := l*w + 2*l*h + 2*w*h;

> g := l*w*h-256;

>

> fl := diff( f, l );

> fw := diff( f, w );

> fh := diff( f, h );

> gl := diff( g, l );

> gw := diff( g, w );

> gh := diff( g, h );

>

> LE := fl=lambda*gl, fw=lambda*gw, fh=lambda*gh;

> LEsol := solve( {LE,g=0}, {l,w,h,lambda} );

> LEsol2 := map( allvalues, {LEsol} );

>

> sol2 := {seq( eval( [l,w,h], s ), s=LEsol2 )};

>