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=TableLineTablex+200,200-+,{x,-200,200,5},{c,0,100,20};
2
c
2
x
Show[Graphics[%,AspectRatioAutomatic]];
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_]:=(-&)[p-{2,50}]
2
#1〚1〛
2
#1〚2〛
dist/@pos;
Max[%244]
ListPlotSort[
%244
],PlotJoinedTrue;ListPlot[Sort[%244],PlotJoinedTrue];
ListPlot
Sort[%244]
,PlotJoinedTrue;edist[p_]:=(+&)[p-{2,50}]
2
#1〚1〛
2
#1〚2〛
edist/@pos;
ListPlot
Sort[%]
,PlotJoinedTrue;posxx=Position[FromCAState[CAEvolveList[ElementaryRule[90],CenterList[100,{1}],48]],1];
distx[p_]:=(-&)[p-{1,50}]
2
#1〚1〛
2
#1〚2〛
distx/@%258;
ListPlot
Sort[%]
,PlotJoinedTrue;posxx=Position[FromCAState[CAEvolveList[ElementaryRule[254],CenterList[100,{1}],48]],1];
distx/@%;
ListPlot
Sort[%]
,PlotJoinedTrue;