RulePlot[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}]]
In[]:=
Out[]=
WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}},Automatic,10,"StatesPlotsList"]
In[]:=
Out[]=
EnumerateWolframModelRules[{{1,2}}{{2,2}}]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{{0,0}}},4,"BranchialGraphStructure"]#&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]]
In[]:=
Out[]=
distincts=First/@GatherBy[ParallelMapMonitored[(WolframModelTest[#,Automatic]["EvolutionObject"]/@{"CausalGraph","FinalStatePlot"})#&,Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"]],#[[1,1]]&];
In[]:=
Length[%]
In[]:=
605
Out[]=
InteractiveListSelectorSW[SeedRandom[2426];RandomSample[distincts,8*6]]
In[]:=
Out[]=
WolframModel[{{{1,2},{1,3}}{{2,4},{4,2},{3,2}}},Automatic,15,"StatesPlotsList"]
In[]:=
Out[]=
ParallelMapMonitored[WolframModel[#,Automatic,10,"CausalGraph"]&,{{{1,2},{1,3}}{{2,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{2,3}}{{2,3},{3,1},{4,1}},{{1,2},{2,3}}{{4,5},{4,1},{3,5}}}]
In[]:=
Out[]=
ParallelMapMonitored[WolframModel[#,Automatic,12,"CausalGraph"]&,{{{1,2},{1,3}}{{2,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{2,3}}{{2,3},{3,1},{4,1}},{{1,2},{2,3}}{{4,5},{4,1},{3,5}}}]
In[]:=
Out[]=
WolframModel[{{1,2},{2,3}}{{4,5},{4,1},{3,5}},Automatic,30,"CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%,AspectRatio1/2]
In[]:=
Out[]=
{#,Automatic,Length[WolframModelTest[#,Automatic]["Sizes"]]}&/@{{{1,2},{1,3}}{{2,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,4},{4,2},{3,2}},{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{2,3}}{{2,3},{3,1},{4,1}},{{1,2},{2,3}}{{4,5},{4,1},{3,5}}}
In[]:=
Out[]=
ParallelMapMonitored[Labeled[WolframModel[#1,#2,#3,{"FinalStatePlot","CausalGraph"}],RulePlot[WolframModel[#1],ImageSizeTiny]]&@@#&,{{{{1,2},{1,3}}{{2,4},{4,2},{3,2}},Automatic,12},{{{1,2},{2,3}}{{1,4},{4,2},{3,2}},Automatic,14},{{{1,2},{2,3}}{{1,3},{3,2},{2,4}},Automatic,15},{{{1,2},{2,3}}{{2,3},{3,1},{4,1}},Automatic,14},{{{1,2},{2,3}}{{4,5},{4,1},{3,5}},Automatic,23}}]
In[]:=
Out[]=
{{{{1,2},{1,3}}{{2,4},{4,2},{3,2}},Automatic,12},{{{1,2},{2,3}}{{1,4},{4,2},{3,2}},Automatic,14},{{{1,2},{2,3}}{{1,3},{3,2},{2,4}},Automatic,15},{{{1,2},{2,3}}{{2,3},{3,1},{4,1}},Automatic,14},{{{1,2},{2,3}}{{4,5},{4,1},{3,5}},Automatic,23}}[[{-1,-2,2,3}]]
In[]:=
Out[]=
ParallelMapMonitored[With[{eo=WolframModel[#1,#2,#3]},{Labeled[eo["FinalStatePlot",ImageSizeTiny],RulePlot[WolframModel[#1]]],eo["CausalGraph"]}]&@@#&,{{{{1,2},{2,3}}{{4,5},{4,1},{3,5}},Automatic,23},{{{1,2},{2,3}}{{2,3},{3,1},{4,1}},Automatic,14},{{{1,2},{2,3}}{{1,4},{4,2},{3,2}},Automatic,14},{{{1,2},{2,3}}{{1,3},{3,2},{2,4}},Automatic,15}}]
In[]:=
Out[]=
GridGraph[Partition[%155,2],ImageSizeFull]
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{{0,0}}},4,"CausalGraphStructure"]#&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[{WolframModel[#,{{0,0}},5,{"FinalStatePlot","CausalGraph"}],Function[u,MultiwaySystem[WolframModel[#],{{{0,0}}},4,u]]/@{"StatesGraphStructure","CausalGraphStructure","BranchialGraphStructure"}}#&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]]
In[]:=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
Out[]=
ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{0,0}},5,"BranchialGraphStructure"]&,{{{1,2}}{{2,1},{2,3}},{{1,2}}{{1,1},{1,3}},{{1,2}}{{2,1},{3,1}},{{1,2}}{{2,3},{3,1}},{{1,2}}{{2,3},{3,4}},{{1,2}}{{3,3},{2,3}}}]
In[]:=
Out[]=
XYifyRule[{{1,2}}{{2,1},{2,3}}]
In[]:=
{{x,y}}{{y,x},{y,z}}
Out[]=
MultiwaySystem[WolframModel[{{x,y}}{{y,x},{y,z}}],{{0,0}},5,"StatesGraphStructure"]
In[]:=
Out[]=
Graph[MultiwaySystem[WolframModel[{{x,y}}{{y,x},{y,z}}],{{0,0}},5,"CausalGraphStructure"]
Out[]=
Graph[%,GraphLayout"SpringElectricalEmbedding"]
In[]:=
Out[]=
Table[Graph[MultiwaySystem[WolframModel[{{x,y}}{{y,x},{y,z}}],{{0,0}},t,"BranchialGraphStructure"],ImageSizeTiny],{t,2,6}]
In[]:=
Out[]=
Table[Graph[MultiwaySystem[WolframModel[{{1,2}}{{2,3},{3,4}}],{{0,0}},t,"BranchialGraphStructure"],ImageSizeTiny],{t,2,6}]
In[]:=
Out[]=
WolframModel[{{1,2}}{{2,3},{3,4}},{{0,0}},6]["StatesPlotsList",ImageSize{70,UpTo[40]}]
In[]:=
Out[]=
WolframModel[{{1,2}}{{2,3},{3,4}},{{0,0}},6]["StatesPlotsList",ImageSize{70,UpTo[40]}]
XYifyRule[{{1,2}}{{2,3},{3,4}}]
In[]:=
{{x,y}}{{y,z},{z,w}}
Out[]=