Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Lagrangian Solve' topicStudent Support Forum > General > Archives > "Lagrangian Solve"

Next Comment >Help | Reply To Topic
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: ,

Subject (listing for 'Lagrangian Solve')
Author Date Posted
Lagrangian Solve Carlos Vasco 03/06/12 2:15pm
Re: Lagrangian Solve yehuda 03/12/12 11:56pm
Next Comment >Help | Reply To Topic