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}] >