Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Arrow rotation. Arrowhead problem.' topicStudent Support Forum > General > "Arrow rotation. Arrowhead problem."

Next Comment >Help | Reply To Topic
Author Comment/Response
Jeff
08/24/09 12:51pm

Here is a question:

The code below displays 10 arrows in 3D space.

By mouse I can rotate the box that the arrows are in, but the arrowheads themselves will not rotate! Its like they are compass needles always pointing in the same direction. Can this be fixed?

Execute, rotate and see:

arrowPositions = {{-5.00000000000000, -5.00000000000000,
4.00000000000000}, {-5.00000000000000, -5.00000000000000,
6.00000000000000}, {-5.00000000000000, -5.00000000000000,
8.00000000000000}, {-5.00000000000000, -3.00000000000000,
4.00000000000000}, {-5.00000000000000, -3.00000000000000,
6.00000000000000}, {-5.00000000000000, -3.00000000000000,
8.00000000000000}, {-5.00000000000000, -1.00000000000000,
4.00000000000000}, {-5.00000000000000, -1.00000000000000,
6.00000000000000}, {-5.00000000000000, -1.00000000000000,
8.00000000000000}, {-5.00000000000000, 1.00000000000000,
4.00000000000000}};



arrow[\[Theta]_, \[Phi]_] :=
Graphics3D[
Rotate[Rotate[{Hue[.4], Arrowheads[.2],
Arrow[Tube[{{0, 0, 0}, { Cos[0] Sin[0], Sin[0] Sin[0], Cos[0]}},
Scaled[0.008]]]}, \[Theta], {1, 0, 0}], \[Phi], {0, 0, 1}],
Boxed -> False, ImageSize -> 100, Axes -> False,
PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]


allArrows =
Table[Text[arrow[Pi/i, Pi/i], arrowPositions[[i]]], {i, 1, 10}];

Show[Graphics3D[allArrows], Axes -> True, AxesLabel -> {"x", "y"},
PlotLabel -> "Custom Markers", Background -> White, AspectRatio -> 1]


URL: ,

Subject (listing for 'Arrow rotation. Arrowhead problem.')
Author Date Posted
Arrow rotation. Arrowhead problem. Jeff 08/24/09 12:51pm
Re: Arrow rotation. Arrowhead problem. yehuda ben-s... 08/26/09 12:36pm
Next Comment >Help | Reply To Topic