<<"NetworkSystems/NewGraphs.m"
knobruleAx
{{2, 1}, {3, 1}, {4, 1}} ->

{{-1, 2}, {-1, 1}, {-1, -4}, {-3, 4}, {-3, 1},

{-3, -4}, {-2, 3}, {-2, 1}, {-2, -4}}
Install["NetworkSystems/NewGraphsLink"]
LinkObject[NetworkSystems/NewGraphsLink, 35, 6]
XGCStep[{kr1},tetragraph,1]
{{{{4}, {{1, 4}, {2, 4}, {3, 4}}, {{4, 1, 2, 3}}}},

{{1, 2}, {2, 3}, {3, 1}, {4, 1}, {5, 4}, {5, 7},

{5, 8}, {6, 4}, {6, 7}, {6, 8}, {7, 3}, {8, 2}}}
XGCEvolveList[{kr1,kr2},tetragraph,4];
Length/@%
{6, 12, 9, 15, 33}
XGCEvolveList[{kr1,kr2},tetragraph,8]
Length/@%
{6, 12, 9, 15, 33, 63, 129, 255, 513}
XGCEvolveList[{kr1,kr2},{{1,2},{1,2},{1,2}},3]
{{{1, 2}, {1, 2}, {1, 2}},

{{1, 2}, {3, 1}, {3, 5}, {3, 6}, {4, 1}, {4, 5},

{4, 6}, {5, 2}, {6, 2}},

{{1, 2}, {1, 3}, {1, 4}, {5, 2}, {5, 3}, {5, 4},

{6, 2}, {7, 6}, {7, 9}, {7, 10}, {8, 6}, {8, 9},

{8, 10}, {9, 4}, {10, 3}},

{{1, 2}, {1, 3}, {1, 4}, {5, 2}, {5, 3}, {5, 4},

{6, 7}, {8, 6}, {8, 10}, {8, 11}, {9, 6}, {9, 10},

{9, 11}, {10, 2}, {11, 12}, {13, 7}, {14, 13},

{14, 16}, {14, 17}, {15, 13}, {15, 16}, {15, 17},

{16, 4}, {17, 12}, {18, 7}, {19, 18}, {19, 21},

{19, 22}, {20, 18}, {20, 21}, {20, 22}, {21, 3},

{22, 12}}}
Valences/@%
{{3, 3}, {3, 3, 3, 3, 3, 3},

{3, 3, 3, 3, 3, 3, 3, 3, 3, 3},

{3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,

3, 3, 3, 3}}
XGCEvolveList[{kr1,kr2},{{1,2},{1,2},{1,2}},5];
Length/@%
{3, 9, 15, 33, 63, 129}
ToPhred[g_]:=Network[Flatten[{Node/@Union[Flatten[g]],Arc/@g}]]
Last[%269]
{{1, 2}, {1, 3}, {1, 4}, {5, 2}, {5, 3}, {5, 4}, {6, 7},

{8, 6}, {8, 10}, {8, 11}, {9, 6}, {9, 10}, {9, 11},

{10, 2}, {11, 12}, {13, 7}, {14, 13}, {14, 16},

{14, 17}, {15, 13}, {15, 16}, {15, 17}, {16, 4},

{17, 12}, {18, 7}, {19, 18}, {19, 21}, {19, 22},

{20, 18}, {20, 21}, {20, 22}, {21, 3}, {22, 12}}
ToPhred[%]
Network[{Node[1], Node[2], Node[3], Node[4], Node[5],

Node[6], Node[7], Node[8], Node[9], Node[10],

Node[11], Node[12], Node[13], Node[14], Node[15],

Node[16], Node[17], Node[18], Node[19], Node[20],

Node[21], Node[22], Arc[{1, 2}], Arc[{1, 3}],

Arc[{1, 4}], Arc[{5, 2}], Arc[{5, 3}], Arc[{5, 4}],

Arc[{6, 7}], Arc[{8, 6}], Arc[{8, 10}], Arc[{8, 11}],

Arc[{9, 6}], Arc[{9, 10}], Arc[{9, 11}], Arc[{10, 2}],

Arc[{11, 12}], Arc[{13, 7}], Arc[{14, 13}],

Arc[{14, 16}], Arc[{14, 17}], Arc[{15, 13}],

Arc[{15, 16}], Arc[{15, 17}], Arc[{16, 4}],

Arc[{17, 12}], Arc[{18, 7}], Arc[{19, 18}],

Arc[{19, 21}], Arc[{19, 22}], Arc[{20, 18}],

Arc[{20, 21}], Arc[{20, 22}], Arc[{21, 3}],

Arc[{22, 12}]}]
<<"Phred/MSource/Network.m"
WriteNetwork["NetworkSystems/Phred/test.phred",%273]
Wrote 22 nodes.
Wrote 33 arcs.
kr1
{{2, 1}, {3, 1}, {4, 1}} ->

