mathematica写一个，求解微分方程程序，

可以使用DSolve函数来求解微分方程。例如，假设需要求解如下的微分方程：

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

可以使用以下代码来求解：

sol = DSolve[{y''[x] + y[x] == 0, y[0] == 1, y'[0] == 0}, y[x], x]

其中，第一个参数是微分方程和初始条件，第二个参数是要求解的函数，第三个参数是自变量。

这样，sol变量就会储存求解结果，可以使用sol[[1]]来获得具体的解析式。