Re: VectorStyle for centered vector tail?
- To: mathgroup at smc.vnet.net
- Subject: [mg94365] Re: VectorStyle for centered vector tail?
- From: ucervan at gmail.com
- Date: Thu, 11 Dec 2008 03:45:17 -0500 (EST)
- References: <ghdmst$fog$1@smc.vnet.net> <ghf75b$phv$1@smc.vnet.net>
>
> data = Table[{x, y}, {y, 10}, {x, 20}];
> ListVectorPlot[data, AspectRatio -> 1/2, VectorPoints -> {20, 10},
> VectorStyle -> "RightDot", VectorScale -> {Automatic, 0.3}]
>
> but this draws dots that are really squished. There doesn't seem to be
> any natural way to draw non-square vector plots.
>
> Is it possible to make the dots circular, so that they don't also
> follow the aspect ratio?
>
> Any ideas?
>
> Thanks!
You will have to construct the dot/segments manually to compensate for
the aspect ratio:
pts = Flatten[Table[{x, y}, {x, 1, 10, 1}, {y, 1, 20, 1}], 1];
data = Table[{x, y}, {y, 10}, {x, 20}];
Show[ListVectorPlot[data, AspectRatio -> 1/2, VectorPoints -> pts,
PlotRange -> All, VectorStyle -> {Black, "RightSegment"}],
Graphics[Disk[#, {0.06, 0.16}] & /@ pts]]
-Ulises