Plot 由微分方程导出的曲线图

假设Mathematica中的代码：

w[w1_] := NDSolve[{y''[x] + y[x] == 2, y'[0] == 0, y[0] == w1},y[x], {x, 0, 30}];
Manipulate[Plot[Evaluate[{y[x], y'[x]} /. w[w1]], {x, 0, 30}], {w1, -2, 3}]

代码是这样工作的：一个滑块（在操纵中）控制变量w中保存的微分方程的一个初始条件（y[0]的值），当它被更改时，将绘制解。这很好，但是我在绘制解（y'[x]）的一阶导数时遇到了一个问题。这里没有函数图，只有一个空格，什么也没有绘制，甚至我在Mathematica帮助中查看了它，这里有示例代码

s = NDSolve[{y''[x] + Sin[y[x]] y[x] == 0, y[0] == 1, y'[0] == 0}, y, {x, 0, 30}]
Plot[Evaluate[{y[x], y'[x], y''[x]} /. s], {x, 0, 30},PlotStyle -> Automatic]

---

工作。有人知道问题出在哪里吗？

我发现了问题，它只是在解决它需要写的问题

w[w1_] := NDSolve[{y''[x] + y[x] == 2, y'[0] == 0, y[0] == w1},y, {x, 0, 30}]

y而不是y[x]，一切都正常