Re: Vector Field
- To: mathgroup at smc.vnet.net
- Subject: [mg16284] Re: Vector Field
- From: "Junho Lee" <leejunho at hyowon.pusan.ac.kr>
- Date: Sun, 7 Mar 1999 01:05:26 -0500
- Organization: Pusan National University
- References: <7bg0fo$5jm@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hello, I'm Junho Lee in korea
It may be done by the here.
Good luck to you.
______________________________________________________
<<Graphics`PlotField3D`
p1=
ParametricPlot3D[{Sin[t]*Cos[p],Sin[t]*Sin[p],Cos[t]},
{t,0,Pi},{p,0,2*Pi}];
f[{x_,y_,z_}]:={x, y, z}
s[r_,t_,p_]:={r Sin[t]*Cos[p],r Sin[t]*Sin[p],r Cos[t]}
lists=
Table[
{s[1,t,p],f[s[1,t,p]]},
{t,0,Pi,Pi/5},{p,0,2Pi,Pi/5}];
p2=ListPlotVectorField3D[
Flatten[lists,1],
VectorHeads->True];
Show[p1,p2];
_________________________________________________________
http://scied.re.pusan.ac.kr/mathcomm
Luke wrote in message <7bg0fo$5jm at smc.vnet.net>...
>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
>
>
>