Wolfram Language

Les systèmes propres

Calculez les fonctions propres pour une membrane serrée

Calculez les six premiers pour une membrane fonctions propres circulaire avec des bords serrés.

Précisez un opérateur Laplacien.

In[1]:=
Click for copyable input
\[ScriptCapitalL] = -Laplacian[u[x, y], {x, y}];

Indiquez une condition aux limites de Dirichlet.

In[2]:=
Click for copyable input
\[ScriptCapitalB] = DirichletCondition[u[x, y] == 0, True];

Trouvez les six plus petites valeurs et fonctions propres.

In[3]:=
Click for copyable input
{vals, funs} = NDEigensystem[{\[ScriptCapitalL], \[ScriptCapitalB]}, u[x, y], {x, y} \[Element] Disk[], 6];

Inspectez les valeurs propres.

In[4]:=
Click for copyable input
vals
Out[4]=

Visualisez les fonctions propres.

In[5]:=
Click for copyable input
Table[Plot3D[funs[[i]], {x, y} \[Element] Disk[], PlotRange -> All, PlotLabel -> vals[[i]], PlotTheme -> "Minimal"], {i, Length[vals]}]
Out[5]=

Exemples connexes

de en es ja ko pt-br ru zh