Собственные моды в узле
Укажем узел.
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];
Визуализируем десятую собственную функцию в виде набора горящих узлов.
код на языке Wolfram Language целиком
Out[3]=
