2

私はMathematicaに不慣れで、おそらく私が探しているのは簡単です。いくつかのアプローチを試しましたが、成功しませんでした。

DEがあり、DEのパラメーターによってパラメーター化されたソリューションが必要です。より正確に
は、DEを次のように定義しましょう。 x'=f[x,t,a]ここで、「a」はパラメーターでありx、時間とパラメーターの関数としての解が必要です。関数に次のように名前を付けます。 x=g[t,a]

DEが基本的な場合、使いやすく入手も簡単ですが、でDSolveそのような解決策を入手する方法を見つけることができませんでしたNDSolve。私はそれNDSolveが数値の議論でのみ機能することを知っていますが、異なるパラメーター値で結果を比較する方法を探しています。
結果をさまざまなパラメータ値で表示/比較する簡単な方法も問題ありません。

4

2 に答える 2

4 
vdp[k_] := {x'@t == y@t, y'@t == -x@t + k (1 - x@t^2) y@t, x@0 == 2, y@0 == 0};
sol = Table[NDSolve[vdp@k, {x, y}, {t, 2000}], {k, 1000, 1500, 100}];
Plot[x@t /. sol, {t, 0, 2000}, PlotRange -> All, Evaluated -> True]

Mathematicaグラフィックス

于 2012-09-10T16:41:02.870 に答える
0

これを行う唯一の方法は、さまざまなパラメーター値に対してNDSolveを数回実行してから、結果を比較することだと思います。

于 2012-09-10T15:51:02.597 に答える