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}]
输出只有一个坐标系……没有图像……求解!