<< NewCombinatorica.m

ShowGraphArray[Partition[FiniteGraphs, 5]]

Display["chapter1",  %]

atr  =  
        MemberQ[Table[
              p = #1;  {p[[i]],  
                  p[[i + 1]]}  =  {p[[i + 1]],  p[[i]]};  
              p,  {i,  
                Length[#1] - 1}],  #2] &;
g  =  
      RankedEmbedding[
        MakeGraph[Permutations[4],  atr,  
          Type -> Undirected],  {1}];  
    ShowGraphArray[
      Partition[Table[SpringEmbedding[g,  i],  {i,  0,  40,  5}],  
        3]]

Display["chapter2",  %]

ln  =  
      Map[{Flatten[Position[#,  0]],  Flatten[Position[#,  1]]} &,  
        OrbitRepresentatives[DihedralGroup[7],  
          Strings[{0,  1},  7]]]; ShowGraphArray[
      Partition[
        Map[Highlight[Cycle[7],  #,  
              HighlightedVertexColors -> {Black,  Gray},  
              HighlightedVertexStyle -> Disk[0.10]] &,  ln],  
        3]];

Display["chapter3",  %]

ShowGraphArray[
      Partition[Table[DominationLattice[i],  {i,  4,  12}],  
        3]]

Display["chapter4",  %]

c  =  
      Partition[HamiltonianCycle[g = LineGraph[DodecahedralGraph]], 2, 1];  
    ShowGraph[Highlight[g,  {c}]]

Display["chapter5",  %]

ShowGraphArray[
      Partition[Map[(CirculantGraph[12,  #]) &,  Subsets[6]],  
        8]]

Display["chapter6",  %]

ShowGraphArray[
      c  =  Table[
          CageGraph[k,  g],  {k , 3,  5},  {g,  3,  6}]]

Display["chapter7",  %]

ShowGraph[
      Highlight[
        g  =  GridGraph[5,  5,  5],  {{32,  93},  
          First[Transpose[NetworkFlow[g,  32,  93,  Edge]]]}],  
      EdgeColor -> Gray]

Display["chapter8",  %]