Differentialgleichung Plotten y''+2/x*y'+y^n=0 n? N |
10.09.2011, 07:25 | wstnachhilfe | Auf diesen Beitrag antworten » |
Differentialgleichung Plotten y''+2/x*y'+y^n=0 n? N Ich wollte mit MuPad die obige Differentialgleichung lösen. Ich habe das ganz klassisch versucht und die Diff.-Gleichunge 2, Ordnung in ein System von 2 Diff.-Gleichunge 1, Ordnung zerlegt und diese al Vektor definiert. Nur mache ich bei der Syntax offensichtlich einen, oder mehrere Fehler. Bitte kann mir jemand helfen? Meine Ideen: Ich habe das mit f := (x, Y) -> [Y[2],-2/x*Y[2]-(Y[1])^(3)]: und numeric::odesolve(0.00001..6.896847, f, [1, 0])Ergebnis: [0.00000006869626086, -0.04242977753]versucht, das Ergebnis war plausibel! aber, wenn ich versuche eine Schleife zu programmieren kommt nur unsinn heraus: for i from 0.00001 to 7 step 0.1 do;x:=i; f := (x, Y) -> [Y[2],-2/x*Y[2]-(Y[1]^3)];numeric::odesolve(f, x..7, [1, 0]);print( i, x, f, Y[1],Y[2]);end_for: |
|
Verwandte Themen
Die Beliebtesten » |
|
Die Größten » |
Die Neuesten » |
|