Re: GraphSum ignores edge colors?
- To: mathgroup at smc.vnet.net
- Subject: [mg49722] Re: GraphSum ignores edge colors?
- From: sean_incali at yahoo.com (sean kim)
- Date: Thu, 29 Jul 2004 07:44:46 -0400 (EDT)
- References: <ce2g8p$8t9$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I have learned from the combinatorica website that the graphsum thing
is a kind of bug.
so there you go, I guess.
though it seems like there should be a way around it...
sean
sean_incali at yahoo.com (sean kim) wrote in message news:<ce2g8p$8t9$1 at smc.vnet.net>...
> 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]