WOLFRAM

Wolfram 语言与系统参考资料中心

求同构

找出映射两个图的同构.

    
Wolfram Language code: g = [image];h = [image];
Find an isomorphism that maps two graphs:
Wolfram Language code: map = First[FindGraphIsomorphism[g, h]]
Style vertices based on map:
Wolfram Language code: Row[{g, Style[Column[Normal[map]], 16, FontFamily -> "Verdana"], HighlightGraph[h, Style[map[#], AnnotationValue[{g, #}, VertexStyle]]& /@ VertexList[g]]}, Spacer[20]]