Modos propios en un nudo
Especifique un nudo.
In[1]:=

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

Calcule las 10 funciones propias de un laplaciano sobre el nudo.
In[2]:=

{vals, funs} =
NDEigensystem[-Laplacian[u[x, y, z], {x, y, z}],
u, {x, y, z} \[Element] \[CapitalOmega], 10];
Visualice la décima función propia como un conjunto de nodos calientes.
muestre la entrada completa de Wolfram Language
Out[3]=
