0
$\begingroup$ 
Table[ArrayPlot[Mod[x, y, n]], {n, 10}, {x, 1, 50}, {y, 1, 50}]

expected answer [expected image][1]

Improve this question
$\endgroup$

1 Answer 1

Reset to default
1
$\begingroup$

If you're looking for plots variing with n try

GraphicsRow[Table[ArrayPlot[Table[Mod[x, y, n] , {x, 1, 50}, {y, 1,50}]], {n,    10}]]

enter image description here

Improve this answer
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.