map.nb

最短路径算法

(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.1'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: [e-mail]
  phone: [phone] (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    770918,      46370]*)
(*NotebookOutlinePosition[    771562,      46392]*)
(*  CellTagsIndexPosition[    771518,      46388]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
    \(\(t = Import["\<IX.txt\>", "\<Table\>"];\)\), "\[IndentingNewLine]", 
    \(\(For[i = 1, 
        i \[LessEqual] Length[t], \(i++\), \[IndentingNewLine]t[\([i]\)] = 
          Drop[t[\([i]\)], 1]];\)\), "\[IndentingNewLine]", 
    \(ListPlot[t]\), "\[IndentingNewLine]", 
    \(\(Remove[t];\)\), "\[IndentingNewLine]", 
    \(\(t = Import["\<IX.txt\>", "\<Table\>"];\)\), "\[IndentingNewLine]", 
    \(For[i = 1, 
      i \[LessEqual] 9292, \(i++\), \[IndentingNewLine]If[
        t[\([i, 1]\)] \[NotEqual] i, 
        t = Insert[t, {i, 0, 0}, 
            i]]];  (*\:8865\:5145\:6ca1\:6709\:5750\:6807\:7684\:70b9\
*) \[IndentingNewLine]tt = 
      Import["\<IXIY.txt\>", "\<Table\>"];\), "\[IndentingNewLine]", 
    \(\(temp = {{0, 0}, {0, 0}};\)\), "\[IndentingNewLine]", 
    \(\(picture = {};\)\), "\[IndentingNewLine]", 
    \(\(For[i = 1, 
        i \[LessEqual] 
          Length[tt], \(i++\), \[IndentingNewLine]temp[\([1, 1]\)] = 
          t[\([tt[\([i, 1]\)], 2]\)]; \[IndentingNewLine]temp[\([1, 2]\)] = 
          t[\([tt[\([i, 1]\)], 3]\)]; \[IndentingNewLine]temp[\([2, 1]\)] = 
          t[\([tt[\([i, 2]\)], 2]\)]; \[IndentingNewLine]temp[\([2, 2]\)] = 
          t[\([tt[\([i, 2]\)], 3]\)]; \[IndentingNewLine]p = 
          Graphics[Line[temp]]; \[IndentingNewLine]AppendTo[picture, 
          p];];\)\), "\[IndentingNewLine]", 
    \(Show[picture, Axes \[Rule] Automatic, 
      AspectRatio \[Rule] 1]\)}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-7.67238 1.13281e-005 -3.12436 3.55797e-006 [
[.25725 .06531 -18 -9 ]
[.25725 .06531 18 0 ]
[.48382 .06531 -18 -9 ]
[.48382 .06531 18 0 ]
[.71038 .06531 -18 -9 ]
[.71038 .06531 18 0 ]
[.93694 .06531 -18 -9 ]
[.93694 .06531 18 0 ]
[.01819 .16676 -36 -4.5 ]
[.01819 .16676 0 4.5 ]
[.01819 .2557 -36 -4.5 ]
[.01819 .2557 0 4.5 ]
[.01819 .34465 -36 -4.5 ]
[.01819 .34465 0 4.5 ]
[.01819 .4336 -28.5 -6.25 ]
[.01819 .4336 0 6.25 ]
[.01819 .52255 -52.5 -6.25 ]
[.01819 .52255 0 6.25 ]
[.01819 .6115 -46.5 -6.25 ]
[.01819 .6115 0 6.25 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.25725 .07781 m
.25725 .08406 L
s
[(700000)] .25725 .06531 0 1 Mshowa
.48382 .07781 m
.48382 .08406 L
s
[(720000)] .48382 .06531 0 1 Mshowa
.71038 .07781 m
.71038 .08406 L
s
[(740000)] .71038 .06531 0 1 Mshowa
.93694 .07781 m
.93694 .08406 L
s
[(760000)] .93694 .06531 0 1 Mshowa
.125 Mabswid
.08733 .07781 m
.08733 .08156 L
s
.14397 .07781 m
.14397 .08156 L
s
.20061 .07781 m
.20061 .08156 L
s
.3139 .07781 m
.3139 .08156 L
s
.37054 .07781 m
.37054 .08156 L
s
.42718 .07781 m
.42718 .08156 L
s
.54046 .07781 m
.54046 .08156 L
s
.5971 .07781 m
.5971 .08156 L
s
.65374 .07781 m
.65374 .08156 L
s
.76702 .07781 m
.76702 .08156 L
s
.82366 .07781 m
.82366 .08156 L
s
.8803 .07781 m
.8803 .08156 L
s
.99358 .07781 m
.99358 .08156 L
s
.25 Mabswid
0 .07781 m
1 .07781 L
s
.03069 .16676 m
.03694 .16676 L
s
[(925000)] .01819 .16676 1 0 Mshowa
.03069 .2557 m
.03694 .2557 L
s
[(950000)] .01819 .2557 1 0 Mshowa
.03069 .34465 m
.03694 .34465 L
s
[(975000)] .01819 .34465 1 0 Mshowa
.03069 .4336 m
.03694 .4336 L
s
gsave
.01819 .4336 -28.5 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(6) show
grestore
.03069 .52255 m
.03694 .52255 L
s
gsave
.01819 .52255 -52.5 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1.025) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(6) show
grestore
.03069 .6115 m
.03694 .6115 L
s
gsave
.01819 .6115 -46.5 -4.25 Mabsadd m
1 1 Mabs scale
/Courier findfont 10 scalefont setfont
(1.05) show
/Math1Mono findfont 10 scalefont setfont
(\\264) show
/Courier findfont 10 scalefont setfont
(10) show
0 5.25 rmoveto
/Courier findfont 7.5 scalefont setfont
(6) show
grestore
.125 Mabswid
.03069 .0956 m
.03444 .0956 L
s
.03069 .11339 m
.03444 .11339 L
s
.03069 .13118 m
.03444 .13118 L
s
.03069 .14897 m
.03444 .14897 L
s
.03069 .18455 m
.03444 .18455 L
s
.03069 .20234 m
.03444 .20234 L
s
.03069 .22013 m
.03444 .22013 L
s
.03069 .23791 m
.03444 .23791 L
s
.03069 .27349 m
.03444 .27349 L
s
.03069 .29128 m
.03444 .29128 L
s
.03069 .30907 m
.03444 .30907 L
s
.03069 .32686 m
.03444 .32686 L
s
.03069 .36244 m
.03444 .36244 L
s
.03069 .38023 m
.03444 .38023 L
s
.03069 .39802 m
.03444 .39802 L
s
.03069 .41581 m
.03444 .41581 L
s
.03069 .45139 m
.03444 .45139 L
s
.03069 .46918 m
.03444 .46918 L
s
.03069 .48697 m
.03444 .48697 L
s
.03069 .50476 m
.03444 .50476 L
s
.03069 .54034 m
.03444 .54034 L
s
.03069 .55813 m
.03444 .55813 L
s
.03069 .57592 m
.03444 .57592 L
s
.03069 .59371 m
.03444 .59371 L
s
.03069 .06002 m
.03444 .06002 L
s
.03069 .04223 m
.03444 .04223 L
s
.03069 .02444 m
.03444 .02444 L
s
.03069 .00665 m
.03444 .00665 L
s
.25 Mabswid
.03069 0 m
.03069 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.008 w
.38932 .14009 Mdot
.39692 .14013 Mdot
.38927 .13896 Mdot
.3969 .13896 Mdot
.78888 .20193 Mdot
.79023 .20463 Mdot
.87975 .29077 Mdot
.86689 .28509 Mdot
.86437 .28545 Mdot
.86456 .28948 Mdot
.38932 .1413 Mdot
.39689 .1413 Mdot
.7753 .24763 Mdot
.76312 .43636 Mdot
.77874 .43645 Mdot
.79317 .208 Mdot
.19361 .05464 Mdot
.20864 .05473 Mdot
.19717 .04891 Mdot
.19724 .05004 Mdot
.1647 .03056 Mdot
.14614 .03279 Mdot
.26406 .12748 Mdot
.27091 .10658 Mdot
.26928 .10658 Mdot
.27091 .10645 Mdot
.26928 .10645 Mdot
.2783 .12292 Mdot
.28086 .12291 Mdot
.23927 .09538 Mdot
.23218 .09539 Mdot
.14694 .0851 Mdot
.14443 .08511 Mdot
.14693 .08494 Mdot
.1498 .08493 Mdot
.25417 .08216 Mdot
.52022 .22987 Mdot
.52008 .22934 Mdot
.27167 .21043 Mdot
.26969 .21043 Mdot
.61304 .35384 Mdot
.65766 .38203 Mdot
.67265 .38205 Mdot
.68279 .38207 Mdot
.41863 .34152 Mdot
.41782 .34272 Mdot
.67094 .22506 Mdot
.1506 .48827 Mdot
.15811 .48828 Mdot
.15811 .48123 Mdot
.29273 .48245 Mdot
.30018 .48245 Mdot
.32256 .48579 Mdot
.33002 .48607 Mdot
.25532 .4367 Mdot
.24034 .44018 Mdot
.55443 .41215 Mdot
.5617 .41451 Mdot
.41616 .43681 Mdot
.41885 .4369 Mdot
.38255 .40992 Mdot
.39 .41373 Mdot
.2778 .41316 Mdot
.2778 .41081 Mdot
.46528 .39252 Mdot
.46352 .39252 Mdot
.4636 .38205 Mdot
.20477 .21538 Mdot
.20996 .21448 Mdot
.23833 .27318 Mdot
.25417 .08398 Mdot
.76542 .28752 Mdot
.78364 .24886 Mdot
.80103 .27855 Mdot
.16522 .03063 Mdot
.20829 .03404 Mdot
.22377 .03414 Mdot
.23103 .03414 Mdot
.23829 .03415 Mdot
.23284 .03415 Mdot
.24555 .03416 Mdot
.25281 .03416 Mdot
.27478 .03418 Mdot
.26732 .03418 Mdot
.23948 .10363 Mdot
.24693 .10361 Mdot
.22458 .10366 Mdot
.23001 .10365 Mdot
.2324 .10364 Mdot
.26569 .10368 Mdot
.26339 .10368 Mdot
.26926 .10368 Mdot
.27002 .10368 Mdot
.18885 .10198 Mdot
.19487 .10287 Mdot
.20256 .10355 Mdot
.20973 .10359 Mdot
.21716 .10363 Mdot
.22458 .10367 Mdot
.2469 .10127 Mdot
.25434 .10125 Mdot
.18884 .10073 Mdot
.18346 .10071 Mdot
.21713 .10127 Mdot
.22456 .10131 Mdot
.22999 .1013 Mdot
.18346 .10074 Mdot
.20254 .1012 Mdot
.20971 .10124 Mdot
.24689 .10009 Mdot
.25433 .10008 Mdot
.18883 .0998 Mdot
.18345 .09978 Mdot
.19175 .09981 Mdot
.19485 .09999 Mdot
.20229 .10002 Mdot
.20253 .10002 Mdot
.21011 .10006 Mdot
.21711 .10009 Mdot
.22083 .1001 Mdot
.22455 .10012 Mdot
.22987 .10011 Mdot
.22998 .10011 Mdot
.23454 .10011 Mdot
.23944 .1001 Mdot
.17905 .09981 Mdot
.18345 .09982 Mdot
.2246 .1073 Mdot
.22768 .10729 Mdot
.23058 .10729 Mdot
.23206 .10728 Mdot
.20976 .10657 Mdot
.21494 .10659 Mdot
.21901 .10661 Mdot
.2246 .10728 Mdot
.20227 .09907 Mdot
.18344 .09883 Mdot
.19484 .09888 Mdot
.19156 .09887 Mdot
.18344 .09889 Mdot
.26544 .09909 Mdot
.25432 .0991 Mdot
.26921 .09909 Mdot
.22462 .1087 Mdot
.22769 .1087 Mdot
.23059 .10869 Mdot
.22942 .09757 Mdot
.23451 .09756 Mdot
.23942 .09756 Mdot
.25749 .09815 Mdot
.25431 .09815 Mdot
.26555 .09816 Mdot
.26624 .09794 Mdot
.2692 .09791 Mdot
.20226 .09814 Mdot
.20969 .09817 Mdot
.17906 .09799 Mdot
.18343 .09799 Mdot
.18343 .09792 Mdot
.20968 .09769 Mdot
.22094 .09774 Mdot
.22453 .09776 Mdot
.19942 .10473 Mdot
.2097 .10766 Mdot
.20977 .10767 Mdot
.21245 .10836 Mdot
.21493 .10899 Mdot
.2172 .10913 Mdot
.21903 .10914 Mdot
.22462 .10926 Mdot
.22462 .10931 Mdot
.22714 .10942 Mdot
.22929 .11032 Mdot
.1779 .09666 Mdot
.18342 .09709 Mdot
.19483 .09717 Mdot
.2306 .11002 Mdot
.23578 .11 Mdot
.24096 .10999 Mdot
.24542 .10998 Mdot
.25441 .10952 Mdot
.21821 .11003 Mdot
.22463 .10984 Mdot
.25747 .09633 Mdot
.26037 .09633 Mdot
.26327 .09633 Mdot
.26622 .09633 Mdot
.19482 .09625 Mdot
.20672 .09629 Mdot
.20672 .09649 Mdot
.20968 .0965 Mdot
.2171 .09649 Mdot
.18341 .09618 Mdot
.1868 .09621 Mdot
.19027 .09627 Mdot
.19482 .09623 Mdot
.39126 .56077 Mdot
.41744 .55641 Mdot
.47747 .29012 Mdot
.48028 .29065 Mdot
.51001 .29084 Mdot
.51742 .29099 Mdot
.4581 .28952 Mdot
.46574 .29079 Mdot
.46822 .29114 Mdot
.42163 .29044 Mdot
.43296 .28922 Mdot
.49013 .29141 Mdot
.49326 .29133 Mdot
.49525 .29095 Mdot
.50002 .29052 Mdot
.50431 .28963 Mdot
.84089 .26033 Mdot
.84137 .26043 Mdot
.84707 .26087 Mdot
.23029 .2642 Mdot
.22581 .2642 Mdot
.46204 .2641 Mdot
.4768 .26528 Mdot
.47939 .26387 Mdot
.48191 .26447 Mdot
.48689 .26482 Mdot
.51337 .26688 Mdot
.27676 .26384 Mdot
.28045 .26383 Mdot
.28593 .26382 Mdot
.46439 .53086 Mdot
.4729 .52999 Mdot
.5043 .52962 Mdot
.50575 .52911 Mdot
.41905 .53134 Mdot
.42747 .52939 Mdot
.43703 .52938 Mdot
.47177 .53061 Mdot
.23892 .37153 Mdot
.2661 .37177 Mdot
.43243 .3714 Mdot
.25129 .37149 Mdot
.25006 .37124 Mdot
.29464 .35507 Mdot
.22727 .35458 Mdot
.25721 .35522 Mdot
.26076 .3555 Mdot
.26731 .3555 Mdot
.26432 .3555 Mdot
.30542 .35473 Mdot
.37916 .3558 Mdot
.38693 .35392 Mdot
.39605 .35136 Mdot
.40654 .3502 Mdot
.41198 .35021 Mdot
.41878 .35021 Mdot
.5338 .41347 Mdot
.25405 .37956 Mdot
.25722 .37807 Mdot
.22727 .37807 Mdot
.28714 .37806 Mdot
.30211 .37806 Mdot
.30586 .37806 Mdot
.30986 .37806 Mdot
.31709 .37805 Mdot
.54738 .37914 Mdot
.56513 .37704 Mdot
.56515 .37704 Mdot
.58039 .37594 Mdot
.58609 .37602 Mdot
.59322 .37653 Mdot
.4336 .52409 Mdot
.41739 .52766 Mdot
.12054 .43062 Mdot
.15521 .42993 Mdot
.14543 .43093 Mdot
.11216 .43046 Mdot
.2039 .06835 Mdot
.19451 .06857 Mdot
.20279 .06925 Mdot
.23326 .06892 Mdot
.23922 .06891 Mdot
.18333 .06858 Mdot
.19451 .06861 Mdot
.23922 .06837 Mdot
.2422 .06842 Mdot
.24517 .06843 Mdot
.24814 .06843 Mdot
.25108 .06844 Mdot
.2542 .06844 Mdot
.28995 .06712 Mdot
.21587 .47575 Mdot
.26718 .44494 Mdot
.24737 .44573 Mdot
.51242 .22998 Mdot
.34897 .23142 Mdot
.35656 .23142 Mdot
.36414 .23146 Mdot
.37594 .23403 Mdot
.37794 .23377 Mdot
.40183 .23059 Mdot
.38205 .23194 Mdot
.51333 .22951 Mdot
.51794 .22993 Mdot
.52663 .23042 Mdot
.52867 .23088 Mdot
.53011 .23122 Mdot
.54259 .22955 Mdot
.62174 .23233 Mdot
.61934 .23171 Mdot
.6324 .23203 Mdot
.64217 .23139 Mdot