WOLFRAM NOTEBOOK

Gliders/Spaceships

[[ Includes giant object.... ]]]
In[]:=
Column/@Transpose[Table[Map[Labeled[ArrayPlot[#MatrixData,ImageSize->20Sqrt[Dimensions[#MatrixData]]],{#Year,#Period}]&,SortBy[First/@Map[tt,Values@GroupBy[Select[Values[$LifeData],#Class==="Spaceship"&&KeyExistsQ[#,"Period"]&],#Period&]],#Period&]],{tt,{MinimalBy[#,#["Year"]&]&,MinimalBy[#,Times@@Dimensions[#["MatrixData"]]&]&}}]]
Out[]=
{1989,2}
{1989,2}
,
{1989,3}
{1989,3}
,
{1969,4}
{1969,4}
,
{1991,5}
{2000,5}
,
{2000,6}
{2009,6}
,
{2000,7}
{2013,7}
,
{2002,8}
{2002,8}
,
{1992,9}
{2001,9}
,
{2004,10}
{2016,10}
,
{1972,12}
{2022,12}
,
{1997,15}
{1997,15}
,
{1995,16}
{1995,16}
,
{1971,20}
{2006,20}
,
{2020,21}
{2020,21}
,
{1998,30}
{1998,30}
,
{2014,36}
{2014,36}
,
{1991,96}
{2017,96}
,
{2020,192}
{2020,192}
,
{2020,240}
{2020,240}

Guns

Visualization

​
ArrayPlot3D::ldata: caa is not a valid dataset or list of datasets.

Visualization

Change colors
Add a row of padding by default

Object Dependencies

Show only “achievement osciallators”

Try 2

Find independent parts through whole cycle
Graphs should initially be going down with time, etc.
Airy structure evolution graph implies independence of pieces, suggesting human construction......
Better: make little rectangles for each node
And make the sizes consistent
QUESTION: are we getting full periods in each case?

Causal Graphs

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.