In[]:=
RandomWolframModel[{{3,2}}{{7,2}}]
Out[]=
{{1,2},{2,3},{4,3}}{{4,2},{4,5},{2,6},{5,1},{7,6},{3,8},{8,9}}
In[]:=
est[{{3,2}}{{7,2}}]
Out[]=
1847291365549
1080
In[]:=
N[%]
Out[]=
1.71045×
9
10
In[]:=
ShowSamples[rules_]:=ParallelMapMonitored[Function[r,If[Head[#]=!=List,Echo[{r,#}];Graphics[],If[#{}||!ConnectedHypergraphQ[#],Nothing,HypergraphPlot[#,ImageSizeTiny]]]&[WolframModelTest[r,Automatic]["FinalState"]]],rules]
In[]:=
rrules=ParallelTable[RandomWolframModel[{{3,2}}{{7,2}}],100];
In[]:=
ShowSamples[rrules]
(kernel 66)
>> {{{1,2},{1,3},{2,4}}{{1,1},{1,5},{6,5},{6,4},{4,7},{8,6},{9,7},{2,3}},$Aborted}
(kernel 67)
>> {{{1,2},{2,3},{4,3}}{{4,4},{5,2},{5,6},{7,5},{3,7},{8,7},{9,3},{10,8}},$Aborted}
(kernel 65)
>> {{{1,2},{1,3},{2,3}}{{4,4},{5,4},{5,6},{6,4},{6,7},{8,4},{9,6},{2,8}},$Aborted}
(kernel 68)
>> {{{1,2},{1,3},{1,4}}{{5,6},{5,1},{6,1},{7,2},{7,2},{7,8},{2,9},{10,3}},$Aborted}
(kernel 66)
>> {{{1,2},{2,3},{4,3}}{{5,5},{6,5},{6,7},{8,7},{3,8},{9,1},{9,10},{2,9}},$Aborted}
(kernel 65)
>> {{{1,2},{1,3},{2,4}}{{5,3},{5,2},{3,6},{6,7},{1,8},{8,9},{9,4},{10,8}},$Aborted}
Out[]=
In[]:=
rrules=ParallelTable[RandomWolframModel[{{3,2}}{{8,2}}],100];
In[]:=
ShowSamples[rrules]
(kernel 65)
>> {{{1,2},{1,3},{4,2}}{{2,5},{5,2},{2,6},{4,5},{4,7},{3,6},{8,9},{9,1}},$Aborted}
(kernel 66)
>> {{{1,2},{2,3},{3,4}}{{5,5},{5,3},{4,6},{4,7},{6,7},{6,2},{8,4},{8,9}},$Aborted}
(kernel 65)
>> {{{1,2},{1,3},{4,2}}{{5,6},{6,5},{5,7},{6,8},{7,2},{1,5},{9,1},{10,9}},$Aborted}
Out[]=
In[]:=
rrules=ParallelTable[RandomWolframModel[{{3,2}}{{9,2}}],100];
In[]:=
ShowSamples[rrules]
(kernel 66)
>> {{{1,2},{1,3},{4,2}}{{2,5},{5,2},{2,6},{5,7},{6,8},{7,3},{9,6},{10,3},{11,4}},$Aborted}
(kernel 65)
>> {{{1,1},{1,2},{2,3}}{{4,4},{4,5},{5,6},{6,3},{3,1},{7,3},{8,1},{8,7},{9,8}},$Aborted}
(kernel 68)
>> {{{1,2},{1,3},{2,3}}{{4,5},{4,2},{5,2},{4,6},{5,7},{5,8},{9,5},{10,1},{1,3}},$Aborted}
(kernel 66)
>> {{{1,2},{2,3},{3,4}}{{5,5},{5,2},{5,6},{2,1},{2,7},{6,8},{4,3},{9,3},{10,3}},$Aborted}
(kernel 65)
>> {{{1,2},{2,3},{4,3}}{{5,4},{5,6},{4,6},{5,7},{6,8},{7,9},{8,10},{9,3},{1,7}},$Aborted}
Out[]=
In[]:=
rrules=ParallelTable[RandomWolframModel[{{2,2}}{{7,2}}],100];
In[]:=
ShowSamples[rrules]
Out[]=
In[]:=
RuleSignatureForm[{{2,2}}{{7,2}}]
Out[]=
2
2
7
2
In[]:=
$PhysicsDataDirectory
Out[]=
/Users/sw/Dropbox/Physics/Data
In[]:=
Export["/Users/sw/Dropbox/Physics/Data/RuleSamples/22n2-01.wxf",Association[Monitor[Table[n->ParallelTable[RandomWolframModel[{{2,2}}{{n,2}}],100],{n,10}],n]]]
Out[]=
/Users/sw/Dropbox/Physics/Data/RuleSamples/22n2-01.wxf
In[]:=
Export["/Users/sw/Dropbox/Physics/Data/RuleSamples/32n2-01.wxf",Association[Monitor[Table[n->ParallelTable[RandomWolframModel[{{3,2}}{{n,2}}],200],{n,10}],n]]]
Out[]=
/Users/sw/Dropbox/Physics/Data/RuleSamples/32n2-01.wxf
In[]:=
Export["/Users/sw/Dropbox/Physics/Data/RuleSamples/23n3-01.wxf",Association[Monitor[Table[n->ParallelTable[RandomWolframModel[{{2,3}}{{n,3}}],200],{n,10}],n]]]
Out[]=
/Users/sw/Dropbox/Physics/Data/RuleSamples/23n3-01.wxf
In[]:=
Export["/Users/sw/Dropbox/Physics/Data/RuleSamples/33n3-01.wxf",Association[Monitor[Table[n->ParallelTable[RandomWolframModel[{{3,3}}{{n,3}}],200],{n,10}],n]]]
Out[]=
/Users/sw/Dropbox/Physics/Data/RuleSamples/33n3-01.wxf
all=Import["/Users/sw/Dropbox/Physics/Data/RuleSamples/22n2-01.wxf"];GraphicsGrid[Table[Prepend[Take[ShowSamples[all[n]],15],RuleSignatureForm[{{2,2}}{{n,2}}]],{n,3,8}]]
Grid
In[]:=
ShowSamples[rules_]:=ParallelMapMonitored[Function[r,If[Head[#]=!=List,Echo[{r,#}];Graphics[],If[#{}||!ConnectedHypergraphQ[#],Nothing,HypergraphPlot[#,ImageSizeTiny]]]&[WolframModelTest[r,Automatic]["FinalState"]]],rules]
In[]:=
Rasterize/@%125
Out[]=
In[]:=
Labeled[#,ImageIdentify[#]]&/@%
Out[]=
