mathematica绘制一维波动方程曲线,