In[]:=
Graph[Rule@@@WolframModel[{{{0,1},{0,2},{0,3}}{{4,5},{5,4},{4,6},{6,4},{5,6},{6,5},{4,1},{5,2},{6,3},{1,6},{3,4}}},{{0,0},{0,0},{0,0}},4]]
Out[]=
Even More Minimal (Previous Version)
Even More Minimal (Previous Version)
In[]:=
WolframModel[{{{0,1},{0,2},{0,3}}{{4,5},{5,4},{4,6},{6,4},{5,6},{6,5},{4,1},{5,2},{6,3},{1,6},{3,4}}},{{0,0},{0,0},{0,0}},4]
Out[]=
WolframModel[{{{0,1},{0,2},{0,3}}{{4,5},{5,4},{4,6},{6,4},{5,6},{6,5},{4,1},{5,2},{6,3},{1,6},{3,4}}}]
UpdatedStatesList
{“UpdatedState”, t}
WolframModel[rule,init,t]
WolframModel[rule,init,{t,xrange}]
WolframModel[rule,init,<|"Updates"t,XXXXXX|>]
WolframModel[rule,init,<|"Updates"{{t}},XXXXXX|>]
In[]:=
CellularAutomaton[30,{{1},0},{{2}}]
Out[]=
{{1,1,0,0,1}}
In[]:=
CellularAutomaton[30,{{1},0},{{{2}}}]
Out[]=
{1,1,0,0,1}
RulePlot[WolframModel[XXXX]]
{"prop",params}
CriticalPairCompletion[WolframModel[{{{0,1},{0,2},{0,3}}{{4,5},{5,4},{4,6},{6,4},{5,6},{6,5},{4,1},{5,2},{6,3},{1,6},{3,4}}}]]WolframModel[XXXXX]
CriticalPairCompletion[{"AAA""BB",XXXXX}]{XXXX}
Verbatim[XXXXX]
WolframModelPatternRules[XXXXX]XXXX
New Version
New Version
In[]:=
ReplaceRepeated[{{0,0},{0,0},{0,0}},{OrderlessPatternSequence[{v0_,v1_},{v0_,v2_},{v0_,v3_},rest___]}Module[{v4,v5,v6},Join[{{v4,v5},{v5,v4},{v4,v6},{v6,v4},{v5,v6},{v6,v5},{v4,v1},{v5,v2},{v6,v3},{v1,v6},{v3,v4}},{rest}]],MaxIterations10]
Out[]=
In[]:=
Graph[Apply[Rule,%,1]]
Out[]=
In[]:=
Replace[{{0,0},{0,0},{0,0}},{OrderlessPatternSequence[{v0_,v1_},{v0_,v2_},{v0_,v3_},rest___]}Module[{v4,v5,v6},Join[{{v4,v5},{v5,v4},{v4,v6},{v6,v4},{v5,v6},{v6,v5},{v4,v1},{v5,v2},{v6,v3},{v1,v6},{v3,v4}},{rest}]]]
Out[]=
{{v4$5726,v5$5726},{v5$5726,v4$5726},{v4$5726,v6$5726},{v6$5726,v4$5726},{v5$5726,v6$5726},{v6$5726,v5$5726},{v4$5726,0},{v5$5726,0},{v6$5726,0},{0,v6$5726},{0,v4$5726}}
In[]:=
Replace[{OrderlessPatternSequence[{v0_,v1_},{v0_,v2_},{v0_,v3_},rest___]}Module[{v4,v5,v6},Join[{{v4,v5},{v5,v4},{v4,v6},{v6,v4},{v5,v6},{v6,v5},{v4,v1},{v5,v2},{v6,v3},{v1,v6},{v3,v4}},{rest}]]][{{0,0},{0,0},{0,0}}]
Out[]=
{{v4$8880,v5$8880},{v5$8880,v4$8880},{v4$8880,v6$8880},{v6$8880,v4$8880},{v5$8880,v6$8880},{v6$8880,v5$8880},{v4$8880,0},{v5$8880,0},{v6$8880,0},{0,v6$8880},{0,v4$8880}}
In[]:=
NestList[Replace[{OrderlessPatternSequence[{v0_,v1_},{v0_,v2_},{v0_,v3_},rest___]}Module[{v4,v5,v6},Join[{{v4,v5},{v5,v4},{v4,v6},{v6,v4},{v5,v6},{v6,v5},{v4,v1},{v5,v2},{v6,v3},{v1,v6},{v3,v4}},{rest}]]],{{0,0},{0,0},{0,0}},10]
Out[]=
Even More Minimal
Even More Minimal