Wolfram Language

Géométrie de calcul

Systèmes de vecteurs de valeurs propres sur les régions

Calculez les valeurs et fonctions propres acoustiques pour une approximation d'une section transversale à travers une Mini.

Importez une image de la section transversale.

In[1]:=
Click for copyable input
img = Import[ "http://upload.wikimedia.org/wikipedia/commons/d/d3/Mini_cross_\ section.jpg"]
Out[1]=

Utilisez l'outil de masque pour créer un graphique aux limites.

In[2]:=
Click for copyable input
boundary = \!\(\* GraphicsBox[ {GrayLevel[1.], {AbsoluteThickness[1], LineBox[CompressedData[" 1:eJxdkmtI0wEUxZdKWCaazxQlHyQLRckXQmQH+2sWCs5HivlhSYaKjxbF8rU0 0U2n8ndzsyznllvbSkrRAidGPjPMkmI0bRk+FlqZm8+cJRXkhD4cLj8OF+65 HM/0/PgMMwqF4vtHf+eGPMHP+YQAI1FXm8O8ROippM+RZbdQwGJaJa+IkFuR PX+OK4WZnvh+1L0FfBubH8nxcnQN2TblTonwOmtLGapWwImhMKzSRZj+1TH+ sl0JSWm43WJhM2SF7OFM3UP4ExzZYIgQbg0B28v2SkjfqvoNVkLwGVGqwHQF Prkk0iw3BDh2kSkefyMH60HstdHEBkTqJlvv2MuR8ozRulRCmtisjJFoZVWH HOPq2GagHNTysPMSXg1SDZ19A49bccPrcg7dkUSed5BPcVErKL1m40lfuVCU HNakbksR10d+LDNyMOujp8ZsyiCO/bly6Ew1NlLyay2GZIArm+/DrsSySxRl ZFQEbd7S8RYLNiJmInhKYzP0jpsVRmYV0kati4JKxejKoYbsK+Eg/5ECE+/E mFx/RewnuDi9NaRJGpQgO6No8ayBh6DCdHV16T1YsuJdC+oEJs7iegZ/8BDC o/GFjc5vl3f2/WfiZheOCNCr0TYI7CS43+ZQfEHLQ/DTlTg1XWzKR6RmVIX3 3MZMwMnKfjmJ2Rhhvpa6yzv+8HuxuattLdzWLz0f824y3eumUhPlp+6a/qFq 2+vr2XEH1K3U+NAEDtbqMzfSappwfSB5zvkmG9bmBxdotHroadV7IlPY//KT cGdqHCZ4JJTd7QmyKR5Yn6f0jiE86ER2HtPd9WBFO3XqCT6i5688qfUjYama FQzk8VEecICQOpNIyllb/vKtEf/38zd0gE9/ "]]}}, Background->GrayLevel[0.], ContentSelectable->True, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{273.3999999999956, 170.4}, PlotRange->{{0, 3910.}, {0, 2535.}}, PlotRangePadding->Automatic]\);

Discrétisez le graphique.

In[3]:=
Click for copyable input
bdr = BoundaryDiscretizeGraphics[boundary]
Out[3]=

Calculez six valeurs propres et fonctions propres de la section transversale.

In[4]:=
Click for copyable input
{vals, funs} = NDEigensystem[{-Laplacian[u[x, y], {x, y}]}, u[x, y], {x, y} \[Element] bdr, 6];

Inspectez les valeurs propres.

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

Visualisez la deuxième fonction propre dans la section transversale de la voiture.

Afficher l'entrée complète de Wolfram Language
In[6]:=
Click for copyable input
Show[img, ContourPlot[funs[[2]], {x, y} \[Element] bdr, Axes -> None, Frame -> None, AspectRatio -> Automatic, ColorFunction -> Function[f, {Opacity[0.75], ColorData["TemperatureMap"][f]}]], ImageSize -> Automatic]
Out[6]=

Exemples connexes

de en es ja ko pt-br ru zh