Re: Solve vs. nonlinearity
- To: mathgroup at smc.vnet.net
- Subject: [mg118278] Re: Solve vs. nonlinearity
- From: Alan G Isaac <alan.isaac at gmail.com>
- Date: Wed, 20 Apr 2011 04:26:35 -0400 (EDT)
>> Is there a simple way to approach getting Mathematica to
>> produce a solution in the following problem?
>> (Without assigning to r.)
>>
>> myL = w1*n + w2*k + g*(q0^r - (a*n^r + (1-a) k^r));
>> grad = D[myL, {{n, k, g}}]
>> Solve[grad == 0, {n, k, g}]
On 4/17/2011 8:00 PM, DrMajorBob wrote:
> Umm... evaluate the code?
> {{n -> ((((k^(1 - r))^(1/(1 - r)))^(-1 + r) (w1 - a w1))/(a w2))^(
> 1/(-1 + r)), g -> -((k^(1 - r) w2)/((-1 + a) r))}}
Note that this does not solve for k.
(Or possibly I'm missing your point.)
Thanks,
Alan