MathGroup Archive 2011

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

Search the Archive

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