Rotation about an arbitrary axis with mathematica

Manipulate[
Graphics3D[{Thickness[0.001], PointSize[0.04], Yellow, Point[{13, 7, 9}], Yellow, Line[{{0, 0, 0}, {13, 7, 9}}], Thickness[0.007], Black, Line[{{0, 0, 0}, {0, -9, 7}}], Red, Line[{{0, 0, 0}, RotationMatrix[\[Phi], {0, -9, 7}].{3, 0, 0}}], Green, Line[{{0, 0, 0}, RotationMatrix[\[Phi], {0, -9, 7}].{0, 3, 0}}], Blue, Line[{{0, 0, 0}, RotationMatrix[\[Phi], {0, -9, 7}].{0, 0, 3}}]}, {PlotRange - 15, Background - LightRed}], {\[Phi], 0, 2 \[Pi]}]

but angle brackets after - in plotrange and background, youtube limit

Category:

Science & Technology

Tags:

• mathematica
• rotation
• matrix
• arbitrary
• axis