<< DiscreteMath`Combinatorica`
<< Graphics`Animation`

\(\(\(MST[\ 
        x_Graph\ ]\)\(\ \)\(:=\)\(
\)\(Module[\ {mstfile, \ 
          data\  = \ x, \ a, \ b, \ c, f, \ g\ }, 
f\  = \ 
          MinimumSpanningTree[data]; 
a\  = 
          Edges[f]; 
c\  = \ a; 
g\  = \ 
          ChangeEdges[
            data, \ {}]; 
mstfile\  = 
Table[
Graphics[\ {
Rectangle[\ {0, 0}, \ {0.8, \ 
                    0.8}, 
ShowGraph[\ 
                    Highlight[\ 
                      g\  = \ AddEdge[g, \ c[\([t + 1]\)]], \ {Take[c, \ 
                          t + 1]}, \ {HighlightedEdgeColors\  -> \ {Blue}, \ 
                        HighlightedVertexColors\  -> \ {Yellow}, \ 
HighlightedEdgeStyle -> Normal, \ 
                        HighlightedVertexStyle\  -> \ Disk[0.01]}], \ 
                    PlotLabel\  -> \ "Minimum Spanning Tree", \ 
                    TextStyle\  -> \ {FontSize\  -> \ 15, \ 
                        FontColor -> 
                          Purple}, 
EdgeLabelPosition -> LowerLeft, \ 
                    VertexColor -> {Yellow}, 
VertexStyle\  -> \ Disk[0.01], \ 
                    EdgeStyle -> 
                      Thin, \ \ Graphics\ ]], 
\ 
                Text["www.combinatorica.com", \ {0.5, 
                    0.0}, \ {TextStyle -> {FontColor -> 
                          Red}}]\ }, 
{\ 
                ImageSize -> 350, \ 
                AspectRatio -> 1}
], \ {t, \ 0, \ 
              V[x] - 2\ , \ 
              1}]; \ 
mstfile
]\)\(\ \)\)\)

usa  = <<  usa.txt

ShowAnimation[MST[usa]]