大佬们看一看
mathematica吧
全部回复
仅看楼主
level 3
大佬们,这个我算不出来,能帮我看看吗?eqn = D[lbk]u[lbk]t, x, y[rbk], t[rbk] == D[lbk]u[lbk]t, x, y[rbk], x, x[rbk] + D[lbk]u[lbk]t, x, y[rbk], y, y[rbk] - u[lbk]t, x, y[rbk] + u[lbk]t, x, y[rbk]^3;ic = {u[lbk]0, x, y[rbk] == Exp[lbk]-(x^2 + y^2)[rbk], Derivative[lbk]1, 0, 0[rbk][lbk]u[rbk][lbk]0, x, y[rbk] == 0};sol = NDSolve[lbk]{eqn, ic}, u, {t, 0, 1}, {x, -5, 5}, {y, -5, 5}[rbk];Plot3D[lbk]Evaluate[lbk]u[lbk]t, x, y[rbk] /. sol[rbk], {t, 0, 1}, {x, -5, 5}, {y, -5, 5}, PlotRange -> All[rbk]
2024年03月21日 02点03分 1
level 8
lbk和rbk是什么?
2024年03月21日 06点03分 2
都是txy
2024年03月21日 06点03分
这是系统给加的,去掉后,把右边的移到中括号就行了
2024年03月21日 06点03分
@贴吧用户_a9bbU7E 重新复制发下可以吗
2024年03月21日 07点03分
@Askeladnu :eqn = D[u[t, x, y], t] == D[u[t, x, y], x, x] + D[u[t, x, y], y, y] - u[t, x, y] + u[t, x, y]^3;ic = {u[0, x, y] == Exp[-(x^2 + y^2)], Derivative[1, 0, 0][u][0, x, y] == 0};sol = NDSolve[{eqn, ic}, u, {t, 0, 1}, {x, -5, 5}, {y, -5, 5}];
2024年03月21日 07点03分
吧务
level 15
1. t方向上是一阶,你给两个初始条件是干啥?
2. 边界条件缺了,请补上。(你下一句话大概是“没有边界条件”,如果是的话,那么:开放边界条件也是边界条件,因为数值解全是在有限区域上计算,我们必须要使用适当的边界条件去近似“无限远”。)
3. 求解偏微分方程时,建议先尝试复现文献里面已有的结果,不要自己随便构造。
4. Ginzburg–Landau方程的求解在SE也有一些人问过,不妨参考一下那边的代码。
5. 别用手机了行吗?
2024年04月06日 07点04分 3
哥,SE全名是哪个网站,
2024年04月08日 02点04分
@贴吧用户_a9bbU7E stackexchange的mathematica分站。
2024年05月04日 05点05分
1