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)
- Reply-to: sean_incali01 at yahoo.com
- 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.
please consider the following digraph.
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?
thanks in advance once again for all comments.
sean
__________________________________
Do you Yahoo!?
Yahoo! Photos: High-quality 4x6 digital prints for 25¢
http://photos.yahoo.com/ph/print_splash