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]

```

• Prev by Date: Re: List plot with random size for each point
• Next by Date: Re: Coin Toss Sim
• Previous by thread: Re: List plot with random size for each point
• Next by thread: Matematica Beginner/Student and Mysql