Wolfram Language

Sistemas propios diferenciales

Modos propios en un nudo

Especifique un nudo.

In[1]:=
Click for copyable input
\[CapitalOmega] = KnotData["Stevedore", "MeshRegion"]
Out[1]=

Calcule las 10 funciones propias de un laplaciano sobre el nudo.

In[2]:=
Click for copyable input
{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
In[3]:=
Click for copyable input
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]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh