MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: Interfacing C++ code to Mathematica
  • Next by Date: Re: Front End Stalls When Not On Network
  • Previous by thread: Re: Vector Field
  • Next by thread: Re: Vector Field