chromSF[g_]：=Sum[m[Sorth[Length/@stn，Greater]]，{stn，spsu[Select[Subsets[Union@g]，Select[DeleteCases[g，{_}]，Function[ed，Complement[ed，#]={}]]={}&]，Union@g]}]；
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]]；
hyps[n_]：=选择[stableSets[Rest[Subsets[Range[n]]]，SubsetQ]，Union@@#=Range[n]&]；
表[长度[Union[chromSF/@hyps[n]]，{n，5}]
