Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Solve[{RotationMatrix[x1, {y1, y2, y3}].({-1, 1, -1}/
- Norm[{-1, 1, -1}]) == {1, 0, 0},
- RotationMatrix[x1, {y1, y2, y3}].({1, 1, 0}/Norm[{1, 1, 0}]) == {0, 1, 0},
- RotationMatrix[x1, {y1, y2, y3}].({-1, 1, 2}/
- Norm[{-1, 1, 2}]) == {0, 0, 1}}, {x1, y1, y2, y3}]
- Solve[{EulerMatrix[{y1, y2, y3}].({-1, 1, -1}/
- Norm[{-1, 1, -1}]) == {1, 0, 0},
- EulerMatrix[{y1, y2, y3}].({1, 1, 0}/Norm[{1, 1, 0}]) == {0, 1, 0},
- EulerMatrix[{y1, y2, y3}].({-1, 1, 2}/Norm[{-1, 1, 2}]) == {0, 0, 1}},
- {y1, y2, y3}]
Add Comment
Please, Sign In to add comment