David's CombinatoricaGraphics functions

• To: mathgroup at smc.vnet.net
• Subject: [mg47703] David's CombinatoricaGraphics functions
• From: sean kim <sean_incali at yahoo.com>
• Date: Thu, 22 Apr 2004 03:21:40 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello group and david.

I love david's Package for improving Combinatorica
graphics.

it's amazing. Thank you, david, for making that.

and obviously by the looks of this email, and the fact
that I'm writing, yes.. I have a few problems.

In[12]:=
lg = Graph[{
{{1, 2}}, {{2, 3}},
{{3, 2}}, {{3, 1}},
{{1, 4}}, {{1, 4}}, {{1, 5}}, {{1, 5}},
{{4, 5}}, {{4, 2}}, {{4, 2}},
{{5, 2}}, {{5, 2}}, {{5, 4}}, {{5, 4}}},

{{{0.0, 1.5}, VertexLabel -> a1},
{{0.0, 0.0}, VertexLabel -> b2},
{{0.5, 0.75}, VertexLabel -> c3},
{{-0.5, 0.75}, VertexLabel -> d4},
{{-1.5, 0.75}, VertexLabel -> e5}},  EdgeDirection->
On]

ShowGraph[lg]

CombinatoricaPlot[
{DrawGraphEdges[lg][All],
DrawGraphVertices[lg][All]},
Background -> White];

above will produce two graphics. onedefault and one
produced by david's new package.

1. How come the CombinatoricaPlot isn't drawing the
directed edges using DrawGraphBowArrow as a default?

2. As far as I understand it, a tour is a path in a
digraph where you only cross every vertex once,
before returning to the starting pt( in this case, a1)

How do I show all tours that are possible withthe
digraph above?

3. how do I show that all the tours are isomorphic?
or is that an obvious question?

sean

__________________________________
Do you Yahoo!?
Yahoo! Photos: High-quality 4x6 digital prints for 25¢
http://photos.yahoo.com/ph/print_splash

```

• Prev by Date: RE: Trig identity oscillations
• Next by Date: Integer parameter in a limit
• Previous by thread: Re: MathJFrame, MathGraphicsJPanel question
• Next by thread: RE: David's CombinatoricaGraphics functions