Re: Vector Field
- To: mathgroup at smc.vnet.net
- Subject: [mg16236] Re: Vector Field
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 5 Mar 1999 00:41:02 -0500
- Organization: Universitaet Leipzig
- References: <7bg1g5$5l8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Luke,
why to use Photoshop to overlay the images ? The combination is easy:
field = PlotGradientField3D[1/(1 + x^2 + y^2 + z^2), {x, -1.2, 1.2},
{y, 0, 1.2}, {z, -1.2, 1.2}, VectorHeads ->
True,DisplayFunction->Identity]
sph = ParametricPlot3D[{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]},
{phi, 0, Pi}, {th, 0, Pi},DisplayFunction->Identity]
Show[{sph, field},DisplayFunction->$DisplayFunction]
Hope that helps
Jens
Luke wrote:
>
> I am trying to create a picture of a sphere with Normal vectors on the
> surface to demonstrate the Divergence Theorum. I am quite new to Mathematica
> and I was wondering if it could be done.
>
> I have created the sphere using:
>
> ParametricPlot3D[{Sin[x]*Cos[y],Sin[x]*Sin[y],Cos[x]},{x,0,Pi},{y,0,2*Pi}]
>
> I am hoping to be able to use PlotVectorField3D to create a vector field and
> overlay in on the image using Photoshop where I could remove the vector
> which should not be in view. I'm not sure how to plot the field desired.
>
> Anyone have any suggestions?
>
> Luke