MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: Changing Plot Axis Displays
  • Next by Date: Re: Re: nonlinear differential equation
  • Previous by thread: Re: Drawing field Plot 3d
  • Next by thread: Re: Drawing field Plot 3d