Zurück Vor +Ebene Home Inhalt Index Hilfe

Lösung von transzendenten Gleichungen

Mathematica kann nur bedingt transzendente Gleichungen mittels des Befehls Solve[] oder NSolve[] lösen. Deshalb ist ein Iterationsverfahren mittels

FindRoot[gleichung,variable,startwert]

besser geeignet.

(*Eingeben der Gleichung:*)
f=
(*Startwert der Iteration*)
a=
FindRoot[f,{x,a}]

Achtung! Die Angabe einer Lösung bedeutet noch nicht, daß diese vollständig ist. Z.B. hat die Gleichung

zwei Lösungen

Außerdem sind diese Lösungen periodisch mit der Periode .

Man kann dies prüfen, wenn mehrere Startwerte eingegeben werden.

FindRoot[Tan[x]-Cos[x]==0,{x,1}]
FindRoot[Tan[x]-Cos[x]==0,{x,3}]
FindRoot[Tan[x]-Cos[x]==0,{x,7}]
FindRoot[Tan[x]-Cos[x]==0,{x,10}]

Copyright Verlag Harri Deutsch AG  Stöcker DeskTop Mathematik