Wolfram Cloud Page

In[]:=

With[{raHeight=4,raWidth=5,rules={6,8},opts=Sequence["Radius"->1/2,"Orientation"->"Both"],loss=LifetimeLoss[4]},With[{lossFn=loss[raHeight,raWidth,opts]},RuleArrayEvolutionGraph[raHeight,raWidth,ConstantArray[2,{raHeight,raWidth}],rules,lossFn,CenterArray[1,raWidth],opts,GraphLayout->"LayeredDigraphEmbedding","Mesh"->None]]]

Out[]=

In[]:=

With[{raHeight=4,raWidth=5,rules={8,6},opts=Sequence["Radius"->1/2,"Orientation"->"Both"],loss=LifetimeLoss[3]},With[{lossFn=loss[raHeight,raWidth,opts]},RuleArrayEvolutionGraph[raHeight,raWidth,ConstantArray[1,{raHeight,raWidth}],rules,lossFn,CenterArray[1,raWidth],opts,GraphLayout->"LayeredDigraphEmbedding","Mesh"->None]]]

Out[]=

In[]:=

With[{raHeight=5,raWidth=5,rules={8,6},opts=Sequence["Radius"->1/2,"Orientation"->"Both"],loss=LifetimeLoss[3]},With[{lossFn=loss[raHeight,raWidth,opts]},RuleArrayEvolutionGraph[raHeight,raWidth,ConstantArray[1,{raHeight,raWidth}],rules,lossFn,CenterArray[1,raWidth],opts,GraphLayout->"LayeredDigraphEmbedding","Mesh"->None]]]

Out[]=

In[]:=

With[{raHeight=5,raWidth=5,rules={8,6},opts=Sequence["Radius"->1/2,"Orientation"->"Both"],loss=LifetimeLoss[5]},With[{lossFn=loss[raHeight,raWidth,opts]},RuleArrayEvolutionGraph[raHeight,raWidth,ConstantArray[1,{raHeight,raWidth}],rules,lossFn,CenterArray[1,raWidth],opts,GraphLayout->"LayeredDigraphEmbedding","Mesh"->None]]]

Out[]=

In[]:=

With[{raHeight=8,raWidth=7,rules={6,8},opts=Sequence["Radius"->1/2,"Orientation"->"Both"],loss=LifetimeLoss[4]},With[{lossFn=loss[raHeight,raWidth,opts]},RuleArrayEvolutionGraph[raHeight,raWidth,SeedRandom[23424];RandomChoice[{1,2},{raHeight,raWidth}],rules,lossFn,CenterArray[1,raWidth],opts,GraphLayout->"LayeredDigraphEmbedding","Mesh"->None]]]

Out[]=