kubische Gleichung führt zu komplexem Unsinn

[klamser <klamser@XXXXXXX.de>]

Hallo,

so viel zur Nachhilfe: Kubische Gleichungen kann man mit dem Notebook 
lösen, das unter

http://mathworld.wolfram.com/CubicFormula.html

zu finden ist. Der Rest steht im Notebook.

Warum

N[Solve[f[x] == 0, x]]

zum Ergebnis

{{x -> 4.230477705192665 -
    4.440892098500626*^-16*
     I},
 {x -> -4.785965674839176 -
    4.440892098500626*^-16*
     I},
 {x -> -0.4445120303534889 +
    8.881784197001252*^-16*I}}

mit dem idiotisch kleinen imaginären Teil führt, das man mit der 
doofsten Funktion von Mathematica (Chop)

Chop[N[Solve[f[x] == 0, x]]])

beseitigen kann, werden wir vielleicht erfahren, wenn unter MMA 6.0 Chop 
in der Dokumentation als osbsolete Function aufgeführt wird.

Peter Klamser

kubischeGleichung.nb
Description: Mathematica Notebook document