Chapter 9, Section 3

Init


r122a.eps


r122b.eps


2d.1.eps


2d.2.eps


2dslice.eps


paddle.eps


entropy.eps


inits.eps


closed.eps


r37long.eps

mkpictx[rn_,ninit_,len_,ct_,list_]:=Module[{xx,xx1,xx2,xg},xx1=FromCAState[CAEvolve[Reversible[ElementaryRule[rn]],list,ninit]];xx2=FromCAState[CAEvolve[Reversible[ElementaryRule[rn]],list,ninit+1]];xx=XCAEvolveList[Reversible[ElementaryRule[rn]],{xx1,xx2},lenct];xg=FramedGraphicsRow[Table[CAGraphics[xx,Window{{i,i+len},{-50,50}}],{i,0,len(ct-1),len}]];CAFree[xx];LabelWrapper[xg,NKSStringForm["steps ``-``",ninit,ninit+lenct],-0.048]]
Show[GraphicsRow[(mkpictx[37,#1,1500,2,{CenterList[100,SeedRandomList[3473,14]],CenterList[100,SeedRandomList[4384,14]]}]&)/@{0,5000,10000,20000,100000,200000},0.005]];
PSWrite["r37long.eps",%,1.074FullPage];

r37rad.eps


Detritus
