Moving certain variables to one side of the equation

Question

I am having trouble moving certain variables from one side of the equation to the other. For example, if i want to solve for x1:

Reduce[x1 + x2 + x3 == 4, x1]

x1 == 4 - x2 - x3

but if i want to solve for 2 variables (x1 and x2):

Reduce[x1 + x2 + x3 == 4, {x1, x2}]

x2 == 4 - x1 - x3

But what I need is

x1 + x2 == 4 - x3

What am i doing wrong?

related: Is it possible to have Mathematica move all terms to one side of an equation? — Jens, May 30 '15 at 17:35
You can modify my answer to the question I linked above, to get the desired result: eqn = x1 + x2 + x3 == 4; Map[Subtract[#, First[eqn] - (x1 + x2)] &, eqn]. Alternatively, Distribute[eqn - (First[eqn] - (x1 + x2)), Equal]. Also, I think the other linked question, Arrange equation in normal form, is a duplicate of the earlier one. — Jens, May 30 '15 at 17:52

Kuba · Accepted Answer · 2015-05-30T14:32:46.193

0

Not perfect nor general but probably useful enough:

solveMany[expr_, vars_List] := Module[{u},
  (Plus @@ vars) == u /. Solve[
     Eliminate[{ expr, Plus @@ vars == u}, vars],
     u][[1]]
  ]

And for example:

solveMany[x1 + x2 + x3 == 4, {x1, x3}]

x1 + x3 == 4 - x2

edited May 30 '15 at 14:32

answered May 30 '15 at 14:22

Kuba

1 Answers1