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]