wolfram-mathematica - 带参数的 NDSolve

Question

关闭。这个问题是off-topic .它目前不接受答案。












想改进这个问题？ Update the question所以它是on-topic对于堆栈溢出。


9年前关闭。







Improve this question




我是 Mathematica 的新手，可能我正在寻找的东西很简单，我尝试了一些方法，但我无法成功。

我有一个 DE，我想要一个由 DE 参数参数化的解决方案。更确切地说，
让我们将 DE 定义为:x'=f[x,t,a]其中“a”是参数，我想要 x 的解决方案作为时间和参数的函数，我将函数 g 命名如下。x=g[t,a]
DE基本的时候好用DSolve并获得它，但我找不到通过 NDSolve 获得此类解决方案的方法.我知道 NDSolve仅适用于数值参数，但我正在寻找一种方法来比较不同参数值的结果。
用不同的参数值显示/比较结果的简单方法也可以。

Answer 1

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]