Calculando el momento de inercia de una región 

Calcule el momento de inercia de una región para cualquier eje de rotación.

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

El momento de inercia alrededor del eje ilustrado.

In[3]:=

X inertialMoment[mr, axis]

Out[3]=