Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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



  • 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?