wolfram-mathematica - 带参数的 NDSolve

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]

Answer 2

我认为这样做的唯一方法是针对不同的参数值运行 NDSolve 多次，然后比较结果。