| Author |
Comment/Response |
Carlos Vasco
|
 03/06/12 2:15pm
I'm trying to solve some Lagrange basic analytic problems. The first two gives the answer I was looking for, but the third one just keep running and don't gives me an answer. Do I made mistakes, doing the wrong approach? Can someone please help me out? Thanks :)
---------------------
L = \[Alpha] Log[Xd] + \[Beta] Log[
Yd] - \[Gamma] Y + \[Lambda] (R - Px Xd - Py Yd);
x1 = D[L, Xd];
x2 = D[L, Yd];
x3 = D[L, \[Lambda]];
Solve[{x1 == 0, x2 == 0, x3 == 0}, {Xd, Yd, \[Lambda]}]
---------------------
THIS RUNs OK
---------------------
\[CapitalPi]y = Py Y - Px Xy;
L = \[CapitalPi]y + \[Lambda] (Y - \[Epsilon] Log[Xy]);
x1 = D[L, Xy];
x2 = D[L, Y];
x3 = D[L, \[Lambda]];
Solve[{x1 == 0, x2 == 0, x3 == 0}, {Xy, Y, \[Lambda]}]
-----------------------
THIS ONE ALSO RUNs OK
-----------------------
L = \[Alpha] Log[Xd] + \[Beta] Log[
Yd] - \[Gamma] Y + \[Lambda] (\[Epsilon] Log[Xy] -
Y) + \[Micro]x (Wx - Xd - Xy) + \[Micro]y (Y + Wy - Yd);
x1 = D[L, Xd];
x2 = D[L, Yd];
x3 = D[L, Y];
x4 = D[L, Xy];
x5 = D[L, Y];
x6 = D[L, \[Lambda]];
x7 = D[L, \[Micro]x];
x8 = D[L, \[Micro]y];
x9 = D[L, Wx];
x10 = D[L, Wy];
Solve[{x1 == 0, x2 == 0, x3 == 0, x4 == 0, x5 == 0, x6 == 0, x7 == 0,
x8 == 0, x9 == 0, x10 == 0}, {Xd, Yd, Y, Xy,
Y, \[Lambda], \[Micro]x, \[Micro]y, Wx, Wy}]
-----------------------
THIS ONE KEEPS RUNNING
Attachment: MEG Sencillo.nb, URL: , |
|
