In[]:=
Table[Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,1,t]],{t,15}]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
Table[Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,2,t]],{t,15}]
Out[]=
$Aborted[]
In[]:=
Table[FileByteCount[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,2,t]],{t,15}]
Out[]=
{951,1282,2122,4081,9761,21185,45417,95921,200225,413570,847908,2219656,4639304,9513544,19315912}
In[]:=
Table[FileByteCount[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][2,2,t]],{t,15}]
Out[]=
{1051,1800,3705,9977,22913,51009,110737,235554,493570,1022148,2981128,6222536,12771912,25973320,52524873}
In[]:=
Table[FileByteCount[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,3,t]],{t,15}]
Out[]=
{1001,1809,5338,17824,58834,188668,592393,2356023,7481001,22994283,69802726,210717942,634400592,$Failed,$Failed}
In[]:=
gr12=Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,2,15]];
In[]:=
VertexCount[gr12]
Out[]=
433280
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"][gr12,{1},4]
Out[]=
1{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gr12],{1}]
Out[]=
1{1,7,26,74,180,412,900,1924,4028,8348,17116,34908,70780,118654,215040,433280}
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"][Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,2,12]],{1}]
Out[]=
1{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544}
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][1,2,12]]],{1}]
Out[]=
1{1,7,26,74,180,412,900,1924,4028,8348,14110,25824,52544}
In[]:=
Ratios[{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}]//N
Out[]=
{5.,3.6,2.77778,2.48,2.32258,2.22222,2.1625,2.11561,2.08743,2.06283,2.04822,2.0347,2.0268,2.01923,2.01488}
In[]:=
(Ratios/@{{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280},{1,7,26,74,180,412,900,1924,4028,8348,17116,34908,70780}})-2
Out[]=
3,,,,,,,,,,,,,,,5,,,,,,,,,,,
8
5
7
9
12
25
10
31
2
9
13
80
20
173
16
183
12
191
19
394
28
807
22
821
1
52
5
336
12
7
11
13
16
37
13
45
19
103
31
225
45
481
73
1007
105
2087
169
4279
241
8727
In[]:=
ListLogPlot[%,JoinedTrue,MeshAll]
Out[]=
In[]:=
Table[{s,k,Last[Flatten[Position[Table[FileExistsQ[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][s,k,t]],{t,15}],True]]]},{s,4},{k,4}]
Out[]=
{{{1,1,15},{1,2,15},{1,3,13},{1,4,Last[{}]}},{{2,1,15},{2,2,15},{2,3,11},{2,4,Last[{}]}},{{3,1,15},{3,2,15},{3,3,10},{3,4,Last[{}]}},{{4,1,15},{4,2,14},{4,3,Last[{}]},{4,4,Last[{}]}}}
{{1,1,15},{1,2,15},{1,3,13},{2,1,15},{2,2,15},{2,3,11},{3,1,15},{3,2,15},{3,3,10},{4,1,15},{4,2,14}}
[[[ TO BE RUN ]]]
[[[ TO BE RUN ]]]
In[]:=
Map[Function[{s,k,t},Echo@{s,k,First[Values[ResourceFunction["GraphNeighborhoodVolumes"][Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][s,k,t]],{1}]]]}]@@#&,{{1,1,15},{1,2,15},{1,3,13},{2,1,15},{2,2,15},{2,3,11},{3,1,15},{3,2,15},{3,3,10},{4,1,15},{4,2,14}}]
»
{1,1,{1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31}}
»
{1,2,{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}}
In[]:=
Map[Function[{s,k,t},FileByteCount[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][s,k,t]]]@@#&,{{1,1,15},{1,2,15},{1,3,13},{2,1,15},{2,2,15},{2,3,11},{3,1,15},{3,2,15},{3,3,10},{4,1,15},{4,2,14}}]
Out[]=
{1657,19315912,634400592,2719,52524873,189245733,4012,99496393,118255954,5537,79340105}
In[]:=
Map[Function[{s,k,t},Echo@{s,k,First[Values[ResourceFunction["GraphNeighborhoodVolumes"][Import[StringTemplate["/Users/sw/Dropbox/Physics/Data/RulialTMGraphs/s``k``-t``.wxf"][s,k,t]],{1}]]]}]@@#&,{{1,1,15},{1,2,15},{1,3,11},{2,1,15},{2,2,14},{2,3,9},{3,1,15},{3,2,13},{3,3,8},{4,1,15},{4,2,11}}]
»
{1,1,{1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31}}
»
{1,2,{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}}
»
{1,3,{1,7,39,153,543,1809,5787,18117,55755,170181,515727,1557873}}
»
{2,1,{1,5,10,14,18,22,26,30,34,38,42,46,50,54,58,62}}
»
{2,2,{1,9,36,100,248,576,1280,2768,5856,12224,25216,51648,105088,212992,430080}}
»
{2,3,{1,13,78,306,1086,3618,11574,36234,111510,340362}}
»
{3,1,{1,7,15,21,27,33,39,45,51,57,63,69,75,81,87,93}}
»
{3,2,{1,13,54,150,372,864,1920,4152,8784,18336,37824,77472,157632,319488}}
»
{3,3,{1,19,117,459,1629,5427,17361,54351,167265}}
»
{4,1,{1,9,20,28,36,44,52,60,68,76,84,92,100,108,116,124}}
»
{4,2,{1,17,72,200,496,1152,2560,5536,11712,24448,50432,103296}}
Out[]=
{{1,1,{1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31}},{1,2,{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}},{1,3,{1,7,39,153,543,1809,5787,18117,55755,170181,515727,1557873}},{2,1,{1,5,10,14,18,22,26,30,34,38,42,46,50,54,58,62}},{2,2,{1,9,36,100,248,576,1280,2768,5856,12224,25216,51648,105088,212992,430080}},{2,3,{1,13,78,306,1086,3618,11574,36234,111510,340362}},{3,1,{1,7,15,21,27,33,39,45,51,57,63,69,75,81,87,93}},{3,2,{1,13,54,150,372,864,1920,4152,8784,18336,37824,77472,157632,319488}},{3,3,{1,19,117,459,1629,5427,17361,54351,167265}},{4,1,{1,9,20,28,36,44,52,60,68,76,84,92,100,108,116,124}},{4,2,{1,17,72,200,496,1152,2560,5536,11712,24448,50432,103296}}}
In[]:=
data
Out[]=
{{1,1,{1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31}},{1,2,{1,5,18,50,124,288,640,1384,2928,6112,12608,25824,52544,106496,215040,433280}},{1,3,{1,7,39,153,543,1809,5787,18117,55755,170181,515727,1557873}},{2,1,{1,5,10,14,18,22,26,30,34,38,42,46,50,54,58,62}},{2,2,{1,9,36,100,248,576,1280,2768,5856,12224,25216,51648,105088,212992,430080}},{2,3,{1,13,78,306,1086,3618,11574,36234,111510,340362}},{3,1,{1,7,15,21,27,33,39,45,51,57,63,69,75,81,87,93}},{3,2,{1,13,54,150,372,864,1920,4152,8784,18336,37824,77472,157632,319488}},{3,3,{1,19,117,459,1629,5427,17361,54351,167265}},{4,1,{1,9,20,28,36,44,52,60,68,76,84,92,100,108,116,124}},{4,2,{1,17,72,200,496,1152,2560,5536,11712,24448,50432,103296}}}
In[]:=
{#1,#2,N@Last[Ratios[#3]]}&@@@%
Out[]=
{{1,1,1.06897},{1,2,2.01488},{1,3,3.02073},{2,1,1.06897},{2,2,2.01923},{2,3,3.0523},{3,1,1.06897},{3,2,2.0268},{3,3,3.0775},{4,1,1.06897},{4,2,2.04822}}
Group theory
Group theory
Finite automata
Finite automata
Causal Graph
Causal Graph