WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

同型写像を求める

2つのグラフをマップする同型写像を求める．

    
Wolfram Language code: g = [image];h = [image];
2つのグラフをマップする同型写像を求める：
Wolfram Language code: map = First[FindGraphIsomorphism[g, h]]
写像に基づいて頂点にスタイルを付ける：
Wolfram Language code: Row[{g, Style[Column[Normal[map]], 16, FontFamily -> "Verdana"], HighlightGraph[h, Style[map[#], AnnotationValue[{g, #}, VertexStyle]]& /@ VertexList[g]]}, Spacer[20]]