MathGroup Archive 2001

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

Search the Archive

Re: Solve[] for equations?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31936] Re: [mg31928] Solve[] for equations?
  • From: BobHanlon at aol.com
  • Date: Thu, 13 Dec 2001 01:08:40 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 12/12/01 5:51:22 AM, djvango at sandia.gov writes:

>I have a system of equations
>
>eq1 = Rac == R1(R2+R3+R4)/(R1+R2+R3+R4)
>eq2 = Rad == R2(R1+R3+R4)/(R1+R2+R3+R4)
>eq3 = Rbc == R3(R1+R2+R4)/(R1+R2+R3+R4)
>eq4 = Rbd == R4(R1+R2+R3)/(R1+R2+R3+R4)
>
>I'd like to get R1, R2, R3, and R4 in terms of Rac, Rad, Rbc, and Rbd.
> Four
>equations, four unknowns -- it seems simple in concept so I figured 
Mathematica
>could do it easily.  I thought that something along the lines of:
>
>Solve[{eqs},{R1, R2, R3, R4}] or
>Solve[{eqs}, R1, {R2, R3, R4}]
>
>would have worked, but these give {}.  They only permutation of commands
>that seemed to do anything was something like
>
>Solve[eq1, R1]
>
>but one can do that easily by hand so what's the point.
>
>Is there some other command I should be using besides Solve?   Is there
>some
>mathematical reason that I don't recognize as to why this won't work? 
> I
>would appreciate any insights.
>

You did not define eqs.  Solving a simplified version of your system:

eqs={Rac==R1(R2+R3)/(R1+R2+R3),Rad==R2(R1+R3)/(R1+R2+R3),
      Rbc==R3(R1+R2)/(R1+R2+R3)};

Solve[eqs, {R1, R2, R3}] // Simplify

{{R1 -> (Rac^2 + (Rad - Rbc)^2 - 
      2*Rac*(Rad + Rbc))/(2*(Rac - Rad - Rbc)), 
   R2 -> -((Rac^2 + (Rad - Rbc)^2 - 
       2*Rac*(Rad + Rbc))/
      (2*(Rac - Rad + Rbc))), 
   R3 -> -((Rac^2 + (Rad - Rbc)^2 - 
       2*Rac*(Rad + Rbc))/
      (2*(Rac + Rad - Rbc)))}}


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: question
  • Next by Date: Re: Solve[] for equations?
  • Previous by thread: Re: Solve[] for equations?
  • Next by thread: Re: Solve[] for equations?