Message Boards Message Boards

GROUPS:

MultiColumn + ArrayPlot

Posted 11 months ago
809 Views
|
0 Replies
|
2 Total Likes
|

Here's an idea for a new function. I don't know what its name should be but it would be nice to make some of the graphics you see in A New Kind of Science (Wolfram 2002) like this one of rule 1599

code 1599

like the one found on p.70 The idea is to take an array and instad of just plotting it with ArrayPlot you slit it into columns first.

Maybe it is a combination of ArrayPlot and Multicolumn that would automatically rearrange narrow arrays, e.g.,

Row[Map[ArrayPlot,  ArrayReshape[#, {3, Quotient[Length[#], 3], Length[#[[1]]]}]] &[
                                                        CellularAutomaton[{1599, {3, 1}}, {RandomInteger[2, 150], 0}, 499]]]
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract