Re: axes with arrows with ParametricPlot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg109366] Re: axes with arrows with ParametricPlot3D
• From: Simon <simonjtyler at gmail.com>
• Date: Fri, 23 Apr 2010 03:50:17 -0400 (EDT)
• References: <hqmd26\$pr6\$1@smc.vnet.net>

```On Apr 21, 4:29 pm, kokos <artb... at interia.pl> wrote:
> How to get arrows on the ends of axes in ParametricPlot3D ? I try some
> combinations of options and directives without success.
> From other side how to combine Graphics3D with Arrows and
> ParametricPlot3D to have the same result:
> 3D surface and axes with arrows in 3D ?

I don't know why the Arrowheads directive does not work in 3D...
anyone else got any ideas??

Anyway, here's my quick kludge - it could be made more elegant:

the ABC logo )
ParametricPlot[{Cos[u],Sin[3u]},{u,0,2\[Pi]},PlotStyle-
>Thick,AxesLabel->{"x","y"},Ticks->False,AxesStyle-

The 3D version of the above: -- the Arrowheads do not work in this
case.
p3d=ParametricPlot3D[{Cos[u],Sin[3u]+Cos[3v],Sin[v]},{u,0,2\[Pi]},{v,-\
[Pi],\[Pi]},Mesh->None,Boxed->False,
AxesLabel->{"x","y","z"},Ticks-
AxesEdge -> {{-1, -1}, {-1, -1},
{-1, -1}}]

Extract the range and construct the coordinate list:
axes=Table[{pr\[Transpose][[1]],Table[pr\[Transpose]
[[KroneckerDelta[i,j]+1,i]],{i,1,3}]},{j,1,3}]

Put it together:
Show[p3d, Graphics3D[Arrow /@ axes]]

Simon

```

• Prev by Date: Re: problems with NMinimize
• Next by Date: Re: Bug in Mathematica 7.0.1.0 ?
• Previous by thread: axes with arrows with ParametricPlot3D
• Next by thread: MorphologicalPerimeter algorithm question