Инерция: Новое в системе Wolfram Language 11

‹›

Инерция

Откройте для себя новые возможности, охватывающие физические параметры твердых тел, в том числе инерцию вращения.

In[1]:=

wrench = ExampleData[{"Geometry3D", "Wrench"}, "Region"]

Out[1]=

Выберем точку, вокруг которой будет вращаться гаечный ключ.

In[2]:=

point = {-8, -0.168, 0};

In[3]:=

Show[wrench, Graphics3D[{PointSize[Large], Point[point]}], 
 ViewPoint -> {0, -\[Infinity], 0}]

Out[3]=

Центр матрицы инерции будет находится в данной точке.

In[4]:=

\[ScriptCapitalI] = MomentOfInertia[wrench, point]

Out[4]=

Определим главные оси, вокруг которых будет вращаться геометрических объект.

In[5]:=

principalaxes = Eigenvectors[\[ScriptCapitalI]]

Out[5]=

Определим эллипсоид инерции, радиусы которого указывают на относительную устойчивость к ускорению относительно главной оси.

In[6]:=

inertiaellipsoid = Ellipsoid[point, 1000 Inverse[\[ScriptCapitalI]]]

Out[6]=

Проиллюстрируем ключ с его главными осями и эллипсоидом инерции. Ручка ключа содержит эллипсоид, расположенный вдоль её оси.

код на языке Wolfram Language целиком

In[7]:=

axes = Graphics3D[{Opacity[1], 
    Arrowheads[{-0.04, 0.04}], {Specularity[Gray, 10], Gray, 
     inertiaellipsoid}, 
    MapThread[{RGBColor[#2], 
       Arrow[Tube[{point - 4 #, 
          point + 4 #}, .06]]} &, {principalaxes, 
      IdentityMatrix[3]}]}];

In[8]:=