来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 12:42:48
怎样用Mathematic语言画KdV方程的孤子解的图
KdV={D[y[x1,x2],x2]+D[y[x1,x2],{x1,3}]+6y[x1,x2]D[y[x1,x2],x1]==0};
sol=DSolve[KdV,y,{x1,x2}]
Plot[Evaluate[y[x,1.2]/.sol[[1]]/.{C[1]->1,C[2]->-4,C[3]->1/4}],{x,-7,20},PlotRange->All]