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>