求解区域中带有复值边界条件的偏微分方程

求解带有复值边界条件的拉普拉斯方程.

In[1]:=

ifun = NDSolveValue[{-\!\( \*SubsuperscriptBox[\(\[Del]\), \({x, y}\), \(2\)]\(u[x, y]\)\) == 1 + NeumannValue[I, x < 0], DirichletCondition[u[x, y] == 0, x > -0]}, u, {x, y} \[Element] Disk[]]

Out[1]=

可视化求解结果.

In[2]:=

Plot3D[{Re[ifun[x, y]], Im[ifun[x, y]]}, {x, y} \[Element] Disk[], PlotTheme -> "Detailed"]

Out[2]=