|
> Liebe Kollegen, > > beim Bearbeiten von Gleichungen m_chte man manchmal zwei Gleichungen > addieren oder subtrahieren. Wenn man eq1 + eq2 eingibt, dann addiert MMA > jedoch nicht die linken und rechten Seiten, wie man eigentlich erwarten > k_nnte. Auch Simplify hilft nicht weiter. Klar, man kann die Summe explizit > erzeugen mit > > eq1[[1]]+eq2[[1]] == eq1[[2]]+eq2[[2]] > > aber das ist schwerf_llig. Gibt es nicht einen eleganteren Weg? > > Mit freundlichen Gr_ssen, > Martin Heimann Ein Moeglichkeit ist so etwas wie Unprotect[Plus,Times]; Plus[a_Equal,b_Equal]:=(a[[1]]+b[[1]]==a[[2]]+b[[2]]); Times[a_Equal,b_]:=(b a[[1]]==b a[[2]]); Protect[Plus,Times]; Das ist zwar genauso schwerfaellig, aber damit koennen dann Gleichungen elegant addiert und mit einem Faktor multipliziert werden. Ich weiss aber nicht, ob das narrensicher ist. Z.B. koennen damit auch Gleichungen multipliziert werden: In[2]:= (a == b) * (c == d) Out[2]:= (a c == a d) == (b c == b d) Was nicht allzu viel Sinn macht, fuerchte ich. Martin Kraus :) |