Les modes propres dans un nœud
Spécifiez un nœud.
In[1]:=
![Click for copyable input](assets.fr/eigenmodes-in-a-knot/In_71.png)
\[CapitalOmega] = KnotData["Stevedore", "MeshRegion"]
Out[1]=
![](assets.fr/eigenmodes-in-a-knot/O_32.png)
Calculez 10 fonctions propres du Laplacien sur le nœud.
In[2]:=
![Click for copyable input](assets.fr/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];
Visualisez la 10ème fonction propre en tant qu'ensemble de nœuds chauffés.
Afficher l'entrée complète de Wolfram Language
Out[3]=
![](assets.fr/eigenmodes-in-a-knot/O_33.png)