3D 라플라시안 고유 함수
3D 영역을 지정합니다.
In[1]:=
![Click for copyable input](assets.ko/eigenfunctions-of-a-3d-laplacian/In_67.png)
\[CapitalOmega] =
ImplicitRegion[
x^6 - 5 x^4 y z + 3 x^4 y^2 + 10 x^2 y^3 z + 3 x^2 y^4 - y^5 z +
y^6 + z^6 <=
1, {{x, -1.25, 1.25}, {y, -1.25, 1.25}, {z, -1.25, 1.25}}];
라플라스 연산자의 고유값과 고유 함수를 계산합니다.
In[2]:=
![Click for copyable input](assets.ko/eigenfunctions-of-a-3d-laplacian/In_68.png)
{vals, funs} =
NDEigensystem[Laplacian[u[x, y, z], {x, y, z}],
u, {x, y, z} \[Element] \[CapitalOmega], 4];
고유값을 조사합니다.
In[3]:=
![Click for copyable input](assets.ko/eigenfunctions-of-a-3d-laplacian/In_69.png)
vals
Out[3]=
![](assets.ko/eigenfunctions-of-a-3d-laplacian/O_30.png)
네번째 고유 함수를 시각화합니다.
전체 Wolfram 언어 입력 표시하기
Out[4]=
![](assets.ko/eigenfunctions-of-a-3d-laplacian/O_31.png)