Miêu tả

Vị trí máy chụp hình	52° 44′ 24,84″ B, 8° 11′ 40,65″ Đ	Xem hình này và các hình ảnh lân cận trên: OpenStreetMap	52.740233; 8.194626

Mathematica 11.0 code

m = RandomReal[{-10, 10}, {3, 3}];
m = Round[(m + Transpose[m])/2, 0.01];
\[Lambda] = Eigenvalues[m];
\[Psi] = Eigenvectors[m];

angle[u_, v_] := ArcCos[u.v/(Norm[u] Norm[v])];
xyz = {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
\[Alpha]1 = \[Alpha] /. NMinimize[Norm[EulerMatrix[{\[Alpha], 0, 0}].xyz[[2]] - Cross[{0, 0, 1}, \[Psi][[3]]]/Norm[Cross[{0, 0, 1}, \[Psi][[3]]]] ], \[Alpha]][[2]];(*rotate y in the plane perpendicular to Subscript[\[Psi], z]*)
\[Beta]1 = angle[{0, 0, 1}, \[Psi][[3]]];
\[Gamma]1 = -angle[Cross[{0, 0, 1}, \[Psi][[3]]], \[Psi][[2]]];

p1 = Table[
   Grid[{{
      PaddedForm[MatrixForm[Inverse[EulerMatrix[{\[Alpha], 0, 0}]].m.EulerMatrix[{\[Alpha], 0, 0}] ], {3, 2}], Graphics3D[{Gray, Table[Arrow[{{0, 0, 0}, xyz[[j]]}], {j, 1, 3}], Sphere[{0, 0, 0}, 0.1]
        , Black, Table[Arrow[{{0, 0, 0}, EulerMatrix[{\[Alpha], 0, 0}].xyz[[j]]}], {j, 1, 3}] }, Boxed -> False, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]
      }}]
   , {\[Alpha], 0, \[Alpha]1, \[Alpha]1/40}];
p2 = Table[
   Grid[{{
      PaddedForm[MatrixForm[Round[Inverse[EulerMatrix[{\[Alpha]1, \[Beta], 0}]].m.EulerMatrix[{\[Alpha]1, \[Beta], 0}], 0.01] ], {3,2}], Graphics3D[{Gray, Table[Arrow[{{0, 0, 0}, xyz[[j]]}], {j, 1, 3}], 
        Sphere[{0, 0, 0}, 0.1], Black, Table[Arrow[{{0, 0, 0}, EulerMatrix[{\[Alpha]1, \[Beta], 0}].xyz[[j]]}], {j, 1, 3}]
        }, Boxed -> False, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]
      }}]
   , {\[Beta], 0, \[Beta]1, \[Beta]1/40}];
p3 = Table[
   Grid[{{
      PaddedForm[MatrixForm[Round[Inverse[EulerMatrix[{\[Alpha]1, \[Beta]1, \[Gamma]}]].m.EulerMatrix[{\[Alpha]1, \[Beta]1, \[Gamma]}], 0.01] ], {3, 2}], Graphics3D[{Gray, Table[Arrow[{{0, 0, 0}, xyz[[j]]}], {j, 1, 3}], Sphere[{0, 0, 0}, 0.1], Black, Table[Arrow[{{0, 0, 0}, EulerMatrix[{\[Alpha]1, \[Beta]1, \[Gamma]}].xyz[[j]]}], {j, 1, 3}]
        }, Boxed -> False, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]
      }}]
   , {\[Gamma], 0, \[Gamma]1, \[Gamma]1/40}];
ListAnimate[Join[p1, p2, p3, Table[p3[[-1]], 30]]]

Giấy phép

Tôi, người giữ bản quyền tác phẩm này, từ đây phát hành nó theo giấy phép sau:

Tập tin này được phân phối theo Creative Commons Hiến tặng vào Phạm vi Công cộng Toàn thế giới CC0.

Người nào gán tài liệu này với tác phẩm nghĩa là đã hiến tác phẩm cho phạm vi công cộng bằng cách từ bỏ mọi quyền lợi của người đó đối với tác phẩm theo quy định của luật bản quyền, có hiệu lực trên toàn thế giới và các quyền lợi pháp lý phụ mà người đó có được trong tác phẩm, đến mức độ mà luật pháp cho phép. Bạn được tự do sao chép, phân phối, và biểu diễn tác phẩm này, tất cả đều không bắt buộc ghi công. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse