Message Boards Message Boards

0
|
5530 Views
|
7 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Reference system

Posted 9 years ago

Hello everyone. I am trying to change the reference system to the system that appears in the image:

enter image description here

Any idea?

Thank you.

POSTED BY: Luciano Tresto
7 Replies
Posted 9 years ago

Thank you very much Gianluca, now the program works like I want!

You helped me a lot, I'm very grateful.

Regards.

POSTED BY: Luciano Tresto

You should use the columns of the matrix for the arrows, not the rows:

A = {{1, 1, 1}, {1, 6, 8}, {1, 8, 9}};
c = Orthogonalize[Eigenvectors[A]] // N;
c // MatrixForm
Graphics3D[{GeometricTransformation[Cuboid[], c], 
  Map[Arrow[{{0, 0, 0}, #}] &, Transpose[1.5 c]]}, Axes -> True]

or else

Graphics3D[{GeometricTransformation[{Cuboid[], 
    Map[Arrow[{{0, 0, 0}, #}] &, 1.5 IdentityMatrix[3]]}, c]}, 
 Axes -> True]
POSTED BY: Gianluca Gorni
mat = Orthogonalize[RandomReal[{0, 1}, {3, 3}]];
Graphics3D[GeometricTransformation[Cuboid[], mat]]
POSTED BY: Gianluca Gorni
Posted 9 years ago
POSTED BY: Luciano Tresto
Posted 9 years ago

I wish to get this transformation:enter image description here

POSTED BY: Luciano Tresto
Posted 9 years ago

I'd rather not make assumptions about what you mean by "change the reference system". Maybe you can provide a before and after comparison so I know what you're trying to change.

POSTED BY: Eric Rimbey
POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract