Series < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Aufgabe | Series[Sin[x]*x, {x, 0, 5}]
[mm] x^2-x^4/6+O[x]^6
[/mm]
Plot[Series[Sin[x]*x, {x, 0, 5}], {x, -5, 5}]
General::ivar: |
Mein Problem ist ich möchte Series Funktionen zeichnen lassen ohne den störenden Teil O[x]^ von Hand rauszulöschen da ich so keine Series - Funktionen in Plot einbauen kann wie z.B
Manipulate[ Plot[Normal[Series[Sin[x], {x, 0, n}]], {n, 1, 20, 1}], {x, -5, 5}]
Plot::plld: "Endpoints for n in {n,1,20,1} must have distinct [mm] \
[/mm]
machine-precision numerical values."
Auch der Befehl Normal hilft komischerweise nicht weiter obwohl:
[mm] Normal[x^2 [/mm] - [mm] x^4/6 [/mm] + 0 [mm] [x]^6]
[/mm]
[mm] =x^2 [/mm] - [mm] x^4/6
[/mm]
und
Manipulate[Normal[Series[Sin[x], {x, 0, n}]], {n, 1, 20, 1}]
gibt z.B [mm] x-x^3/6+x^5/120-x^7/5040
[/mm]
also in der Gewünschten Form
über eine Hilfe würde ich mich sehr freuen
schon mal vielen Dank
ein Notebook mit Versuchen befindet sich im Anhang [img] und [url=1]
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Dateianhänge:
Anhang Nr. 1 (Typ: nb) [nicht öffentlich]
|
|
| |
|
Am besten du schaust dir das nochmal in der Hilfe an. Dort hab ich dann auch die Lösung für dein Problem gefunden:
Manipulate[Plot[
Evaluate[
Normal[Series[Sin[x], {x, 0, n}]]], {x, -5, 5}], {n, 1, 20, 1}]
Und die Reihenfolge der Variablen am Ende war auch nicht ganz korrekt ;)
MfG Sunny
|
|
|
| |
|
vielen Dank für die schnelle Hilfe
funktioniert perfekt
danke
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 20:20 Fr 01.05.2009 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
