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