MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

GraphSum ignores edge colors?

  • To: mathgroup at
  • Subject: [mg49655] GraphSum ignores edge colors?
  • From: sean_incali at (sean kim)
  • Date: Mon, 26 Jul 2004 04:01:59 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

hello group,

How Come GraphSum ignores the color diretives for the edges that are
defined by SetGraphOptions?

How do I make a multigraph with the edge color directives intact? ( or
any other directives for edges and vertices for that matter)

And how come the g1,g2,g3 are shown as ...Graph:<3, 3, Undirected>-

instead of Graph:<3, 3, Undirected>-  ?

Thanks for any insights in advance 


code that was  ran. (thanks to Bob Hanlhon for the centering top most

<< DiscreteMath`Combinatorica`
<< Graphics`Graphics`

g1 = SetGraphOptions[CompleteGraph[3], EdgeColor -> Red] /.
({x_?NumericQ, y_?NumericQ} :> {y, x})
g2 = SetGraphOptions[ CompleteGraph[3], EdgeColor -> Blue] /.
({x_?NumericQ, y_?NumericQ} :> {y, x})
g3 = GraphSum[g1, g2];

p1 = ShowGraph[g1, DisplayFunction -> Identity];
p2 = ShowGraph[g2, DisplayFunction -> Identity];
p3 = ShowGraph[g3, DisplayFunction -> Identity];

DisplayTogetherArray[p1, p2, p3 , DisplayFunction -> $DisplayFunction]

  • Prev by Date: Re: graphs and top most nodes
  • Next by Date: Re: Re: If-statement problems
  • Previous by thread: Re: Q: extract all k-tuple from a list of n elements
  • Next by thread: Re: GraphSum ignores edge colors?