Das Trägheitsmoment einer Region berechnen 

Berechnen Sie das Trägheitsmoment einer Region für jede beliebige Rotationsachse.

In[1]:=

X inertialMoment[reg_?RegionQ, axis_InfiniteLine] := Module[{df = RegionDistance[axis]}, Integrate[df[{x, y, z}], {x, y, z} \[Element] reg]]

In[2]:=

X mr = ConvexHullMesh[RandomReal[1, {30, 3}]]; axis = InfiniteLine[{1, 0, 0}, {1, 2, 3}]; Show[Graphics3D[{Red, Thick, axis}, Boxed -> False], mr]

Out[2]=

Die Darstellung des Trägheitsmoments um die Rotationsachse.

In[3]:=

X inertialMoment[mr, axis]

Out[3]=