Transpose[Array[a,{3,3,3}],{1,1,1}]
Transpose[Array[a,{3,3,3}],{1,1}]
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[400,{1}],ConstantList[400,0]},198]]];
hyppts=TableLineTablex+200,200-
2
c
+
2
x
,{x,-200,200,5},{c,0,100,20};
Show[Graphics[%,AspectRatioAutomatic]];
Show[%221,%];
Show[XCAGraphics[XCAEvolveList[Reversible[ElementaryRule[150]],{CenterList[800,{1}],ConstantList[800,0]},398]]];
pos=Position[FromCAState[CAEvolveList[Reversible[ElementaryRule[150]],{ConstantList[100,0],CenterList[100,{1}]},48]],1];
Take[pos,10]
dist[p_]:=(
2
#1〚1〛
-
2
#1〚2〛
&)[p-{2,50}]
dist/@pos;
Max[%244]
ListPlotSort[
%244
],PlotJoinedTrue;
ListPlot[Sort[%244],PlotJoinedTrue];
ListPlot
Sort[%244]
,PlotJoinedTrue;
edist[p_]:=(
2
#1〚1〛
+
2
#1〚2〛
&)[p-{2,50}]
edist/@pos;
ListPlot
Sort[%]
,PlotJoinedTrue;
posxx=Position[FromCAState[CAEvolveList[ElementaryRule[90],CenterList[100,{1}],48]],1];
distx[p_]:=(
2
#1〚1〛
-
2
#1〚2〛
&)[p-{1,50}]
distx/@%258;
ListPlot
Sort[%]
,PlotJoinedTrue;
posxx=Position[FromCAState[CAEvolveList[ElementaryRule[254],CenterList[100,{1}],48]],1];
distx/@%;
ListPlot
Sort[%]
,PlotJoinedTrue;