Antwort: Re: Funktionsdefinition

[Hans.Dolhaine@XXXXXXX.com]

hallo zusammen.

herrn hahns lösung versagt bei reellen zahlen: sigma[ a ] gibt einen 
fehler.

wie wäre es mit

sigma[x_]:= Module[{xx,yy},
xx=FullSimplify[x];
yy=Coefficient[xx, ,Sqrt[5]]
xx-2*yy* Sqrt[5]
]

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