NSolve gibt leere Lösungsmenge < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Aufgabe | | Nullstellen, reell von (Sin[x] + Sinh[x])*(Sin[x] - Cosh[x])/(Sinh[x] + Cos[x]) + Cosh[x] + Cos[x] mit NSolve berechnen |
Ich möchte mit Mathematica die ersten 3 reellen Nullstellen einer Funktion bestimmen. Der Plot und mein Skript zeigen, dass es die gesuchten Nullstellen auch gibt. Wieso liefert NSolve nun eine leere Lösungsmenge?
Meine Eingabe ist folgende:
Plot[(Sin[x] + Sinh[x])*(Sin[x] - Cosh[x])/(Sinh[x] + Cos[x]) +
Cosh[x] + Cos[x], {x, 0, 12}]
NSolve[(Sin[x] + Sinh[x])*(Sin[x] - Cosh[x])/(Sinh[x] + Cos[x]) +
Cosh[x] + Cos[x] == 0, x]
Screenshot: ![[]](/images/popup.gif) http://www.abload.de/image.php?img=unbenanntmvp85.png
Ich habe diese Frage auch in folgenden Foren auf anderen Internetseiten gestellt:
http://www.gamestar.de/community/gspinboard/showthread.php?t=255362&page=270
|
|
| |
|
Hallo,
Mathematica macht das, weil es unendlich viele Lösungen gibt.
Verwende stattdessen den Befehl "FindRoot"
Also folgende Zeilen:
FindRoot[(Sin[x] + Sinh[x])*(Sin[x] - Cosh[x])/(Sinh[x] + Cos[x]) +
Cosh[x] + Cos[x] == 0, {x, 0}]
Das zeigt dir die Lösung in der Nähe von x=0 an.
EDIT:
Um mehrere Lösungen anzuzeigen gibt man ein:
FindRoot[(Sin[x] + Sinh[x])*(Sin[x] - Cosh[x])/(Sinh[x] + Cos[x]) +
Cosh[x] + Cos[x] == 0, {x, {0,x1,x2,x3,...}}]
|
|
|
|
![[]](http://www.abload.de/image.php?img=unbenanntmvp85.png){kind=small}
http://www.abload.de/image.php?img=unbenanntmvp85.png
