Re: graphs and top most nodes
- To: mathgroup at smc.vnet.net
- Subject: [mg49645] Re: graphs and top most nodes
- From: BobHanlon at aol.com
- Date: Mon, 26 Jul 2004 04:01:49 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["DiscreteMath`Combinatorica`"];
Table[Show[ShowGraph[CompleteGraph[n] ,
DisplayFunction:>Identity] /.
({x_?NumericQ,y_?NumericQ}:>{y,x}),
DisplayFunction->$DisplayFunction,
PlotRange->All],{n,3,7}];
Bob Hanlon
> In a message dated Sun, 25 Jul 2004 07:15:57 +0000 (UTC),
> sean_incali at yahoo.com writes:<< DiscreteMath`Combinatorica`
>
> ShowGraph[CompleteGraph[3]]
> ShowGraph[CompleteGraph[4]]
> ShowGraph[CompleteGraph[5]]
> ShowGraph[CompleteGraph[6]]
> ShowGraph[CompleteGraph[7]]
>
> shows 5 fully connected graphs.
>
> and it kinda suggests to me that there is no real rule for defining
> the location of the the top most node? I mean, the top most node isn't
> centered.
>
> how do I make it so that the top node is always at the center? is that
> possible?
>