Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- c[n_, i_, b_] := Mod[Nest[Quotient[#, b] &, n, i], b];
- data = Table[c[x, i, 5], {x, 0, 2^8 - 1}, {i, 0, 2}];
- ArrayPlot[data, ColorFunction -> ColorData["DarkRainbow"], FrameTicks -> All, AspectRatio -> 1]
Add Comment
Please, Sign In to add comment