<<"NetworkSystems/NewGraphs.m"
can[glist_]:=Union[CanonicalGraph/@glist]
{{{1,1}}}
{{{1, 1}}}
NestList[can[Join[AddNodes[#1],AddArcs[#1]]]&,{{{1,1}}},5]
{{{{1, 1}}}, {{{1, 2}, {2, 1}}},
{{{1, 2}, {1, 2}, {2, 1}}, {{1, 2}, {2, 3}, {3, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 2}},
{{1, 2}, {2, 3}, {3, 4}, {4, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}, {4, 3}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}, {4, 3}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 5}, {5, 2}},
{{1, 2}, {1, 3}, {2, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 2}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 4}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}}}}
{{{1, 2}, {1, 2}, {2, 1}}, {{1, 2}, {2, 3}, {3, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 2}},
{{1, 2}, {2, 3}, {3, 4}, {4, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}}},
{{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}, {4, 3}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}, {4, 3}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 5}, {5, 2}},
{{1, 2}, {1, 3}, {2, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 2}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 4}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}}}}
Flatten[%,1]
{{{1, 1}}, {{1, 2}, {2, 1}}, {{1, 2}, {1, 2}, {2, 1}},
{{1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 2}},
{{1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}, {4, 3}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}, {4, 3}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 5}, {5, 2}},
{{1, 2}, {1, 3}, {2, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 2}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 4}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}}}
{{1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 2}},
{{1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 1}, {4, 3}},
{{1, 2}, {1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 2}, {4, 3}},
{{1, 2}, {1, 3}, {2, 1}, {3, 4}, {4, 5}, {5, 2}},
{{1, 2}, {1, 3}, {2, 3}, {2, 4}, {3, 4}, {4, 1}},
{{1, 2}, {1, 3}, {2, 3}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 4}, {4, 5}, {5, 1}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 2}},
{{1, 2}, {1, 3}, {2, 4}, {3, 5}, {4, 1}, {5, 4}},
{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}}}
Valences/@%
{{2}, {2, 2}, {3, 3}, {2, 2, 2}, {3, 3, 2}, {3, 3, 2},
{2, 2, 2, 2}, {3, 3, 2, 2}, {3, 3, 2, 2},
{3, 2, 3, 2}, {3, 2, 2, 3}, {2, 2, 2, 2, 2},
{3, 3, 3, 3}, {3, 3, 3, 3}, {3, 3, 2, 2, 2},
{3, 3, 3, 3}, {3, 3, 2, 2, 2}, {3, 3, 3, 3},
{3, 2, 3, 2, 2}, {3, 2, 2, 3, 2}, {3, 3, 2, 2, 2},
{3, 2, 2, 3, 2}, {2, 2, 2, 2, 2, 2}}
{2, 2, 2, 2}, {3, 3, 2, 2}, {3, 3, 2, 2},
{3, 2, 3, 2}, {3, 2, 2, 3}, {2, 2, 2, 2, 2},
{3, 3, 3, 3}, {3, 3, 3, 3}, {3, 3, 2, 2, 2},
{3, 3, 3, 3}, {3, 3, 2, 2, 2}, {3, 3, 3, 3},
{3, 2, 3, 2, 2}, {3, 2, 2, 3, 2}, {3, 3, 2, 2, 2},
{3, 2, 2, 3, 2}, {2, 2, 2, 2, 2, 2}}
AddOuterNodes[g_]:=Module[{nn=Max[Flatten[g]],n},n=nn+1;Join[g,Flatten[Table[Table[{n++,i},{3-Count[Flatten[g],i]}],{i,nn}],1]]]
Do[WriteNetwork["NetworkSystems/Phred/knob."<>ToString[i]<>".phred",ToPhred[AddOuterNodes[%45〚i〛]]],{i,Length[%45]}]
Wrote 2 nodes.
Wrote 2 arcs.
Wrote 4 nodes.
Wrote 4 arcs.
Wrote 2 nodes.
Wrote 3 arcs.
Wrote 6 nodes.
Wrote 6 arcs.
Wrote 4 nodes.
Wrote 5 arcs.
Wrote 4 nodes.
Wrote 5 arcs.
Wrote 8 nodes.
Wrote 8 arcs.
Wrote 6 nodes.
Wrote 7 arcs.
Wrote 6 nodes.
Wrote 7 arcs.
Wrote 6 nodes.
Wrote 7 arcs.
Wrote 6 nodes.
Wrote 7 arcs.
Wrote 10 nodes.
Wrote 10 arcs.
Wrote 4 nodes.
Wrote 6 arcs.
Wrote 4 nodes.
Wrote 6 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 4 nodes.
Wrote 6 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 4 nodes.
Wrote 6 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 8 nodes.
Wrote 9 arcs.
Wrote 12 nodes.
Wrote 12 arcs.