Re: add arrow to ContourPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg121131] Re: add arrow to ContourPlot3D
- From: "Kevin J. McCann" <Kevin.McCann at umbc.edu>
- Date: Wed, 31 Aug 2011 06:02:42 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j3ieg4$sd3$1@smc.vnet.net>
For this type of work, you can't beat David Park's Presentations package. The package is inexpensive, and allows the construction of complicated graphics in a very logical fashion rather than the cumbersome Epilog. Here is the code. I will send you the notebook directly so you can see the results. The link to David's software is: http://home.comcast.net/~djmpark/Mathematica.html Kevin Get["Presentations`Master`"] Draw3DItems[ { Opacity[0.5], ContourDraw3D[x^3 + y^2 - z^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, ContourStyle -> {HTML@Peru, HTML@DarkSeaGreen}, Mesh -> 10], Opacity[1], AbsolutePointSize[10], Red, Point[{0.25, 0, 0}], Blue, Arrow[{{1, 1, 1}, {0.25, 0, 0}}], Black, VerticalText3D[ Style["Not Dead Center", FontFamily -> "Times"], {1.1, 1.1, 1.1}, {0.2, 0 \[Degree], Blue, Blue}] }, NeutralLighting[0.0, 0.6, 0.1], NiceRotation, Boxed -> False, ViewPoint -> {2, -2., 2.}, ImageSize -> 300 ] On 8/30/2011 6:36 AM, Alan wrote: > I have a ContourPlot3D and I want to add a 3D arrow. I thought I would be able to do this by adding e.g. Epilog->{Graphics3D[Arrow[{{0, 0, 0}, {v1, v2, v3}}]]} but this does not work. How should I approach this? > > Thanks, > Alan Isaac >