<<"NetworkSystems/NewGraphs.m"
Install["NetworkSystems/NewGraphsLink"]
LinkObject[NetworkSystems/NewGraphsLink, 14, 4]
XGCEvolveLength[{bkr[1,2],bkr[3,1]},tetragraph,8]
{6, 12, 12, 30, 42, 96, 168, 354, 678}
diffs[list_,d_:1]:=Drop[list,d]-Drop[list,-d]
test0[rules_,n_]:=Module[{a,b,c},a=Random3Graph[n];b=XGCEvolveLength[rules,a,6,100];If[Length[Union[Take[b,-3]]]==1,stat〚1〛++;Return[False]];If[Last[b]>100||Last[b]==-1,stat〚2〛++;Return[False]];b=XGCEvolveLength[rules,a,10,300];If[Last[b]>300||Last[b]==-1,stat〚3〛++;Return[False]];If[Length[Union[Take[b,-6]]]<2,stat〚4〛++;Return[False]];b=Drop[XGCEvolveLength[rules,a,15,300],5];If[Last[b]>300||Last[b]==-1,stat〚5〛++;Return[False]];c=Rest[b]-Drop[b,-1];If[Length[Union[c]]<3,stat〚6〛++;Return[False]];b=Drop[XGCEvolveLength[rules,a,40,400],25];If[Last[b]>400||Last[b]==-1,stat〚7〛++;Return[False]];c=Rest[b]-Drop[b,-1];If[Length[Union[c]]<3,stat〚8〛++;Return[False]];b=Drop[XGCEvolveLength[rules,a,120,500],80];If[Last[b]>500||Last[b]==-1,stat〚9〛++;Return[False]];c=Rest[b]-Drop[b,-1];If[Length[Union[c]]<4,stat〚10〛++;Return[False]];a]
test[rules_,n_,trials_]:=Catch[Block[{stat=Table[0,{10}]},Module[{a,i},Do[a=test0[rules,n];If[a=!=False,Print["\!\(i\) of \!\(trials\)\n"];Throw[a]],{i,trials}]];stat]]
testauto[rules_,n_,trials_]:=Block[{stat=Table[0,{10}],finds={}},Module[{a,i},Do[a=test0[rules,n];If[a=!=False,Print["\!\(i\) of \!\(trials\): \!\(a\)\n:"];AppendTo[finds,a]],{i,trials}]];{stat,finds}]
test[{bkr[1,2],bkr[3,1]},6,100]
test[{bkr[1,2],bkr[3,1]},10,100]
{27, 55, 3, 0, 0, 15}
test[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
49 of 100
{{1, 5}, {1, 7}, {4, 1}, {4, 2}, {4, 3}, {5, 2}, {5, 9},
{6, 2}, {6, 9}, {7, 6}, {8, 3}, {8, 10}, {9, 7},
{10, 3}, {10, 8}}
{6, 2}, {6, 9}, {7, 6}, {8, 3}, {8, 10}, {9, 7},
{10, 3}, {10, 8}}
XGCEvolveLength[{bkr[1,3],bkr[2,1],bkr[3,1]},%195,100]
{15, 33, 33, 42, 51, 60, 60, 96, 105, 105, 123, 132,
150, 168, 177, 195, 213, 213, 222, 249, 258, 267, 294,
303, 312, 339, 348, 357, 384, 393, 402, 411, 420, 438,
456, 465, 483, 501, 510, 528, 546, 555, 573, 591, 600,
618, 636, 645, 663, 681, 690, 708, 726, 735, 753, 771,
780, 780, 816, 825, 825, 843, 870, 870, 888, 915, 915,
933, 960, 960, 978, 1005, 1005, 1023, 1050, 1050,
1068, 1095, 1095, 1113, 1140, 1140, 1158, 1185, 1185,
1203, 1230, 1230, 1248, 1275, 1275, 1293, 1320, 1320,
1338, 1365, 1365, 1383, 1410, 1410, 1428}
150, 168, 177, 195, 213, 213, 222, 249, 258, 267, 294,
303, 312, 339, 348, 357, 384, 393, 402, 411, 420, 438,
456, 465, 483, 501, 510, 528, 546, 555, 573, 591, 600,
618, 636, 645, 663, 681, 690, 708, 726, 735, 753, 771,
780, 780, 816, 825, 825, 843, 870, 870, 888, 915, 915,
933, 960, 960, 978, 1005, 1005, 1023, 1050, 1050,
1068, 1095, 1095, 1113, 1140, 1140, 1158, 1185, 1185,
1203, 1230, 1230, 1248, 1275, 1275, 1293, 1320, 1320,
1338, 1365, 1365, 1383, 1410, 1410, 1428}
XGCEvolveLength[{bkr[1,3],bkr[2,1],bkr[3,1]},%195,150]
{15, 33, 33, 42, 51, 60, 60, 96, 105, 105, 123, 132, 150,
168, 177, 195, 213, 213, 222, 249, 258, 267, 294, 303,
312, 339, 348, 357, 384, 393, 402, 411, 420, 438, 456,
465, 483, 501, 510, 528, 546, 555, 573, 591, 600, 618,
636, 645, 663, 681, 690, 708, 726, 735, 753, 771, 780,
780, 816, 825, 825, 843, 870, 870, 888, 915, 915, 933,
960, 960, 978, 1005, 1005, 1023, 1050, 1050, 1068,
1095, 1095, 1113, 1140, 1140, 1158, 1185, 1185, 1203,
1230, 1230, 1248, 1275, 1275, 1293, 1320, 1320, 1338,
1365, 1365, 1383, 1410, 1410, 1428, 1455, 1455, 1473,
1500, 1500, 1518, 1545, 1545, 1563, 1572, 1590, 1608,
1617, 1635, 1653, 1653, 1680, 1698, 1698, 1725, 1743,
1743, 1770, 1788, 1788, 1815, 1833, 1833, 1860, 1878,
1878, 1905, 1923, 1923, 1950, 1968, 1968, 1995, 2013,
2013, 2040, 2058, 2058, 2085, 2103, 2103, 2130, 2148,
2148, 2175}
168, 177, 195, 213, 213, 222, 249, 258, 267, 294, 303,
312, 339, 348, 357, 384, 393, 402, 411, 420, 438, 456,
465, 483, 501, 510, 528, 546, 555, 573, 591, 600, 618,
636, 645, 663, 681, 690, 708, 726, 735, 753, 771, 780,
780, 816, 825, 825, 843, 870, 870, 888, 915, 915, 933,
960, 960, 978, 1005, 1005, 1023, 1050, 1050, 1068,
1095, 1095, 1113, 1140, 1140, 1158, 1185, 1185, 1203,
1230, 1230, 1248, 1275, 1275, 1293, 1320, 1320, 1338,
1365, 1365, 1383, 1410, 1410, 1428, 1455, 1455, 1473,
1500, 1500, 1518, 1545, 1545, 1563, 1572, 1590, 1608,
1617, 1635, 1653, 1653, 1680, 1698, 1698, 1725, 1743,
1743, 1770, 1788, 1788, 1815, 1833, 1833, 1860, 1878,
1878, 1905, 1923, 1923, 1950, 1968, 1968, 1995, 2013,
2013, 2040, 2058, 2058, 2085, 2103, 2103, 2130, 2148,
2148, 2175}
diffs[%]
{18, 0, 9, 9, 9, 0, 36, 9, 0, 18, 9, 18, 18, 9, 18, 18,
0, 9, 27, 9, 9, 27, 9, 9, 27, 9, 9, 27, 9, 9, 9, 9,
18, 18, 9, 18, 18, 9, 18, 18, 9, 18, 18, 9, 18, 18, 9,
18, 18, 9, 18, 18, 9, 18, 18, 9, 0, 36, 9, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 9, 18, 18, 9, 18, 18, 0, 27, 18, 0, 27, 18, 0,
27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0,
27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0, 27}
0, 9, 27, 9, 9, 27, 9, 9, 27, 9, 9, 27, 9, 9, 9, 9,
18, 18, 9, 18, 18, 9, 18, 18, 9, 18, 18, 9, 18, 18, 9,
18, 18, 9, 18, 18, 9, 18, 18, 9, 0, 36, 9, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27, 0, 18, 27,
0, 18, 9, 18, 18, 9, 18, 18, 0, 27, 18, 0, 27, 18, 0,
27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0,
27, 18, 0, 27, 18, 0, 27, 18, 0, 27, 18, 0, 27}
ListPlot[%,PlotJoinedTrue];
test[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
97 of 100
{{1, 10}, {2, 2}, {2, 8}, {3, 1}, {3, 7}, {4, 1}, {4, 7},
{5, 9}, {6, 3}, {6, 5}, {6, 10}, {7, 4}, {8, 9},
{8, 9}, {10, 5}}
{5, 9}, {6, 3}, {6, 5}, {6, 10}, {7, 4}, {8, 9},
{8, 9}, {10, 5}}
XGCEvolveLength[{bkr[1,3],bkr[2,1],bkr[3,1]},%206,150]
{15, 24, 42, 51, 69, 69, 78, 96, 105, 132, 141, 141,
150, 186, 186, 195, 231, 231, 240, 249, 267, 285, 294,
312, 321, 330, 348, 357, 366, 384, 393, 402, 411, 411,
438, 447, 447, 474, 483, 483, 510, 519, 519, 537, 546,
546, 555, 564, 564, 573, 582, 582, 591, 600, 600, 609,
618, 618, 627, 627, 636, 645, 645, 654, 663, 663, 672,
681, 681, 690, 699, 699, 708, 717, 717, 726, 735, 735,
744, 753, 753, 753, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762}
150, 186, 186, 195, 231, 231, 240, 249, 267, 285, 294,
312, 321, 330, 348, 357, 366, 384, 393, 402, 411, 411,
438, 447, 447, 474, 483, 483, 510, 519, 519, 537, 546,
546, 555, 564, 564, 573, 582, 582, 591, 600, 600, 609,
618, 618, 627, 627, 636, 645, 645, 654, 663, 663, 672,
681, 681, 690, 699, 699, 708, 717, 717, 726, 735, 735,
744, 753, 753, 753, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762, 762, 762, 762, 762,
762, 762, 762, 762, 762, 762, 762}
ListPlot[%,PlotJoinedTrue];
test[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
{46, 22, 0, 4, 0, 12, 0, 11, 4, 1}
test[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
{40, 22, 0, 6, 2, 9, 7, 11, 2, 1}
test[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
{33, 24, 0, 4, 2, 6, 11, 18, 0, 2}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},10,100]
{{34, 24, 0, 4, 1, 22, 9, 5, 1, 0}, {}}
testauto[{bkr[1,4],bkr[2,1],bkr[3,1]},10,100]
{{22, 77, 1, 0, 0, 0, 0, 0, 0, 0}, {}}
testauto[{bkr[1,4],bkr[2,2],bkr[3,1]},10,100]
{{24, 75, 1, 0, 0, 0, 0, 0, 0, 0}, {}}
testauto[{bkr[1,5],bkr[2,2],bkr[3,1]},10,100]
{{32, 62, 0, 0, 0, 6, 0, 0, 0, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},6,100]
{{57, 6, 0, 4, 0, 12, 11, 7, 3, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},6,100]
{{54, 2, 0, 4, 0, 19, 11, 8, 2, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},7,100]
{{80, 0, 0, 1, 0, 10, 1, 6, 1, 1}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},7,100]
{{77, 0, 0, 7, 0, 11, 1, 4, 0, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},6,100]
{{74, 2, 0, 0, 0, 5, 5, 11, 2, 1}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},6,100]
{{61, 5, 0, 3, 0, 10, 14, 5, 2, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,3]},6,100]
{{64, 4, 0, 0, 0, 7, 16, 7, 2, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,3]},7,100]
{{73, 0, 0, 9, 0, 8, 1, 8, 0, 1}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,3]},10,100]
{{42, 17, 0, 6, 1, 14, 10, 10, 0, 0}, {}}
testauto[{bkr[1,3],bkr[2,1],bkr[3,3]},10,400]
{{178, 97, 0, 16, 4, 29, 36, 40, 0, 0}, {}}
testauto[{bkr[1,5],bkr[2,1],bkr[3,3]},10,100]
{{34, 60, 1, 0, 0, 5, 0, 0, 0, 0}, {}}
testauto[{bkr[1,1],bkr[2,3],bkr[3,3]},20,100]
{{90, 0, 0, 8, 0, 1, 0, 1, 0, 0}, {}}
testauto[{bkr[1,1],bkr[2,3],bkr[3,3]},20,100]
{{92, 0, 0, 7, 0, 1, 0, 0, 0, 0}, {}}
testauto[{bkr[1,1],bkr[3,3]},20,100]
{{99, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {}}
Date[]
{1995, 5, 11, 5, 38, 49}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},6,]
4
10
{{6035, 297, 0, 221, 0, 1368, 1106, 645, 314, 14}, {}}
Date[]
{1995, 5, 11, 6, 17, 30}
testauto[{bkr[1,3],bkr[2,1],bkr[3,1]},10,]
4
10
{{4325, 2308, 0, 302, 155, 1004, 768, 1092, 26, 20}, {}}
Date[]
{1995, 5, 11, 6, 44, 17}
{{2821, 6616, 87, 0, 17, 459, 0, 0, 0, 0}, {}}
{1995, 5, 11, 6, 50, 2}
{{2892, 6539, 88, 3, 28, 450, 0, 0, 0, 0}, {}}