Re: Path finding in graph theory, Lookig for your help,

*To*: mathgroup at smc.vnet.net*Subject*: [mg31804] Re: [mg31755] Path finding in graph theory, Lookig for your help,*From*: Andrzej Kozlowski <andrzej at tuins.ac.jp>*Date*: Sun, 2 Dec 2001 04:25:53 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

What do you mean by all routes? Clearly there are infinitely many of them so you have to specify some condition that will make the number finite. For example, you may require that each vertex only appears once in a route (a Hamiltonian condition), or that each edge appears only once (Eulerian) or that the length is bounded by some integer. In any case, you will need to use backtracking so the program will be slow. You can modify one of the existing functions in the Combinatorica package to do what you want. For example, here is a (quickly done so possibly buggy!) modification of the HamiltonianCycle function which should give all Hamiltonian paths between two vertices: << DiscreteMath`Combinatorica` AllHamiltonianPaths[g_Graph, {a_, b_}] := Module[{s = {a}, all = {}, done, adj = Edges[g], e = ToAdjacencyLists[g], x, v, ind, n = V[g]}, ind = Table[1, {n}]; While[Length[s] > 0, v = Last[s]; done = False; While[ind[[v]] â?¤ Length[e[[v]]] && ! done, If[! MemberQ[s, (x = e[[v, ind[[v]]++]])], done = True]]; If[done, AppendTo[s, x], If[Length[s] > 0, s = Drop[s, -1]]; ind[[v]] = 1]; If[(x == b), AppendTo[all, s]; If[Length[s] > 0, s = Drop[s, -1]]]]; all] gr = RandomGraph[5, 0.6]; ShowLabeledGraph[gr] (picture supressed) In[5]:= ToAdjacencyLists[gr] Out[5]= {{5},{3,4,5},{2,5},{2,5},{1,2,3,4}} In[6]:= AllPaths[gr,{1,3}] Out[6]= {{1,5,2,3},{1,5,3},{1,5,4,2,3}} Andrzej Kozlowski Toyama International University JAPAN http://platon.c.u-tokyo.ac.jp/andrzej/ On Saturday, December 1, 2001, at 04:44 PM, nem nemran wrote: > Dear, > While am surveying through MathGroup Archive > April/1998, I have noticed that you addressed the > following problem: > "I'm modelling a computer network as a graph and would > like to find an algorithm in Mathematica that will > return all 'routes' from one vertex to another. There > are some algorithms within the DiscreteMaths package > that will return the shortest path between two > vertices, but none (it appears) that return all > paths." > > Am looking for an algorithim that find all paths > "routes" between two vertex. > > I appreciate any comment and help. > > Yours, > > Nemran > > University of Leeds > > > __________________________________________________ > Do You Yahoo!? > Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month. > http://geocities.yahoo.com/ps/info1 > > >