Message Boards Message Boards

0
|
16678 Views
|
8 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Linearization of differential equation

Posted 9 years ago
Attachments:
POSTED BY: B B
8 Replies

Sorry, I have no expertise in linearizing differential equations.

POSTED BY: Gianluca Gorni
Posted 9 years ago
Attachments:
POSTED BY: B B

Yes, it is a bit complicated. If you need it a lot, you can load the following definitions in your initialization code:

Unprotect[Equal];
Equal /: Equal[a_, b_] + Equal[c_, d_] := Equal[a + c, b + d];
Equal /: a_?NumericQ*Equal[c_, d_] := Equal[a*c, a*d];
Protect[Equal];

After that, you can simply type

(a == b) - 2 (c == d)

and get a - 2 c == b - 2 d as desired.

I think Wolfram should provide this behaviour as default, if there is no serious reason not to do it.

POSTED BY: Gianluca Gorni
Posted 9 years ago

OK. Thanks a lot for your help. But is not there something simpler ? I find this code interesting but a bit coimplex just to make a soustraction between two equations

I have almost a solution with this code : e1 = 3 a + e == b; e2 = 6 c == d; Thread[e1 + e2, Equal]

However with minus, it doesn't work ... :)

POSTED BY: B B
POSTED BY: Gianluca Gorni
Posted 9 years ago
Attachments:
POSTED BY: B B
POSTED BY: Shenghui Yang
POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract