Re: Can an arrow be drawn on a 3D plot?

• To: mathgroup at smc.vnet.net
• Subject: [mg81302] Re: [mg81253] Can an arrow be drawn on a 3D plot?
• From: Gianluca Gorni <gianluca.gorni at dimi.uniud.it>
• Date: Tue, 18 Sep 2007 06:01:43 -0400 (EDT)
• References: <200709180430.AAA28441@smc.vnet.net>

```Hello!

You can have a look at the free package CurvesGraphics

http://www.dimi.uniud.it/gorni/Mma/

It is written for pre-6 versions of Mathematica.
I have updated only part of it so far for version 6.

For the 3D arrows you will also need DrawGraphics, which
is not free.

Good luck,
Gianluca Gorni

On 18 set 2007, at 06:30, chuck009 wrote:

> The code below draws a surface and a contour over that surface.
> I'd like to show the direction of the contour with arrows.  Looks
> like Arrow only works in 2D.  Any way to draw an arrow lying on a 3-
> D surface?  Ideally, I'd like to place say 2 arrows on the green
> contour on the red surface showing the direction (of integration).
>
> f[z_] := z;
> iSurface = ParametricPlot3D[
>        {Re[z], Im[z], Im[f[z]]} /.
>          z -> r*Exp[I*t], {r, 0, 5},
>        {t, -Pi, Pi}, PlotStyle -> Red];
> traceC1 = ParametricPlot3D[
>        {Re[z], Im[z], Im[f[z]]} /.
>          z -> 2*Exp[I*t], {t, 0, 2*Pi},
>        PlotStyle -> {Darker[Green],
>            Thickness[0.004]}];
> Show[{iSurface, traceC1}, PlotRange ->
>      {{-7, 7}, {-7, 7}, {-7, 7}},
>    BoxRatios -> {1, 1, 1}, ImageSize ->
>      {500, 500}]
>

```

• Prev by Date: Re: MachinePrecission and FPU
• Next by Date: Re: Is RealTime3D back?
• Previous by thread: Can an arrow be drawn on a 3D plot?
• Next by thread: Re: Can an arrow be drawn on a 3D plot?