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,
AxesStyle -> Arrowheads[0.03] ]
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