Trägheitsmoment
Untersuchen Sie die neuen Funktionalitäten für Berechnungen von phsyikalischen Parametern eines Starrkörpers, wie z.B. dessen Rotationsträgheit.
In[1]:=
![Click for copyable input](assets.de/moment-of-inertia/In_46.png)
wrench = ExampleData[{"Geometry3D", "Wrench"}, "Region"]
Out[1]=
![](assets.de/moment-of-inertia/O_32.png)
Wählen Sie einen Punkt, um den der Schraubenschlüssel rotiert.
In[2]:=
![Click for copyable input](assets.de/moment-of-inertia/In_47.png)
point = {-8, -0.168, 0};
In[3]:=
![Click for copyable input](assets.de/moment-of-inertia/In_48.png)
Show[wrench, Graphics3D[{PointSize[Large], Point[point]}],
ViewPoint -> {0, -\[Infinity], 0}]
Out[3]=
![](assets.de/moment-of-inertia/O_33.png)
Die Drehmatrix.
In[4]:=
![Click for copyable input](assets.de/moment-of-inertia/In_49.png)
\[ScriptCapitalI] = MomentOfInertia[wrench, point]
Out[4]=
![](assets.de/moment-of-inertia/O_34.png)
Ermitteln Sie die Hauptachsen, um die ein Körper rotiert.
In[5]:=
![Click for copyable input](assets.de/moment-of-inertia/In_50.png)
principalaxes = Eigenvectors[\[ScriptCapitalI]]
Out[5]=
![](assets.de/moment-of-inertia/O_35.png)
Ermitteln Sie das Trägheitsellipsoid, dessen Radien den relativen Widerstand gegenüber der Beschleunigung um eine Hauptachse andeuten.
In[6]:=
![Click for copyable input](assets.de/moment-of-inertia/In_51.png)
inertiaellipsoid = Ellipsoid[point, 1000 Inverse[\[ScriptCapitalI]]]
Out[6]=
![](assets.de/moment-of-inertia/O_36.png)
Veranschaulichen Sie den Schraubenschlüssel mit seinen Hauptträgheitsachsen und dem Trägheitsellipsoid. Das Ellipsoid wird entlang des Schaubenschlüsselgriffs gestreckt.
Den kompletten Wolfram Language-Input zeigen
In[8]:=
![Click for copyable input](assets.de/moment-of-inertia/In_53.png)
Show[wrench, axes, BaseStyle -> Opacity[0.3]]
Out[8]=
![](assets.de/moment-of-inertia/O_37.png)