Antwort: Re: Funktionsdefinition

[Hans.Dolhaine@XXXXXXX.com]

wahrscheinlich ist herrn kuskas lösung die allgemeinste. trotzdem und für 
die, die  den module nicht mögen:

sigma[ x_ ] := x - 2*Sqrt[5]*Coefficient[ FullSimplify[ x ], Sqrt[ 5 ] ]

beste grüße

Hans Dolhaine
_________________________________

VTR-TS
Phone:  +49-211-797-4809
Fax:    +49-211-798-1853
Mobile: 0171 97 17 049
E-Mail: Hans.Dolhaine@XXXXXXX.com




Thomas Hahn <hahn@XXXXXXX.de>
Gesendet von: owner-demug@XXXXXXX.ch
04.10.2006 10:57
Bitte antworten an Thomas Hahn
Entscheidung erforderlich ? 
 
        An:     Andreas Rychen <andreas_rychen@XXXXXXX.ch>
        Kopie:  demug@XXXXXXX.ch
        Thema:  Re: Funktionsdefinition

> Im Zusammenhang mit Körpererweiterungen habe ich ein Problem, das
> vermutlich einfach zu lösen ist. Vergelichen Sie das Notebook
> "Funktion.nb".

Das Pattern im Argument der Funktion sigma matcht nur einen
Term \propto Sqrt[5].  Dieser Version hier ist das egal:

sigma[x_] := (#1 - Sqrt[5] #2)&@@ CoefficientList[x, Sqrt[5]]


Gruß,

Thomas