You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Needs["Graphics`Colors`"]
r3pix[rn_] := LabelWrapper[XCAGraphics[XCAEvolveList[ TotalisticRule[rn, 3, 1], RandomList[100, 3], 80], Colors->{Red,Green,Blue}], BigFont[rn]]
Show[r3pix[426]];
XCAEvolveList[ TotalisticRule[426,3,1], RandomList[100,3],80]
CAExternalData[7940104]
XCAGraphics[%,Colors->{Red,Green,Blue}]
XCAGraphics[%,Colors->{RGBColor[1,0,0],RGBColor[0,1,0],RGBColor[0,0,1]}]
⁃Graphics⁃
Show[%];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], RandomList[600,3],400],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], CenterList[200,{1,2,1}],100],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], CenterList[600,{1,2,1}],300],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], CenterList[200,{1}],100],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], CenterList[200,{2}],100],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], RandomList[600,3,{.45,.1,.45}],200],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[426,3,1], RandomList[600,3,{.48,.04,.48}],200],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[412,3,1], RandomList[300,3],200],Colors->{Red,Green,Blue}]];
Show[XCAGraphics[XCAEvolveList[ TotalisticRule[419,3,1], RandomList[300,3],200],Colors->{Red,Green,Blue}]];