Wolfram 언어™

매듭의 고유 모드

매듭을 지정합니다.

In[1]:=

\[CapitalOmega] = KnotData["Stevedore", "MeshRegion"]

Out[1]=

매듭상의 라플라시안 고유 함수 10개를 계산합니다.

In[2]:=

{vals, funs} = NDEigensystem[-Laplacian[u[x, y, z], {x, y, z}], u, {x, y, z} \[Element] \[CapitalOmega], 10];

가열 노드 세트로 열 번째 고유 함수를 시각화합니다.

In[3]:=

nm = 10; c = Take[funs[[nm]]["ElementMesh"]["Coordinates"], {1, -1, 10}]; Graphics3D[ Point[c, VertexColors -> ColorData["Heat"] /@ Rescale[funs[[nm]] @@@ c]], Boxed -> False]

Out[3]=