Orientation of Arrowheads

*To*: mathgroup at smc.vnet.net*Subject*: [mg108861] Orientation of Arrowheads*From*: Roger Koenker <rkoenker at uiuc.edu>*Date*: Sun, 4 Apr 2010 07:46:22 -0400 (EDT)

For a teaching demo, I'm trying to plot Arrowheads as Octahedrons, but --as documented-- Mathematica wants to orient the Arrowhead according to the orientation of the Arrow and I would like the Octahedron to be oriented "vertically". Here is my current version: << Graphics`polyhedra` octo = PolyhedronData["Octahedron"]; Graphics3D[{Opacity[.75], Arrowheads[{{.06, 1, octo}}], Arrow[Tube[{{0, 0, 0}, {1, 1, 1}/Sqrt[3]}, .02]], Arrowheads[{{.01, 1, Graphics3D[Sphere[]]}}], Arrow[{{0, 0, 0}, {.577, .577, .1154}}], Polygon[{{0, 0, 0}, {0, 2, .2}, {2, 2, .4}, {2, 0, .2}}]}, PlotRange -> {{0, 2}, {0, 2}, {0, 2}}, Boxed -> True] Any suggestions would be most welcome. url: www.econ.uiuc.edu/~roger Roger Koenker email rkoenker at uiuc.edu Department of Economics vox: 217-333-4558 University of Illinois fax: 217-244-6678 Urbana, IL 61801