Thank you for your response, Gianluca.
I tried to do what you show me, but I couldn't get the result I am looking for. I show the code and a picture with my code and the result I obtained...maybe
someone find the mistake.
A = {{1, 1, 1}, {1, 6, 8}, {1, 8, 9}};
c = Orthogonalize[Eigenvectors[A]] // N;
c // MatrixForm
Graphics3D[{GeometricTransformation[Cuboid[], c],
Arrow[{{0, 0, 0}, {0.09489129421592486, 0.636336138762876,
0.7655533689994319}}],
Arrow[{{0, 0, 0}, {-0.9918275784421267, 0.005450756929915728,
0.12746899187848795}}],
Arrow[{{0, 0, 0}, {0.08528597143524745, -0.7713926417546674,
0.6306185022048604}}]}, Axes -> True]
I'd wish the cuboid coincide with the arrows.
Thank you.