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: [mg83714] Re: [mg83637] Create random binary images
  • From: "Maarten van der Burgt" <maarten.vanderburgt at icos.be>
  • Date: Wed, 28 Nov 2007 05:51:29 -0500 (EST)

Tara,

Try this

whites = Table[1,{9*5}];
blacks = Table[0, {9*95}];
arrayvalues= Join[blacks, whites];

randompermutation := RandomSample[Range[1,900]];
image :=Partition[arrayvalues[[randompermutation]],30];

Graphics[Raster[image]]

Each time you evaluate the last line you get a random 30x30  image with
exactly 5% white pixels.


Maarten




                                                                                                                                                
                    Tara.Ann.Lorenz                                                                                                             
                    @gmail.com             To:     mathgroup at smc.vnet.net                                                                       
                                           cc:                                                                                                  
                    27/11/2007             Subject:     [mg83637] Create random binary images                                                   
                    12:05                                                                                                                       
                                                                                                                                                
                                                                                                                                                




Hello,

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?

Thanks!
Tara







  • Prev by Date: Re: PlotLabel - SubscriptBox - Vers. 6: FontColor not working?
  • Next by Date: Re: FindInstance puzzler
  • Previous by thread: Re: Create random binary images
  • Next by thread: case differentiation problem with "Assumptions"