In[]:=
GetData[filename_]:=Get[FileNameJoin[{$Dropbox,"Physics/SW2004Material/Data/",filename}]]
In[]:=
GetData["NSOOrderedNetsTo4.m"];GetData["AllOrderedNetsTo4.m"];
In[]:=
Length/@NSOOrderedNetsTo4
Out[]=
{4,32,169,2241}
In[]:=
Length/@AllOrderedNetsTo4
Out[]=
{4,38,308,4026}
In[]:=
HairNumber[OrderedNet[{_,spec_}]]:=Length@Cases[spec,_h,{2}]
In[]:=
Table[Select[HairNumber[#]i&]@Catenate@NSOOrderedNetsTo4,{i,1,8}]
Out[]=
