Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: Create random binary images

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83678] Re: Create random binary images
  • From: "Dana DeLouis" <dana.del at gmail.com>
  • Date: Wed, 28 Nov 2007 05:30:41 -0500 (EST)

> I am trying to create several random binary images of 30x30.  I want
> the outputs to be 1's and 0's, with 5% of the outputs being 1's.  Any
> ideas on how to code this in Mathematica?


Hi.  Here's one of many ways.  This is Mathematica 6.0

size = 30*30; 

ones = Table[1, {Round[size*0.05]}]; 

zeros = Table[0, {size - Length[ones]}]; 

data = RandomSample[Join[zeros, ones]]; 
data = Partition[data, Sqrt[size]]; 

MyColors = ColorRules -> {0 -> Black, 1 -> Red}; 

ArrayPlot[data, MyColors]

HTH
Dana DeLouis




  • Prev by Date: Re: Create random binary images
  • Next by Date: Problems used by Benchmark[]?
  • Previous by thread: Re: Create random binary images
  • Next by thread: Re: Create random binary images