Vectorlength independet of axis-scale using VectorPlot?

• To: mathgroup at smc.vnet.net
• Subject: [mg124440] Vectorlength independet of axis-scale using VectorPlot?
• From: Robert Steinfelder <rsteinfe at techfak.uni-bielefeld.de>
• Date: Thu, 19 Jan 2012 06:39:08 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Hi,

given the following code:

\[Gamma] := 3
a := 0.3
\[Epsilon] := 0.1

graphs := Plot[{-v*(v - a)*(v - 1), v/\[Gamma]}, {v, -0.4, 1.5},
PlotRange -> {{-0.4, 1.3}, {-0.2, 0.3}},
PlotStyle -> {{Black, Thick}, {Black, Thick}}, AspectRatio -> 1,

vecs := VectorPlot[{-v*(v - a)*(v - 1) -
w, \[Epsilon]*(v - \[Gamma]*w)}, {v, -0.4, 1.2}, {w, -0.2, 0.3},
Axes -> True, VectorPoints -> 15,
VectorScale -> {0.03, Scaled[1], None}]

Show[graphs, vecs, AxesLabel -> {"v", "w"}, AspectRatio -> 1]

The vectors of this vectorfield have all the same (absolute) length, of
course. But
due to the axis-scale, vectors in vertical orientatian are plottet
longer than
the others. Is it possible to correct that, so that all the
vectors have the same (relative) length?

Regards,
Rob

• Prev by Date: Re: solving poisson equation with Mathematica
• Next by Date: Re: Tips for writing correct, non trivial Mathematica Libraries
• Previous by thread: Re: Filling question
• Next by thread: Re: Vectorlength independet of axis-scale using VectorPlot?