GraphSum ignores edge colors?
- To: mathgroup at smc.vnet.net
- Subject: [mg49655] GraphSum ignores edge colors?
- From: sean_incali at yahoo.com (sean kim)
- Date: Mon, 26 Jul 2004 04:01:59 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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
sean
code that was ran. (thanks to Bob Hanlhon for the centering top most
node)
<< 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]