Re: Drawing field Plot 3d

*To*: mathgroup at smc.vnet.net*Subject*: [mg54762] Re: [mg54746] Drawing field Plot 3d*From*: "Christoph Lhotka" <lhotka at astro.univie.ac.at>*Date*: Tue, 1 Mar 2005 01:58:16 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

On Mon, 28 Feb 2005 03:28:26 -0500 (EST) win at mipa.uns.ac.id (win) wrote: > I have a problem... about plotting field plot > i have 3 silmultanous equation > that is > ds/dt=100000-0.1*s-2.10^-7*s*v > dv/dt=2.10^-7*s*v-0.5i > di/dt=100*i-5v > > i plotted the field plot with this > ParametricPlot3D[{100000-0.1*s-2.10^-7*s*v,2.10^-7*s*v-0.5i100*i-5v > },{x,0,1000000,},{y,0,1000000,},{z,0,1000000,},PlotStyle] > > i want to show the equirilibium point and show the field plot... so > what kind of source program that i have to run... > thank you > > best regard > win > Hi, what about the function PlotVectorField3D ? In[..]:=<< Graphics`PlotField3D` In[..]:= dsdt = 100000 - 0.1*s - 2.10^-7*s*v; dvdt = 2.10^-7*s*v - 0.5i; didt = 100*i - 5v; In[..]:=PlotVectorField3D[{dsdt, dvdt, didt}, {s, 0, 1000000}, {v, 0, 1000000}, {i, 0, 1000000}, PlotPoints -> 15, VectorHeads -> True, ColorFunction -> GrayLevel] Out[..]:=... with kind regards... -- Christoph Lhotka -- University of Vienna Institute for Astronomy Tuerkenschanzstr. 17 1180 Vienna, Austria fon. +43.1.4277.518.41 mail. lhotka at astro.univie.ac.at