Re: List plot with random size for each point
- To: mathgroup at smc.vnet.net
- Subject: [mg122444] Re: List plot with random size for each point
- From: Ray Koopman <koopman at sfu.ca>
- Date: Sat, 29 Oct 2011 07:07:45 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j8dtjl$kgs$1@smc.vnet.net>
On Oct 28, 2:45 am, Rudresh <rudr... at email.unc.edu> 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]]
n = 200
particle = Transpose@{Range[n],
RandomInteger[{15,25},n],
RandomInteger[{0,200},n],
RandomInteger[{0,200},n]};
Show[Graphics[{PointSize[#2*.001],Point@{#3,#4}}& @@@ particle],
Frame->True, PlotRange->{{-5,205},{-5,205}}, AspectRatio->Automatic]