Guest User

Untitled

a guest
Jul 9th, 2016
34
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SeedRandom[10801];
  2. dimension = 100;
  3. coDimension = 30;
  4. percProbability = 0.7;
  5. myData = Table[
  6.    Table[Boole[RandomReal[] < percProbability], {i, dimension}], {j,
  7.     coDimension}];
  8. MatrixPlot[myData]
RAW Paste Data