Re: changing style of vertices for ShowGraph with Combinatorica

• To: mathgroup at smc.vnet.net
• Subject: [mg86312] Re: [mg86270] changing style of vertices for ShowGraph with Combinatorica
• From: "J. McKenzie Alexander" <jalex at lse.ac.uk>
• Date: Sat, 8 Mar 2008 05:41:14 -0500 (EST)
• References: <200803070729.CAA19892@smc.vnet.net>

```Take a look at GraphPlot, the graph rendering function that is built
into the Mathematica kernel.  I switched from using ShowGraph to
GraphPlot after realising that it was (a) faster and (b) easier to
customise.  Here's what you want:

GraphPlot[
Cycle[3],
Method -> None,
EdgeRenderingFunction -> ({Black, Line[#1]} &),
VertexRenderingFunction -> ({EdgeForm[{Thickness[0.005], Red}],
Yellow,
Disk[#1, 0.04]} &)
]

You need to specify Method->None, otherwise GraphPlot will override
the specified positions of the vertices in the graph and use its own
default vertex positioning algorithm.

VertexRenderingFunction is what you need to define in order to
customise the appearance of the vertices.

I provided a definition of EdgeRenderingFunction just so that the
edges are rendered in the same way as ShowGraph.

Cheers,

Jason

--
J. McKenzie Alexander
Department of Philosophy, Logic and Scientific Method
London School of Economics and Political Science
Houghton Street, London WC2A 2AE

On 7 Mar 2008, at 07:29, Murray Eisenberg wrote:

> With Mathematica 6, I can change the default style (medium black disk)
> for rendering the vertices of a Combinatorica Graph like this:
>
>   Needs["Combinatorica`"]
>
>   g = Cycle[3];
>   ShowGraph[g, VertexStyle -> Disk[Large], VertexColor -> Red]
>
> But how can I, for example, change the vertex style so it is, say, a
> large yellow disk with a thick red boundary?  Or even just change it
> to
> be a circle?  I tried "obvious" things like the following, but they
> cause errors:
>
>   ShowGraph[g, VertexStyle -> Graphics[Circle[], ImageSize -> 20]]
>
> --
> Murray Eisenberg                     murray at math.umass.edu
> Mathematics & Statistics Dept.
> Lederle Graduate Research Tower      phone 413 549-1020 (H)
> University of Massachusetts                413 545-2859 (W)
> 710 North Pleasant Street            fax   413 545-1801
> Amherst, MA 01003-9305
>

Please access the attached hyperlink for an important electronic communications disclaimer: http://www.lse.ac.uk/collections/secretariat/legal/disclaimer.htm

```

• Prev by Date: BeginPackage and \$ContextPath Blues (6.0.2)
• Next by Date: Re: Re: Re: Version 6.0.2
• Previous by thread: changing style of vertices for ShowGraph with Combinatorica
• Next by thread: Re: changing style of vertices for ShowGraph with Combinatorica