GraphDu
In[]:=
$SetReplaceGitSHA
Out[]=
299274283dde6d86b6e660a36f64beaed7d73269*
In[]:=
LineGraph[Graph[{12,23}],VertexLabelsAutomatic]
Out[]=
In[]:=
Quit
In[]:=
<<SetReplace`
In[]:=
WolframModel[{{{1,2}}{{1,2,1}},{{1,2}}{{1,2,1,2}},{{1,2,1}}{{1,3},{3,2}},{{1,2,1,2}}{{1,3},{3,2}}},{{1,2}},5]〚1〛
Out[]=
CreatorEvents{0,1,2,3,3,4,4,5,6,7,8,9,10,11,12,13,13,14,14,15,15,16,16,17,17,18,18,19,19,20,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52},DestroyerEvents{{1,2},{3},{4},{5,6},{7,8},{9,10},{11,12},{13},{14},{15},{16},{17},{18},{19},{20},{21,22},{23,24},{25,26},{27,28},{29,30},{31,32},{33,34},{35,36},{37,38},{39,40},{41,42},{43,44},{45,46},{47,48},{49,50},{51,52},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{}},Generations{0,1,1,2,2,2,2,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5},AtomLists{{1,2},{1,2,1},{1,2,1,2},{1,3},{3,2},{1,4},{4,2},{1,3,1},{1,3,1,3},{3,2,3},{3,2,3,2},{1,4,1},{1,4,1,4},{4,2,4},{4,2,4,2},{1,5},{5,3},{1,6},{6,3},{3,7},{7,2},{3,8},{8,2},{1,9},{9,4},{1,10},{10,4},{4,11},{11,2},{4,12},{12,2},{1,5,1},{1,5,1,5},{5,3,5},{5,3,5,3},{1,6,1},{1,6,1,6},{6,3,6},{6,3,6,3},{3,7,3},{3,7,3,7},{7,2,7},{7,2,7,2},{3,8,3},{3,8,3,8},{8,2,8},{8,2,8,2},{1,9,1},{1,9,1,9},{9,4,9},{9,4,9,4},{1,10,1},{1,10,1,10},{10,4,10},{10,4,10,4},{4,11,4},{4,11,4,11},{11,2,11},{11,2,11,2},{4,12,4},{4,12,4,12},{12,2,12},{12,2,12,2}},Rules{{{1,2}}{{1,2,1}},{{1,2}}{{1,2,1,2}},{{1,2,1}}{{1,3},{3,2}},{{1,2,1,2}}{{1,3},{3,2}}},MaxCompleteGeneration5,TerminationReasonMaxGenerationsLocal,EventRuleIDs{1,2,3,4,1,2,1,2,1,2,1,2,3,4,3,4,3,4,3,4,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2}
In[]:=
WolframModel[{{{1,2}}{{1,2,1}},{{1,2}}{{1,2,1,2}},{{1,2,1}}{{1,3},{3,2}},{{1,2,1,2}}{{1,3},{3,2}}},{{1,2}},7,"AllExpressions"]//WolframModelPlot
Out[]=
In[]:=
Quit
In[]:=
<<SetReplace`
In[]:=
RulePlot[WolframModel[{{1},{1,2}}{{1,2},{2}}]]
Out[]=
In[]:=
WolframModelPlot[{{1},{1,2},{2,3},{3,5},{2,4},{4,6},{5,7},{6,7},{7,8}}]
Out[]=
In[]:=
WolframModel[{{1},{1,2}}{{1,2},{2}},{{1},{1,2},{2,3},{3,5},{2,4},{4,6},{5,7},{6,7},{7,8}},Infinity]["StatesPlotsList",ImageSize400]
Out[]=
,
,
,
,
,
In[]:=
evolution=WolframModel[{{1},{1,2}}{{1,2},{2}},{{1},{1,2},{2,3},{3,5},{2,4},{4,6},{5,7},{6,7},{7,8}},Infinity]
Out[]=
WolframModelEvolutionObject
In[]:=
evolution[[1]]
Out[]=
CreatorEvents{0,0,0,0,0,0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9},DestroyerEvents{{1},{1},{2},{4},{3},{5},{6},{7},{8,9},{},{2,3},{},{4},{},{5},{},{6},{},{7},{},{8},{},{9},{},{},{},{}},Generations{0,0,0,0,0,0,0,0,0,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5},AtomLists{{1},{1,2},{2,3},{3,5},{2,4},{4,6},{5,7},{6,7},{7,8},{1,2},{2},{2,3},{3},{2,4},{4},{3,5},{5},{4,6},{6},{5,7},{7},{6,7},{7},{7,8},{8},{7,8},{8}},Rules{{1},{1,2}}{{1,2},{2}},MaxCompleteGeneration5,TerminationReasonFixedPoint,EventRuleIDs{1,1,1,1,1,1,1,1,1}
In[]:=
evolution["EventsList"]〚All,2〛/.n_Integerevolution["AllExpressions"]〚n〛//Column
Out[]=
{{1},{1,2}}{{1,2},{2}} |
{{2,3},{2}}{{2,3},{3}} |
{{2,4},{2}}{{2,4},{4}} |
{{3,5},{3}}{{3,5},{5}} |
{{4,6},{4}}{{4,6},{6}} |
{{5,7},{5}}{{5,7},{7}} |
{{6,7},{6}}{{6,7},{7}} |
{{7,8},{7}}{{7,8},{8}} |
{{7,8},{7}}{{7,8},{8}} |
In[]:=
WolframModelPlot[evolution["AllExpressions"]]
Out[]=
In[]:=
WolframModel[{{1,2}}{{1,3},{3,2}},{{1,1}},5]["StatesPlotsList"]
Out[]=
,
,
,
,
,