Résolvez des équations aux dérivées partielles avec des conditions aux limites complexes sur une région

Résolvez une équation de Laplace avec une condition aux limites à valeurs complexes.

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

Visualisez le résultat.

In[2]:=

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

Out[2]=