|
MATHEMATICA
|
chromSF[g_]:=Sum[m[Sort[Length/@stn, Greater]], {stn, spsu[Select[Subsets[Union@@g], Select[DeleteCases[g, {_}], Function[ed, Complement[ed, #]=={}]]=={}&], Union@@g]}];
stableSets[u_, Q_]:=If[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]], Q]]]];
hyps[n_]:=Select[stableSets[Rest[Subsets[Range[n]]], SubsetQ], Union@@#==Range[n]&];
Table[Length[Union[chromSF/@hyps[n]]], {n, 5}]
|