Решение дифференциальных уравнений в частных производных с комплексными граничными условиями для области определения
Решить уравнение Лапласа с комплексными граничными условиями.
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]=
