Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "Colored checkerboard"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:1+2 =



Original Message (ID '274720') By yehuda:
This is a coloring problems over a rectangular grid It has a simple solution, so I'll just show you how to implement it rather than find it colors = {Red, Green, Blue, Yellow}; oddColors = PadRight[colors, 10, colors]; rotcolors = RotateRight[{Red, Green, Blue, Yellow}, 2]; evenColors = PadRight[rotcolors, 10, rotcolors]; ArrayPlot[Partition[Flatten[Table[{oddColors, evenColors}, {5}]], 10]] yehuda