<<"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}}
{{-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}}}
{{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}}}
{{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}}
{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}}
{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}]}]
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}}
{{-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}
168, 180, 192, 204}
ListPlot[%,PlotJoinedTrue];
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}}}
{{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}}}
{{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}}
{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}}
Wrote 40 nodes.
Wrote 60 arcs.