mathematica绘制一维波动方程曲线,
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 16:05:13
mathematica绘制一维波动方程曲线,
对于d2u(x,t)/dt2-c^2*d2u(x,t)/dx2=0,0
对于d2u(x,t)/dt2-c^2*d2u(x,t)/dx2=0,0
你给的初始条件这个 u(x,0)=d sin(2 pi x) 好像不对吧,d难道是系数吗?
再问: 是的,d是个系数!
再答: 如果你是要画Plot3D的话,那么应该是求微分方程的数值解,因此要指定c,d的值,并用NDSolve求解。 c = 2; d = 1; sol = NDSolve[{Derivative[0, 2][u][x, t] - 4*Derivative[2, 0][u][x, t] == 0, Derivative[0, 1][u][x, 0] == 0, u[x, 0] == Sin[2*Pi*x], u[0, t] == 0, u[1, t] == 0}, u, {x, 0, 1}, {t, 0, Pi}, MaxStepSize -> 0.001] 求解出来的结果是一个插值形式的函数,你要用替换的方式才能转化成Plot3D能画的函数。 注意解方程和画图,运行时间都是很慢的,因为求解PDE真的很复杂。 Plot3D[Evaluate[u[x, t] /. sol], {x, 0, 1}, {t, 0, Pi}, PlotPoints -> 45, Mesh -> {25, 30}, PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.8]]]
再问: 是的,d是个系数!
再答: 如果你是要画Plot3D的话,那么应该是求微分方程的数值解,因此要指定c,d的值,并用NDSolve求解。 c = 2; d = 1; sol = NDSolve[{Derivative[0, 2][u][x, t] - 4*Derivative[2, 0][u][x, t] == 0, Derivative[0, 1][u][x, 0] == 0, u[x, 0] == Sin[2*Pi*x], u[0, t] == 0, u[1, t] == 0}, u, {x, 0, 1}, {t, 0, Pi}, MaxStepSize -> 0.001] 求解出来的结果是一个插值形式的函数,你要用替换的方式才能转化成Plot3D能画的函数。 注意解方程和画图,运行时间都是很慢的,因为求解PDE真的很复杂。 Plot3D[Evaluate[u[x, t] /. sol], {x, 0, 1}, {t, 0, Pi}, PlotPoints -> 45, Mesh -> {25, 30}, PlotStyle -> Directive[Yellow, Specularity[White, 20], Opacity[0.8]]]
mathematica绘制一维波动方程曲线,
mathematica能绘制自定义函数曲线吗?
怎样用Mathematica将一曲线系绘制在同一坐标中.
CATIA绘制方程曲线
mathematica 方程的解,如何绘制出来
求用Mathematica绘制科赫雪花曲线的过程
如何使用mathematica同时绘制出曲线和散点?
如何用Mathematica的Plot函数绘制方程的图像
mathematica 绘制出一个图形中多条曲线,怎么在每条曲线旁边添加文本注释?
用matlab绘制下面方程的曲线
如何用mathematica绘制满足图片中等式的x、y的关系曲线
mathematica 绘制曲线 y = 638.3 -22.09 *cos(x*0.4916) -27.57*sin(