Computando o momento de inércia de uma região 

Compute o momento de inércia de uma região para quaisquer eixos de rotação.

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]=

O momento de inércia em torno do eixo ilustrado.

In[3]:=

X inertialMoment[mr, axis]

Out[3]=