MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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:

A 2D example with Arrowheads  ( readers from Australia will recognize
the ABC logo )
ParametricPlot[{Cos[u],Sin[3u]},{u,0,2\[Pi]},PlotStyle-
>Thick,AxesLabel->{"x","y"},Ticks->False,AxesStyle-
>Directive[Dotted,Italic,Arrowheads[.05]]]

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-
>False,AxesStyle->Directive[Dotted,Italic,Arrowheads[.5]],
                                  AxesEdge -> {{-1, -1}, {-1, -1},
{-1, -1}}]

Extract the range and construct the coordinate list:
pr=PlotRange * PlotRangePadding/.Options[p3d]/.Scaled->(2#+1&)
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