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