In[]:=
EnumerateWolframModelRules[{{1,2}}{{2,2}}]
Out[]=
In[]:=
GatherBy[ParallelMapMonitored[{WolframModelTest[#,Automatic]["Sizes"],#}&,%],First];
In[]:=
First/@%
Out[]=
In[]:=
EnumerateWolframModelRules[{{1,2}}{{3,2}}];
In[]:=
GatherBy[ParallelMapMonitored[{WolframModelTest[#,Automatic]["Sizes"],#}&,%],First];
In[]:=
First/@%
Out[]=
In[]:=
$PhysicsDataDirectory
Out[]=
/Users/sw/Dropbox/Physics/Data
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/12-42c.wxf"];
In[]:=
GatherBy[ParallelMapMonitored[{WolframModelTest[#,Automatic]["Sizes"],#}&,allrules],First];
In[]:=
First/@%
Out[]=
In[]:=
First/@%
Out[]=
In[]:=
FindLinearRecurrence/@%
Out[]=
{{4},{-1,17},{-1,14},FindLinearRecurrence[{1,4,13,40}],FindLinearRecurrence[{1,4,10,22}],{2,-1},{3,-2},{2,-1},{2,-1},{1},{2,-1},{4,-3},{4}}
In[]:=
Length/@WolframModel[{{1,1}}{{1,1},{1,1},{1,2},{2,2}},{{0,0}},8,"StatesList"]
Out[]=
{1,4,13,40,121,364,1093,3280,9841}
In[]:=
FindLinearRecurrence[%]
Out[]=
{4,-3}
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/13-23c.wxf"];
In[]:=
GatherBy[ParallelMapMonitored[{WolframModelTest[#,Automatic]["Sizes"],#}&,allrules],First];
In[]:=
First/@%
Out[]=
In[]:=
First/@%
Out[]=
In[]:=
FindLinearRecurrence/@%
Out[]=
{{1,2,1}}{{1,1,2},{2,3,2}}
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"];
In[]:=
GatherBy[ParallelMapMonitored[{WolframModelTest[#,Automatic]["Sizes"],#}&,allrules],First];
In[]:=
First/@%
Out[]=
In[]:=
{FindLinearRecurrence[#[[1]]],#[[1]],#[[2]]}&/@%
Out[]=
In[]:=
First/@%
Out[]=