solve([eq1,eq2,eq3],[X1,X2,lambda,Y]);
Good luck in your adventure!
-s
On Sun, Nov 21, 2010 at 18:07, tomasz kopczewski <tomasze at aster.pl> wrote:
> kill(all)$
> assume(X1>0, X2>0,w1>0,w2>0,Y>0,lambda>0)$
> L:(w1*X1+w2*X2)+lambda*(Y -(X1^a)*(X2^b));
> eq1:diff(L,X1,1)=0;
> eq2:diff(L,X2,1)=0;
> eq3:diff(L,lambda,1)=0;
> solve([eq1,eq2,eq3],[X1,X2,lambda]);