请给出一个mathematica实现解常微分方程的代码实例

以下是一个使用Mathematica解常微分方程的代码实例：

首先，我们定义一个常微分方程：

y''[x] + y[x] == 0

然后，我们使用DSolve函数来解这个方程：

DSolve[y''[x] + y[x] == 0, y[x], x]

这将返回一个解析解：

y[x] -> C[1] Cos[x] + C[2] Sin[x]

其中C[1]和C[2]是常数。

我们可以使用Manipulate函数来可视化这个解：

Manipulate[Plot[C[1] Cos[x] + C[2] Sin[x], {x, 0, 10}], {C[1], 0, 1}, {C[2], 0, 1}]

这将允许我们调整常数C[1]和C[2]，并查看解的不同形式。

希望这个例子能帮助你理解如何使用Mathematica解常微分方程。