Re: Equation-Handling in Mathematica

[Werner Hoelzl <w.hoelzl@XXXXXXX.org>]

Guten Tag Herr Woysch!

Roman Maeder hat dafuer das Package EqualThread geschrieben.

http://www.mathematica.ch/dmug-archive/1998/msg00239.html

LG
Werner

Oliver Ruebenkoenig wrote:
> 
> 
> Hallo,
> 
> On Tue, 31 Aug 2010, WOYSCH, Gunter wrote:
> 
>> Stuttgart, den 31. August 2010
>>
>> Equation-Handling in Mathematica
>>
>> An alle Mathematica-Kundigen !
>>
>> Hier kommt eine Frage, die ich schon immer einmal stellen wollte ..
>>
>> Wenn Sie mit mathematischen Gleichungen mit Bleistift auf Papier
>> arbeiten, dann kommt es ja immer wieder vor, dass Sie einen Term von
>> einer Seite auf die andere Seite umsetzen, dass Sie mit einem Faktor
>> multiplizieren oder dividieren - oder dass Sie etwas ähnliches tun.
>>
>> Wenn ich "naiv" über Mathematica nachdenke, dann würde ich das in Mma
>> wie folgt machen wollen :
>>
>>  - Beispiel 1
>>
>>    equation1 =  a*x^2 + b*x == c
>>
>>    equation2 = equation1 - c
>>
>>  - Beispiel 2
>>
>>    equation3 =  a*x^2 + 0.5*b*x == c
>>
>>    equation4 =  equation3 * 2
>>
>>  - Beispiel 3
>>
>>    equation5 =  a*x^2 + b*x == c / y
>>
>>    equation6 =  1/equation5
>>
>> Eigentlich erwarte ich, dass bei allen diesen Beispielen Mma die
>> angegebenen Operationen jeweils auf beide Seiten einer Gleichung
>> anwendet und die Gleichung dann in der überarbeiteten Form ausgibt.
>>
>> Wenn man es ausprobiert, funktioniert es leider nicht so.
>>
>> Wie führt man diese Operationen mit Mathematica jetzt aus ?
>>
>> Wie könnte man die Operationen, wie oben angegeben, durch eine
>> Mathematica-Funktion realisieren ?
>>
>> Danke für jede Antwort !
>>
>> Mit freundlichen Grüssen,
>>
>> Gunter Woysch
>>
>>
>>
>>
>>
> 
> vielleicht hift das weiter:
> 
> Mathematica 7.0 for Linux x86 (64-bit)
> Copyright 1988-2009 Wolfram Research, Inc.
> 
> In[1]:= equation1 = a*x^2 + b*x == c
> 
>                  2
> Out[1]= b x + a x  == c
> 
> In[2]:= Equal @@ (List @@ equation1 - c)
> 
>                       2
> Out[2]= -c + b x + a x  == 0
> 
> In[2]:= equation3 = a*x^2 + 0.5*b*x == c
> 
>                      2
> Out[3]= 0.5 b x + a x  == c
> 
> In[4]:= equation4 = Equal @@ (List @@ equation3*2)
> 
>                         2
> Out[4]= 2 (0.5 b x + a x ) == 2 c
> 
> In[5]:= modEqn[eqn_Equal, op_] := Equal @@ (op[List @@ eqn])
> 
> In[6]:= modEqn[equation1, (# - c) &]
> 
>                       2
> Out[6]= -c + b x + a x  == 0
> 
> In[7]:= equation5 = a*x^2 + b*x == c/y;
> 
> In[8]:= modEqn[equation5, (1/#) &]
> 
>             1         y
> Out[8]= ---------- == -
>                  2    c
>         b x + a x
> 
> 
> Gruss,
> 
> Oliver