| Author |
Comment/Response |
eyas
|
 11/30/12 08:50am
Hi,
I am struggling with the folowing problem. I ran this code on Mathematica 7.0.1 and it worked quite well but if I try to get this code on Mathematica 8.0.1 it
1) gives me an error message (see below) and
2) it does not print the shortest paths as it does in Mathematica 7.0.1
That's the code:
Needs["GraphUtilities`"]
g = Graph[
{{{1, 2}},
{{1, 3}},
{{2, 5}},
{{3, 4}},
{{3, 5}},
{{4, 5}},
{{5, 6}},
{{5, 10}},
{{6, 7}},
{{7, 8}},
{{7, 9}},
{{7, 12}},
{{8, 9}},
{{9, 10}},
{{9, 11}},
{{9, 12}},
{{10, 11}},
{{10, 7}},
{{11, 7}},
{{11, 12}}},
{{{0, 1}, VertexLabel -> True},
{{1, 2}, VertexLabel -> True},
{{1, 1}, VertexLabel -> True},
{{2, 2}, VertexLabel -> True},
{{2, 1}, VertexLabel -> True},
{{2, 0}, VertexLabel -> True},
{{3, 2}, VertexLabel -> True},
{{3, 1}, VertexLabel -> True},
{{4, 2}, VertexLabel -> True},
{{4, 1}, VertexLabel -> True},
{{1, 0}, VertexLabel -> True},
{{5, 1}, VertexLabel -> True}
}
, EdgeDirection -> True]
ShowGraph[g]
F = {}
F
For[i = 1, i < 13, i++,
For[j = 1, j < 13, j++, Print[
F = Insert[F, ShortestPath[g, i, j], -1]]]]
Export["Graph.xls", F]
In Mathematica 7.0.1 it works well and the output of the Excel-Sheet is like:
1
1 2
1 3
1 3 4
1 2 5
1 2 5 6
1 2 5 6 7
1 2 5 6 7 8
1 2 5 6 7 9
1 2 5 10
1 2 5 10 11
1 2 5 6 7 12
But on Mathematica 8.0.1 the following error message comes:
Graph::optx: Unknown option EdgeDirection in Graph[{{{1,2}},{{1,3}},{{2,5}},{{3,4}},{{3,5}},{{4,5}},{{5,6}},{{5,10}},{{6,7}},{{7,8}},{{7,9}},{{7,12}},{{8,9}},{{9,10}},{{9,11}},{{9,12}},{{10,11}},{{10,7}},{{11,7}},{{11,12}}},{{{0,1},VertexLabel->True},{{1,2},VertexLabel->True},<<8>>,{{1,0},VertexLabel->True},{{5,1},VertexLabel->True}},EdgeDirection->True]. >>
And the Excel-File looks like this:
ShortestPath[Graph[{{{1, 2}}, {{1, 3}}, {{2, 5}}, {{3, 4}}, {{3, 5}}, {{4, 5}}, {{5, 6}}, {{5, 10}}, {{6, 7}}, {{7, 8}}, {{7, 9}}, {{7, 12}}, {{8, 9}}, {{9, 10}}, {{9, 11}}, {{9, 12}}, {{10, 11}}, {{10, 7}}, {{11, 7}}, {{11, 12}}}, {{{0, 1}, VertexLabel -> True}, {{1, 2}, VertexLabel -> True}, {{1, 1}, VertexLabel -> True}, {{2, 2}, VertexLabel -> True}, {{2, 1}, VertexLabel -> True}, {{2, 0}, VertexLabel -> True}, {{3, 2}, VertexLabel -> True}, {{3, 1}, VertexLabel -> True}, {{4, 2}, VertexLabel -> True}, {{4, 1}, VertexLabel -> True}, {{1, 0}, VertexLabel -> True}, {{5, 1}, VertexLabel -> True}}, EdgeDirection -> True], 1, 1]
ShortestPath[Graph[{{{1, 2}}, {{1, 3}}, {{2, 5}}, {{3, 4}}, {{3, 5}}, {{4, 5}}, {{5, 6}}, {{5, 10}}, {{6, 7}}, {{7, 8}}, {{7, 9}}, {{7, 12}}, {{8, 9}}, {{9, 10}}, {{9, 11}}, {{9, 12}}, {{10, 11}}, {{10, 7}}, {{11, 7}}, {{11, 12}}}, {{{0, 1}, VertexLabel -> True}, {{1, 2}, VertexLabel -> True}, {{1, 1}, VertexLabel -> True}, {{2, 2}, VertexLabel -> True}, {{2, 1}, VertexLabel -> True}, {{2, 0}, VertexLabel -> True}, {{3, 2}, VertexLabel -> True}, {{3, 1}, VertexLabel -> True}, {{4, 2}, VertexLabel -> True}, {{4, 1}, VertexLabel -> True}, {{1, 0}, VertexLabel -> True}, {{5, 1}, VertexLabel -> True}}, EdgeDirection -> True], 1, 2]
How can I run the code above correctly and get an Excel-sheet in Mathematica 8.0.1 like in Mathematica 7.0.1?
Thank you!
URL: , |
|
