Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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