매듭의 고유 모드
매듭을 지정합니다.
In[1]:=
![Click for copyable input](assets.ko/eigenmodes-in-a-knot/In_71.png)
\[CapitalOmega] = KnotData["Stevedore", "MeshRegion"]
Out[1]=
![](assets.ko/eigenmodes-in-a-knot/O_32.png)
매듭상의 라플라시안 고유 함수 10개를 계산합니다.
In[2]:=
![Click for copyable input](assets.ko/eigenmodes-in-a-knot/In_72.png)
{vals, funs} =
NDEigensystem[-Laplacian[u[x, y, z], {x, y, z}],
u, {x, y, z} \[Element] \[CapitalOmega], 10];
가열 노드 세트로 열 번째 고유 함수를 시각화합니다.
전체 Wolfram 언어 입력 표시하기
Out[3]=
![](assets.ko/eigenmodes-in-a-knot/O_33.png)