Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
Obando`CAGenetics`
RuleSplice |
|
| | ||||
Details and Options
Examples
(1)
Basic Examples
(1)
▪
We splice rule 45 from the ECA into the Identity Rule from rule space where k = 3, r = 1.
In[1]:=
RulePlot[CellularAutomaton[45]]RulePlotCellularAutomaton
[45,2,1,IdentityRule[3,1],3,1],3,1
 | RuleSplice |
Out[1]=
Out[1]=
▪
We splice rule 30 from the ECA into the Identity Rule from rule space where k = 3, r = 1.
In[2]:=
ArrayPlot[CellularAutomaton[{30,2,1},{{1},0},{50,All}],PlotLabel"Rule 30 in the ECA"]ArrayPlotCellularAutomaton
[30,2,1,IdentityRule[3,1],3,1],3,1,{{1},0},{50,All},PlotLabel"Rule 30 in k=3, r=1, ("<>ToString
[30,2,1,IdentityRule[3,1],3,1]<>")"
 | RuleSplice |
| RuleSplice |
Out[2]=
Out[2]=
▪
We splice rule 110 and from the ECA into the Identity Rule from rule space where k = 3, r = 1.
In[3]:=
ArrayPlot[CellularAutomaton[{110,2,1},{{1},0},{50,All}],PlotLabel"Rule 110 in the ECA"]ArrayPlotCellularAutomaton
[110,2,1,IdentityRule[3,1],3,1],3,1,{{1},0},{50,All},PlotLabel"Rule 110 in k=3, r=1, ("<>ToString
[110,2,1,IdentityRule[3,1],3,1]<>")"
| RuleSplice |
| RuleSplice |
Out[3]=
Out[3]=
▪
We splice rule 124 from the ECA into the Identity Rule in rule space k=4, r=1, we then find its 2 Modulo-Additive Equivalent rule to which we splice rule 110 from the ECA.
In[4]:=
ArrayPlotCellularAutomaton
124,2,1,MAERule
[110,2,1,IdentityRule[4,1],4,1],4,1,2,4,1,4,1,RotateRight[ReplacePart[Join[Table[0,50],Table[2,50]],{11,1003}],1],{100,{-50,50}}ArrayPlotCellularAutomaton
124,2,1,MAERule
[110,2,1,IdentityRule[4,1],4,1],4,1,2,4,1,4,1,RSeed[4],{100,{-50,50}}
| RuleSplice |
| RuleSplice |
| RuleSplice |
| RuleSplice |
Out[4]=
Out[4]=
""