In[]:=
RulePlot[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}]]
Out[]=
In[]:=
WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}},Automatic,10,"StatesPlotsList"]
Out[]=
In[]:=
EnumerateWolframModelRules[{{1,2}}{{2,2}}]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{{0,0}}},4,"BranchialGraphStructure"]#&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]]
Out[]=
In[]:=
distincts=First/@GatherBy[ParallelMapMonitored[(WolframModelTest[#,Automatic]["EvolutionObject"]/@{"CausalGraph","FinalStatePlot"})#&,Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"]],#[[1,1]]&];
In[]:=
Length[%]
Out[]=
605
In[]:=
InteractiveListSelectorSW[SeedRandom[2426];RandomSample[distincts,8*6]]
Out[]=