[Date Index]
[Thread Index]
[Author Index]
Re: Can an arrow be drawn on a 3D plot?
*To*: mathgroup at smc.vnet.net
*Subject*: [mg81329] Re: Can an arrow be drawn on a 3D plot?
*From*: "David Park" <djmpark at comcast.net>
*Date*: Wed, 19 Sep 2007 05:33:42 -0400 (EDT)
*References*: <fcnkbv$rqc$1@smc.vnet.net>
DrawGraphics has Arrow3D and ArrowCurve3D commands. The following code puts
two arrowcones on the green contour line.
Needs["DrawGraphics6`DrawingMaster`"]
f[z_] := z;
Draw3DItems[
{Opacity[0.7, Red],
ParametricDraw3D[{Re[z], Im[z], Im[f[z]]} /. z -> r*Exp[I*t], {r, 0,
5}, {t, -Pi, Pi}],
pts = ParametricDraw3D[{Re[z], Im[z], Im[f[z]]} /.
z -> 2*Exp[I*t], {t, -Pi, Pi}] // Extract3DLinePoints;
ArrowCurve3D[
pts, {0.5, 1.0}, {0.05,
PlotStyle -> {Opacity[1, Darker@Green]}}, {AbsoluteThickness[2],
Darker@Green}]
},
Axes -> True,
ImageSize -> {500, 500}]
DrawGraphics is sold for $50. It, of course, has many other features than
Arrow3D. You can read more about it at my web site. DrawGraphics has now
been updated to Version 6. Present purchasers can freely update and have
received email notices to this effect. Some have changed their email
addresses and did not receive the notice. If such persons see the notice
here they may contact me.
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
"chuck009" <dmilioto at comcast.com> wrote in message
news:fcnkbv$rqc$1 at smc.vnet.net...
> 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: Re: MachinePrecission and FPU**
Next by Date:
**Supercomputing Engine for Mathematica (SEM) now available**
Previous by thread:
**Re: Can an arrow be drawn on a 3D plot?**
Next by thread:
**Re: Re: Can an arrow be drawn on a 3D plot?**
| |