WOLFRAM NOTEBOOK

{{3,3}}{{7,3}},5

In[]:=
Select[Union[Table[RandomWolframModelRule[{{3,3}}{{7,3}},5],50]],NewVerticesQ]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=
In[]:=
SafeModelTest[{{1,2,2},{2,3,4},{3,1,4}}{{1,1,4},{1,3,3},{2,4,5},{4,1,3},{4,5,3},{5,3,1},{5,4,1}},15,10]
Out[]=
In[]:=
SafeModelCount[{{1,2,2},{2,3,4},{3,1,4}}{{1,1,4},{1,3,3},{2,4,5},{4,1,3},{4,5,3},{5,3,1},{5,4,1}},15,10]
Out[]=
{3,7,11,19,31,43,63,83,107,135,171,211,267,331,419,523}
In[]:=
FindSequenceFunction[%]
Out[]=
FindSequenceFunction[{3,7,11,19,31,43,63,83,107,135,171,211,267,331,419,523}]
In[]:=
Differences[%92]
Out[]=
{4,4,8,12,12,20,20,24,28,36,40,56,64,88,104}
In[]:=
Differences[%]
Out[]=
{0,4,4,0,8,0,4,4,8,4,16,8,24,16}
In[]:=
SafeModelCount[{{1,2,2},{2,3,4},{3,1,4}}{{1,1,4},{1,3,3},{2,4,5},{4,1,3},{4,5,3},{5,3,1},{5,4,1}},25,10]
Out[]=
{3,7,11,19,31,43,63,83,107,135,171,211,267,331,419,523,639,799,1007,1263,1579,1983,2495,3143,3963,4959}
In[]:=
NestList[Differences,%,3]
Out[]=
In[]:=
WolframModel[{{1,2,2},{2,3,4},{3,1,4}}{{1,1,4},{1,3,3},{2,4,5},{4,1,3},{4,5,3},{5,3,1},{5,4,1}},Table[0,3,3],20,"CausalGraph"]
Out[]=
In[]:=
LayeredGraphPlot[%]
Out[]=

Another rule

{{3,2}}{{7,2}},5

Another rule

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.