spsu[,{}]:={{}};spsu[foo_,set:{i_,___}]:=Join@@Function[s,Prepend[#,s]&/@sspu[Select[foo,Complement[#,Complement[set,s]]={}&],Complement[set,s]]]/@案例[foo,{i,___}];
stableSets[u_,Q_]:=如果[Length[u]===0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets-[DeleteCases[u、r_/;r==w|Q[r,w]|Q[w,r]];
csm[s_]:=使用[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]>0]&]},如果[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[1]]]]];
密度[c]:=总数[(长度[#]-1&)/@c]-长度[Union@@c];
hyall[n_]:=选择[stableSets[Select[Subsets[Range[n]],Length[#]>1&],或[SubsetQ[#1,#2],Length[Intersection[#1、#2]]>1]&],And[Union@@#=Range[n],Length[csm[#]]==1,density[#]=-1]&];
chromSF[g_]:=总和[m[Sort[Length/@stn,Greater]],{stn,spsu[Select[Subsets[Union@@g],Select[DeleteCases[g,{_}],Function[ed,Complement[ed,#]={}]=={}&],Union@@g]}];
表[Length[Union[chromSF/@If[n==1,{{1}},hyall[n]]],{n,5}]
|