结的特征模
指定一个结.
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 语言输入
Out[3]=
