Plot[x^3 - 5 x^2 + 100 x - 400, {x, 0, 8}]

[Graphics:HTMLFiles/nullstellen_2.gif]

⁃Graphics⁃

RowBox[{Plot, [, RowBox[{RowBox[{Exp[-x], -, RowBox[{0.1, /, (1 + x)}]}], ,, , {x, -5, 4}}], ]}]

[Graphics:HTMLFiles/nullstellen_5.gif]

⁃Graphics⁃

Root[x^3 - 5 x^2 + 100 x - 400, 1]

N[%]

4.14672

RowBox[{N, [, RowBox[{Solve, [, RowBox[{RowBox[{Exp[-x], -, RowBox[{0.1, /, (1 + x)}]}], , 0}], ]}], ]}]

RowBox[{{, RowBox[{RowBox[{{, RowBox[{x, , RowBox[{-, 0.961779}]}], }}], ,, RowBox[{{, RowBox[{x, , 3.88972}], }}]}], }}]

Created by Mathematica  (April 17, 2008)