Rotaciones de Euler
La versión 11 introduce EulerMatrix para describir una secuencia de rotaciones con respecto a un marco de coordenadas móvil.
Modele un cardán. Cada ángulo de Euler es el ángulo relativo del giro de cada eje.
muestre la entrada completa de Wolfram Language
In[2]:=
![Click for copyable input](assets.es/euler-rotations/In_31.png)
gimbal[{\[Alpha]_, \[Beta]_, \[Gamma]_}] :=
Graphics3D[{GeometricTransformation[ring3,
EulerMatrix[{\[Alpha], 0, 0}]],
GeometricTransformation[ring2,
EulerMatrix[{\[Alpha], \[Beta], 0}]],
GeometricTransformation[ring1,
EulerMatrix[{\[Alpha], \[Beta], \[Gamma]}]]},
ViewPoint -> {1.3, -2.4, 2.}, PlotRange -> 3.5,
ImageSize -> Medium];
In[3]:=
![Click for copyable input](assets.es/euler-rotations/In_32.png)
gimbalframes = Table[gimbal[{i, i, i}], {i, 0, 2 Pi, Pi/32}];
In[4]:=
![Click for copyable input](assets.es/euler-rotations/In_33.png)
Manipulate[
gimbalframes[[i]], {{i, 1, "time"}, 1, Length[gimbalframes], 1},
SaveDefinitions -> True]
Out[4]=
![](assets.es/index.es/Flash_3.png)