mathematica 微分方程 作图

题目

mathematica 微分方程 作图
DSolve[{y''[x] + y[x] + 0.1 y'[x] == 0,y[0] == 7,y'[0] == 1},y[x],
x];
Plot[y[x],{x,0,20}]
输出只有一个坐标系……没有图像……求解!

答案

把你的第二个语句改为下面这样,
Plot[y[x] /.%,{x,0,20}]
原因是你第一个语句的解实际上是一个规则替换,并不是函数定义,所以直接以函数名称是画不出图的.