MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: solving for variables in terms of other variables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg35741] RE: [mg35719] solving for variables in terms of other variables
  • From: "DrBob" <majort at cox-internet.com>
  • Date: Sun, 28 Jul 2002 03:32:20 -0400 (EDT)
  • Reply-to: <drbob at bigfoot.com>
  • Sender: owner-wri-mathgroup at wolfram.com

Emily,

First of all, you want DSolve, not Solve.  Secondly, if you were using
Solve, its second argument is the list of variables you want to solve
for, and I don't think that's what you've listed below... aren't those
the parameters you want to solve in terms of?

Bobby

-----Original Message-----
From: Emily [mailto:emilyhertzer at hotmail.com] 
To: mathgroup at smc.vnet.net
Subject: [mg35741] [mg35719] solving for variables in terms of other variables

Hello!

I am using Mathematica 4.  I am attempting to solve simultaneously a
set of 6 first order conditions for six unknowns.  I have successfully
used the FindRoot command to solve for actual numerical values for the
six unknowns when all other variables in the six equations are
assigned to numeric values.  However, I would now like to solve for
the same six unknowns, this time solving them for expressions
including the other variables (not solving for numeric values).  I
have been trying to use the Solve command to do this but with no
success.  Mathematica comes to a stop when it reaches this line of the
code and, even after running for several hours, gives no result.  Am I
attempting the impossible?  The six first order conditions are fairly
complicated.
Here is an example:

*******

so1 = Exp[
      a1*v1 - b1*v1^2/2 - c*r1]/(1 + Exp[a1*v1 - b1*v1^2/2 - c*r1] + 
        Exp[a2*v2 - b2*v2^2/2 - c*r2] + Exp[a3*v3 - b3*v3^2/2 - c*r3])
so2 = Exp[
      a2*v1 - b2*v2^2/2 - c*r2]/(1 + Exp[a1*v1 - b1*v1^2/2 - c*r1] + 
        Exp[a2*v2 - b2*v2^2/2 - c*r2] + Exp[a3*v3 - b3*v3^2/2 - c*r3])
so3 = Exp[
      a3*v3 - b3*v3^2/2 - c*r3]/(1 + Exp[a1*v1 - b1*v1^2/2 - c*r1] + 
        Exp[a2*v2 - b2*v2^2/2 - c*r2] + Exp[a3*v3 - b3*v3^2/2 - c*r3])
so0 = 1 - so1 - so2 - so3
x1 = (a1 - b1*v1)/c
x2 = (a2 - b2*v2)/c
x3 = (a3 - b3*v3)/c
t1 = so1*(r1 - f1 - df1 + (v1 - k1 - dm1)*x1)
t2 = so2*(r2 - f2 - df2 + (v2 - k2 - dm2)*x2)
t3 = so3*(r3 - f3 - df3 + (v3 - k3 - dm3)*x3)
foc1v = D[t1, v1]
foc2v = D[t2, v2]
foc3v = D[t3, v3]
foc1r = D[t1, r1]
foc2r = D[t2, r2]
foc3r = D[t3, r3]
Solve[{foc1v == 0, foc2v == 0, foc3v == 0, foc1r == 0, foc2r == 0, 
    foc3r == 0}, {v1,v2,v3,r1,r2,r3}]

*******

Here I am hoping to solve {v1,v2,v3,r1,r2,r3} in terms of the f's and
k's.  Any suggestions?  Is Solve the correct command to use?
Thanks.  Any help would be greatly appreciated.





  • Prev by Date: Re: how to solve for periodic solution?
  • Next by Date: Re: RE: RE: Question about Replace
  • Previous by thread: solving for variables in terms of other variables
  • Next by thread: More than one radical