(Another) Attempt to Find Classes
(Another) Attempt to Find Classes
In[]:=
gres2x0=Import["/Users/sw/Dropbox/Physics/Data/22-24-2x0-summary.wxf"];
In[]:=
all2x0=Catenate[Values[gres2x0]];
In[]:=
Length[all2x0]
Out[]=
40405
In[]:=
gall2x0=GatherBy[all2x0,#FinalState&];
In[]:=
Length[gall2x0]
Out[]=
24016
In[]:=
ggall2x0=First/@GatherBy[First/@gall2x0,Sort[#FinalState]&];
In[]:=
Length[%]
Out[]=
23393
In[]:=
Select[ggall2x0,ConnectedHypergraphQ[#FinalState]&];
In[]:=
Length[%]
Out[]=
7996
In[]:=
con2x0=Select[all2x0,ConnectedHypergraphQ[#FinalState]&];
In[]:=
Length[%]
Out[]=
14567
In[]:=
%/Length[all2x0]
Out[]=
14567
40405
In[]:=
N[%]
Out[]=
0.360525
In[]:=
ucon2x0=First/@GatherBy[con2x0,Sort[#FinalState]&];
In[]:=
Length[ucon2x0]
Out[]=
7996
In[]:=
szucon2x0=GatherBy[ucon2x0,#Sizes&];
In[]:=
Length[%]
Out[]=
1401
In[]:=
Length/@%%
Out[]=
In[]:=
Head[szucon2x0[[1]]]
Out[]=
List
In[]:=
uucon2x0=Catenate[GatherBy[#,{Length[#FinalState],Length[Union[Flatten[#FinalState]]]}&]&/@szucon2x0];
In[]:=
Length[uucon2x0]
Out[]=
1743
In[]:=
Length/@uucon2x0
Out[]=
Exploring:
Exploring:
In[]:=
Graph[Rule@@@#FinalState]&/@uucon2x0[[2]]
Out[]=
In[]:=
Union[uucon2x0[[2]],SameTest(IsomorphicGraphQ[UndirectedGraph[Rule@@@#1["FinalState"]],UndirectedGraph[Rule@@@#2["FinalState"]]]&)];
In[]:=
Length[%]
Out[]=
3
In[]:=
Graph[Rule@@@#FinalState]&/@RandomSample[uucon2x0[[3]],20]
Out[]=
In[]:=
Union[%,SameTest(IsomorphicGraphQ[UndirectedGraph[#1],UndirectedGraph[#2]]&)];
In[]:=
Length[%]
Out[]=
16
In[]:=
%136
Out[]=
In[]:=
#Sizes&/@RandomSample[uucon2x0[[3]],10]
Out[]=
{{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16},{2,4,8,16}}
In[]:=
#Rule&/@RandomSample[uucon2x0[[3]],5]
Out[]=
In[]:=
EvolutionPicture2[#,{{0,0},{0,0}},7]&/@%140
Out[]=
More:
More:
With LHS as initial condition
With LHS as initial condition