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]