Multi Graphs

[Keerti_Vardhan]

1. Can someone tell me why I am not getting a multi graph by typing the following command?

GraphPlot[{{0, 2}, {2, 0}}//MatrixForm]


2. For a given multi graph I know how to find its Adjacency Matrix but I am unable to draw a multi graph corresponding to a given matrix. Please help.

[Ken_Levasseur]

The expression {{0, 2}, {2, 0}} is already a matrix, and MatrixForm doesn't help here.

The entries in a matrix that defines a graph are taken to be weights, not numbers of edges. I've used this function to draw multigraphs. It assumes that the matrix entries are nonnegative integers:

Code: Select all

MultiEdgeList[g_] := Module[{edgelist = {}},
  NestWhile[(edgelist = Join[edgelist, EdgeList[#]];
     Map[Max[0, # - 1] &, #, {2}]) &, g, (Plus @@ Flatten[#] > 0) &];
  Map[Rule @@ # &, edgelist]]


This will then draw the graph I think you expect to see:

Code: Select all

GraphPlot[MultiEdgeList[{{0, 2}, {2, 0}}], DirectedEdges -> True]

Ken Levasseur
UMass Lowell

[Keerti_Vardhan]

Dear Ken_Levasseur
Thanks for your reply. Later I found following command to plot multi graphs
GraphPlot[{{0,2},{2,0}},MultiedgeStyle -> True]

Kindly let me know the purpose of your first code i.e.
MultiEdgeList[g_] := Module[{edgelist = {}},NestWhile[(edgelist = Join[edgelist, EdgeList[#]];
Map[Max[0, # - 1] &, #, {2}]) &, g, (Plus @@ Flatten[#] > 0) &];
Map[Rule @@ # &, edgelist]].

I am unable to use this code on my computer.

Regards
Keerti Vardhan