Вычисление точных собственных функций лапласиана в прямоугольнике
Укажем двухмерный лапласовский оператор с однородными граничными условиями Дирихле.
In[1]:=
![Click for copyable input](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/In_115.png)
{\[ScriptCapitalL], \[ScriptCapitalB]} = {-Laplacian[u[x, y], {x, y}],
DirichletCondition[u[x, y] == 0, True]};
Определим четыре наименьших собственных значения и собственных функции в прямоугольникe.
In[2]:=
![Click for copyable input](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/In_116.png)
{vals, funs} =
DEigensystem[{\[ScriptCapitalL], \[ScriptCapitalB]},
u[x, y], {x, 0, \[Pi]}, {y, 0, \[Pi]}, 4];
Собственные функции являются тригонометрическими.
In[3]:=
![Click for copyable input](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/In_117.png)
funs
Out[3]=
![](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/O_57.png)
Визуализируем собственные функции.
In[4]:=
![Click for copyable input](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/In_118.png)
Plot3D[#, {x, 0, \[Pi]}, {y, 0, \[Pi]}] & /@ funs
Out[4]=
![](assets.ru/calculate-exact-eigenfunctions-for-the-laplacian-i/O_58.png)