       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)
>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:

Rbc==R3(R1+R2)/(R1+R2+R3)};

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

{{R1 -> (Rac^2 + (Rad - Rbc)^2 -
R2 -> -((Rac^2 + (Rad - Rbc)^2 -
R3 -> -((Rac^2 + (Rad - Rbc)^2 -