{{-1, 2}, {1, -1}, {-4, -1}, {-3, 4}, {1, -3},

{-4, -3}, {-2, 3}, {1, -2}, {-4, -2}}
XGCEvolveList[{kr1,kr2},Random3Graph[20],15];
Length/@%
{30, 36, 48, 60, 72, 84, 96, 108, 120, 132, 144, 156,

168, 180, 192, 204}
ListPlot[%,PlotJoinedTrue];
XKnobs[%248〚4〛]
{{1, 2}, {11, 12, 13, 14}, {23}, {28}}
XKnobs/@%248
{{{1, 16}, {4}}, {{1, 2}, {12}, {16}},

{{1, 2}, {10, 11, 12, 13}, {19}, {21}},

{{1, 2}, {11, 12, 13, 14}, {23}, {28}},

{{1, 2}, {12, 13, 14, 15}, {31}, {36}},

{{1, 2}, {10, 14, 15, 16}, {39}, {44}},

{{1, 2}, {10, 12, 16, 17}, {47}, {52}},

{{1, 2}, {10, 12, 14, 15}, {55}, {60}},

{{1, 2}, {10, 12, 14, 15}, {63}, {68}},

{{1, 2}, {10, 12, 14, 15}, {71}, {76}},

{{1, 2}, {10, 12, 14, 15}, {79}, {84}},

{{1, 2}, {10, 12, 14, 15}, {87}, {92}},

{{1, 2}, {10, 12, 14, 15}, {95}, {100}},

{{1, 2}, {10, 12, 14, 15}, {103}, {108}},

{{1, 2}, {10, 12, 14, 15}, {111}, {116}},

{{1, 2}, {10, 12, 14, 15}, {119}, {124}}}
Random3Graph[40]
{{1, 10}, {1, 17}, {2, 28}, {3, 4}, {3, 15}, {3, 25},

{4, 11}, {4, 15}, {5, 27}, {7, 35}, {8, 9}, {9, 16},

{9, 19}, {10, 14}, {11, 30}, {12, 2}, {12, 6}, {12, 8},

{14, 6}, {14, 21}, {16, 5}, {16, 34}, {17, 37},

{18, 7}, {18, 13}, {19, 25}, {20, 13}, {20, 39},

{21, 11}, {22, 36}, {22, 39}, {23, 17}, {23, 19},

{25, 24}, {26, 2}, {26, 24}, {26, 40}, {27, 7},

{27, 39}, {28, 5}, {28, 35}, {29, 21}, {30, 8},

{30, 18}, {31, 13}, {31, 32}, {32, 22}, {32, 29},

{33, 31}, {33, 40}, {34, 23}, {34, 24}, {36, 15},

{36, 33}, {37, 20}, {37, 35}, {38, 1}, {38, 6},

{38, 10}, {40, 29}}
WriteNetwork["NetworkSystems/Phred/rand.phred",ToPhred[%277]]
Wrote 40 nodes.
Wrote 60 arcs.