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