Re: List plot with random size for each point

*To*: mathgroup at smc.vnet.net*Subject*: [mg122478] Re: List plot with random size for each point*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Sat, 29 Oct 2011 07:13:56 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201110280936.FAA20855@smc.vnet.net>

numberOfPoints = 20; particle = Table[ {n, RandomInteger[{15, 25}], RandomInteger[{0, 200}], RandomInteger[{0, 200}]}, {n, numberOfPoints}]; Graphics[ {AbsolutePointSize[#[[2]]], Point[#[[{3, 4}]]], White, Text[#[[1]], #[[{3, 4}]]]} & /@ particle, Frame -> True, PlotRange -> {{-12, 213}, {-12, 213}}, ImageSize -> 500] Bob Hanlon On Fri, Oct 28, 2011 at 5:36 AM, Rudresh <rudresh 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]] >

**References**:**List plot with random size for each point***From:*Rudresh <rudresh@email.unc.edu>