WOLFRAM

Wolfram Language & System Documentation Center

Convert to Matrix Representations of Graphs

    
Wolfram Language code: g = Graph[{12, 13, 23, 24, 34}, ImageSize -> 100]; h = DirectedGraph[CompleteGraph[4, ImageSize -> 100], "Acyclic"]; k = PetersenGraph[3, 2, ImageSize -> 100];
Wolfram Language code: graphs = {g, h, k};
Wolfram Language code: mat = {AdjacencyMatrix, IncidenceMatrix, KirchhoffMatrix}; style = {Background -> {None, {Hue[.25, .15, .9], GrayLevel[.9], GrayLevel[.9], GrayLevel[.9]}}, FrameStyle -> Directive[Thick, White], Dividers -> All, Spacings -> {1, 2}};
Wolfram Language code: Style[Grid[Join[{{"Graph", "Adjacency Matrix", "Incidence Matrix", "Kirchhoff Matrix"}}, Thread[Prepend[Outer[MatrixForm[#1[#2], TableSpacing -> {.5, .5}, TableAlignments -> Right]&, mat, graphs], graphs]]], style], FontFamily -> "Verdana"]