mathematica 求解偏微分方程组的问题,求解没有反应
mathematica吧
全部回复
仅看楼主
level 1
func1 = {D[u[x, y], {x, 2}] + \[Mu]*D[v[x, y], {x}, {y}] - \[Beta]^2*
u[x, y] == 0,
D[v[x, y], {y, 2}] + \[Mu]*D[u[x, y], {x}, {y}] - \[Beta]^2*
v[x, y] == 0}
cons = {u[0, y] == 0, v[x, 0] == 0,
D[u[0, y], {y}] + D[v[0, y], {x}] == 0,
D[u[x, 0], {y}] + D[v[x, 0], {x}] ==
0,D[u[L/2, y], {x}] + \[Mu]*
D[v[L/2, y], {y}] - (1 + \[Mu])*\[Alpha]*T == 0,
D[v[x, B/2], {y}] + \[Mu]*D[u[x, B/2], {x}] - (1 + \[Mu])*\[Alpha]*
T == 0}
DSolveValue[{func1, cons}, {u[x, y], v[x, y]}, {x, y}]
求解之后没有反应,中间有一部分的边界条件没有显示
输出的红框部分与我的代码不一样,不知道为什么
2023年08月15日 08点08分 1
level 1
麻烦各位UU帮帮忙,具体公式如下,
我之前尝试过用maple求解,能解出通解来;带入③④⑤⑥边界条件可以解出部分参数,但加入⑦⑧条件后,就无解了
2023年08月15日 08点08分 2
吧务
level 15
LZ在SE也问了,并且在那边已获解答:
mathematica.stackexchange.com/q/288883/1871
2023年09月02日 00点09分 3
1