Re: Polynom-Identitäten

[Peter Pein <petsie@XXXXXXX.de>]

Andreas Rychen wrote:

> Liebe Mathematica Fans
>
>  
>
> Mir sind schon öfters Gleichungen mit Polynom-Identitäten begegnet. 
> Zwei Beispiele finden Sie im beiliegenden Notebook.
>
> Weiss jemand eine elegantere Methode als die vorgeführte?
>
>  
>
> Mit freundlichen Grüssen
>
> Andreas Rychen
Für das erste Beispiel würde ich

In[5]:=
 SolveAlways[\[Lambda]*f1[x] + \[Mu]*f2[x] + \[Nu]*f3[x] == 0, x]
Out[5]=
 {{\[Lambda] -> 0, \[Mu] -> 0, \[Nu] -> 0}}

verwenden und für das zweite eine Funktion definieren:

In[11]:=
KoeffSolve[gl_Equal, vars___] :=
 Solve[0 == ComplexExpand /@
    (#1[gl /. Equal -> Subtract] & ) /@ {Re, Im},
  vars]

In[12]:=
 KoeffSolve[x*I + y*(1 + I) == 3 - 2*I]
Out[12]=
 {{y -> 3, x -> -5}}

Aber es gibt sicher viele Möglichkeiten.

Mit freundlichen Grüßen,
Peter Pein