Question: How can I make multi-graphs?

April 22 2011 lukegeo 0
Maple
0

Hi! I have been searching the forum, but with no luck.  How do I get maple to handle graphs with multiple edges between vertices?  I can't seem to find a function for this.  Does one exist?  I tried to do this by coloring the edges, but they just get re-colored.

EE1:=[1, 2], [3, 1], [2, 3], [4, 5], [6, 4], [5, 6], [7, 8], [9, 7], [8, 9];
EE2:=[2, 3], [4, 2], [3, 4], [5, 6], [7, 5], [6, 7], [1, 8], [9, 1], [8, 9];
EE3:=[3, 4], [5, 3], [4, 5], [6, 7], [8, 6], [7, 8], [1, 2], [9, 1], [2, 9];
G1:=Graph( {EE2,EE1,EE3});DrawGraph(G1);
for i from 1 to nops([EE1]) do HighlightEdges(G1,[EE1][i],red); od;
for i from 1 to nops([EE2]) do HighlightEdges(G1,[EE2][i],blue); od;
for i from 1 to nops([EE3]) do HighlightEdges(G1,[EE3][i],green); od;
DrawGraph(G1);

 

Please Wait...