Erich,
Use the PlotRange Option.
<<DiscreteMath`Combinatorica`
ShowGraph[CompleteGraph[10], VertexLabel -> KSubsets[Range[5], 3],
PlotRange -> All]
If we want to give the PlotRange explicitly, we have to remember that
Combinatorica scales the plot points to fit in the square {0,0} to {1,1} and
we must make sure the AspectRatio is Automatic.
ShowGraph[CompleteGraph[10], VertexLabel -> KSubsets[Range[5], 3],
AspectRatio -> Automatic,
PlotRange -> {{-0.05, 1.4}, {-0.05, 1.1}}];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Erich Neuwirth [mailto:erich.neuwirth at univie.ac.at]
To: mathgroup at smc.vnet.net
With
<<DiscreteMath`Combinatorica`
I would like to label the vertices of a graph with sequences, like this.
ShowGraph[CompleteGraph[10], VertexLabel -> KSubsets[Range[5], 3]]
The problem is that the label get chopped off at the right margin.
What is an easy solution for getting the labels fully readable in this case?