       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, EdgeColor -> Red] /.
({x_?NumericQ, y_?NumericQ} :> {y, x})
g2 = SetGraphOptions[ CompleteGraph, 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?