Re: List plot with random size for each point
- To: mathgroup at smc.vnet.net
- Subject: [mg122457] Re: List plot with random size for each point
- From: Heike Gramberg <heike.gramberg at gmail.com>
- Date: Sat, 29 Oct 2011 07:10:07 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201110280936.FAA20855@smc.vnet.net>
I'm not entirely sure what you mean with the last line. Do you want the
PointSize of the point at position position[[n]] to be equal to
particle[[n,2]]?
If so, you could do something like
Graphics[MapThread[{AbsolutePointSize[#1/3], Point[#2]} &,
{particle[[All,2]], position}], Axes -> True]
By the way, a more typical way in Mathematica to generate the lists
particle and position as in your example is to do something like
particle = Table[{i, RandomInteger[{15, 25}], RandomInteger[{0, 200}],
RandomInteger[{0, 200}]}, {i, 200}];
position = particle[[All, {3, 4}]];
Heike.
On 28 Oct 2011, at 11:36, Rudresh wrote:
> I want to plot an array of numbers on a 2d plot, however each point
has a random number associated with it which should be its size on the
plot. Can this be done in mathematica and if so how. My code as of now
is:
>
> =========================
>
> particle = Array[f, {200, 4}];
> position = Array[g, {200, 2}];
> n = 1;
> While [n < 201,
> particle[[n, 1]] = n;
> particle[[n, 2]] = RandomInteger[{15, 25}];
> particle[[n, 3]] = RandomInteger[{0, 200}];
> particle[[n, 4]] = RandomInteger[{0, 200}];
>
> position[[n, 1]] = particle[[n, 3]];
> position[[n, 2]] = particle[[n, 4]];
> n++
> ];
>
> ListPlot[position, PlotStyle -> PointSize[0.01],
> PlotRange -> {{0, 200}, {0, 200}}]
>
> =========================
>
> I want particle[[n,2]] to be the size of position[[n,1],[n,2]]
>
- References:
- List plot with random size for each point
- From: Rudresh <rudresh@email.unc.edu>
- List plot with random size for each point