1、比如，给出两个集合：
a={1,2,3};
b={1,3,2};
这两个集合明显是相等的，但是作为Mathematica里面的列表，它们却不相等。
a==b，结果是False。
2、判断a的元素是否都属于b：
MemberQ[b,#]&/@a
3、a的所有元素都属于b，说明a是b的子集：
AllTrue[a, MemberQ[b, #] &]
4、同样的，b也是a的子集：
AllTrue[b, MemberQ[a, #] &]
5、这样，就可以让Mathematica判断，给定的两个集合是否相等：
If[AllTrue[a,MemberQ[b,#]&]&&AllTrue[b,MemberQ[a,#]&],
Print["a=b"],Print["a≠b"]]
