MathGroup Archive 2005

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

Search the Archive

Re: CostOfPath


I don't think you have your inputs in proper form.

Please try something like:

In[1]:=
<< DiscreteMath`Combinatorica`
In[4]:=
g = SetEdgeWeights[GridGraph[3, 3],
WeightingFunction -> RandomInteger, WeightRange -> {1, 5}]

In[5]:=
ShowGraph[ g ];

In[6]:=
CostOfPath[g, {1, 2, 3}]
Out[6]=
4

Looks like infinity might be an answer to any set out of bounds?

Hope this helps

Steven Shippee
slshippee at comcast.net



"Bart De Vylder" <bart.de.vylder at pandora.be> wrote in message 
news:dm6fkd$i0b$1 at smc.vnet.net...
>I run Windows XP and Mathematica 5.2 (student version).
>
> Can anybody explain the following?
>
> << DiscreteMath`Combinatorica`;
> gr = FromOrderedPairs[{{2, 1}}];
> CostOfPath[gr, {2, 1}]
>
> Out[]= â^z (infinity)
>
> I would expect 1 as answer.
>
> Thanks,
> Bart
>
> 



  • Prev by Date: webMathematica - does it need the Xvnc password?
  • Next by Date: Re: CostOfPath
  • Previous by thread: Re: CostOfPath
  • Next by thread: Re: CostOfPath