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
In[]:=
$LifeData["p12rpentominohasslers"]
Out[]=
In[]:=
CellularAutomatonPlot3D["GameOfLife",{$LifeData["p12rpentominohasslers"]["MatrixData"],0},24]
Out[]=
In[]:=
CellularAutomatonPlot3D["GameOfLife",{$LifeData["p12rpentominohasslers"]["MatrixData"],0},12]
Out[]=
In[]:=
#[[1,2]]&/@Most[ArrayRules[$LifeData["p12rpentominohasslers"]["MatrixData"]]]
Out[]=
{77,14,77,78,79,12,13,14,74,80,11,17,74,75,76,77,78,79,81,10,12,13,14,15,16,17,79,81,10,12,74,75,78,81,82,9,10,15,16,17,74,76,79,80,11,14,17,78,80,85,11,13,14,15,16,58,62,63,79,84,86,91,12,13,14,21,54,57,59,61,64,84,86,89,90,91,3,4,6,7,21,22,23,54,55,56,57,59,61,62,64,83,84,86,88,4,6,19,20,24,59,64,65,83,86,88,89,90,91,4,18,22,23,25,54,55,56,57,58,60,62,65,76,85,86,88,91,1,2,4,7,14,19,20,21,23,25,53,56,58,60,62,64,75,76,77,84,86,88,89,2,4,6,7,8,12,13,14,20,23,25,26,53,54,57,60,63,71,77,85,88,91,94,95,2,4,5,9,13,23,59,60,62,64,71,72,73,84,86,88,90,92,95,3,7,8,21,23,57,60,62,63,72,83,86,88,90,91,92,93,94,4,5,6,20,21,23,24,57,58,59,60,62,65,83,84,89,6,13,14,15,60,62,64,65,84,86,87,89,91,92,93,94,11,12,13,14,16,57,58,59,62,64,84,87,89,91,94,10,13,16,57,62,64,69,85,86,90,10,11,12,17,18,63,68,70,15,17,68,69,72,74,10,11,12,13,14,15,17,66,67,70,73,74,10,16,67,69,13,14,15,67,69,70,71,72,73,74,13,68,74,69,70,71,71}
In[]:=
ListLinePlot[Sort[%771]]
Out[]=
In[]:=
Select[Most[ArrayRules[$LifeData["p12rpentominohasslers"]["MatrixData"]]],#[[1,2]]<30&]
Out[]=
{{2,14}1,{3,12}1,{3,13}1,{3,14}1,{4,11}1,{4,17}1,{5,10}1,{5,12}1,{5,13}1,{5,14}1,{5,15}1,{5,16}1,{5,17}1,{6,10}1,{6,12}1,{7,9}1,{7,10}1,{7,15}1,{7,16}1,{7,17}1,{8,11}1,{8,14}1,{8,17}1,{9,11}1,{9,13}1,{9,14}1,{9,15}1,{9,16}1,{10,12}1,{10,13}1,{10,14}1,{10,21}1,{11,3}1,{11,4}1,{11,6}1,{11,7}1,{11,21}1,{11,22}1,{11,23}1,{12,4}1,{12,6}1,{12,19}1,{12,20}1,{12,24}1,{13,4}1,{13,18}1,{13,22}1,{13,23}1,{13,25}1,{14,1}1,{14,2}1,{14,4}1,{14,7}1,{14,14}1,{14,19}1,{14,20}1,{14,21}1,{14,23}1,{14,25}1,{15,2}1,{15,4}1,{15,6}1,{15,7}1,{15,8}1,{15,12}1,{15,13}1,{15,14}1,{15,20}1,{15,23}1,{15,25}1,{15,26}1,{16,2}1,{16,4}1,{16,5}1,{16,9}1,{16,13}1,{16,23}1,{17,3}1,{17,7}1,{17,8}1,{17,21}1,{17,23}1,{18,4}1,{18,5}1,{18,6}1,{18,20}1,{18,21}1,{18,23}1,{18,24}1,{19,6}1,{19,13}1,{19,14}1,{19,15}1,{20,11}1,{20,12}1,{20,13}1,{20,14}1,{20,16}1,{21,10}1,{21,13}1,{21,16}1,{22,10}1,{22,11}1,{22,12}1,{22,17}1,{22,18}1,{23,15}1,{23,17}1,{24,10}1,{24,11}1,{24,12}1,{24,13}1,{24,14}1,{24,15}1,{24,17}1,{25,10}1,{25,16}1,{26,13}1,{26,14}1,{26,15}1,{27,13}1}
Select[Most[ArrayRules[$LifeData["p12rpentominohasslers"]["MatrixData"]]],#[[1,2]]<30&]
In[]:=
GraphicsColumn[ArrayPlot/@CellularAutomaton["GameOfLife",{$LifeData["p12rpentominohasslers"]["MatrixData"],0},12]]
Out[]=