       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