Resolva equações diferenciais parciais com condições de contorno de valores complexos sobre uma região

Resolva uma equação de Laplace com uma condição de contorno de valores complexos.

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]=

Visualize o resultado.

In[2]:=

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

Out[2]=