How to add equations' left and right sides together?

Question

If we have two equations E1 and E2, and instead of using Solve to solve it, we simply need to manually add them up which would allow some simplification that could lead to better visibility of its structure, I found that

E1 + E2

would always fail. Instead, I need to extract left and right sides of an equation explicity using

E1[[1]] + E2[[1]] == E1[[2]] + E2[[2]]

enter image description here

Is there any built-in function to do this?

Hey Jim, in general we don't put names under posts on this site, because we have the box on the left with your user information. Why don't you change your user name to something better than user2452474 to make you more recognizable? Go to your user profile and click on edit. — halirutan, Jun 11 '13 at 00:25
Another thing, when you write a question and post code, please review the most common pitfalls in Mathematica. Specifically, don't use capitalized variable names. When you include code, please use code blocks so that everyone can copy and paste your example. — halirutan, Jun 11 '13 at 00:30

score 16 · Accepted Answer · answered Jun 11 '13 at 00:17

16

What you need is Thread, to thread the plus operator over the equations:

e1 = 3 a == b;
e2 = 6 c == d;
Thread[e1 + e2, Equal]
(* 3 a + 6 c == b + d *)

answered Jun 11 '13 at 00:17

halirutan

112,764
7
263
474

I tested and it worked. Thanks. – JimmyLin Jun 11 '13 at 19:46

score 1 · Answer 2 · answered Jul 29 '17 at 19:21

1

Also

Inner[Plus, e1, e2, Equal]

3 a + 6 c == b + d

answered Jul 29 '17 at 19:21

kglr

394,356
18
477
896

How to add equations' left and right sides together?

2 Answers2

Linked