Re: Create random binary images
- To: mathgroup at smc.vnet.net
- Subject: [mg83692] Re: Create random binary images
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 28 Nov 2007 05:38:55 -0500 (EST)
- References: <figtob$f90$1@smc.vnet.net>
Hi, BinaryMatrix[prob_, n_Integer, m_Integer] := Table[If[Random[] < prob, 1, 0], {m}, {n}] RandomImage[prob_, n_Integer, m_Integer] := Graphics[ Raster[BinaryMatrix[prob, n, m], {{0, 0}, {n, m}}, {0, 1}, ColorFunction -> GrayLevel], AspectRatio -> Automatic, ImageSize -> {n, m}, PlotRangePadding -> None] and RandomImage[0.05,30,30] will do what you want. Regards Jens Tara.Ann.Lorenz at gmail.com wrote: > 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 >