In[]:=
PacletInstall["/Users/sw/Dropbox/Physics/CodeDevelopment/Paclets/CombinatorEvolve-0.0.1.paclet"]
Out[]=
PacletObject
In[]:=
<<CombinatorEvolve`
In[]:=
RepresentativeKernels[]:=Last/@First/@GatherBy[ParallelEvaluate[{$MachineName,#},#]&/@Kernels[],First]
In[]:=
SetAttributes[ParallelOnce,HoldFirst]
In[]:=
ParallelOnce[expr_]:=ParallelEvaluate[expr,RepresentativeKernels[]]
In[]:=
RepresentativeKernels[]
Out[]=
KernelObject,KernelObject,KernelObject,KernelObject,KernelObject
In[]:=
ParallelOnce[PacletInstall["/Users/sw/Dropbox/Physics/CodeDevelopment/Paclets/CombinatorEvolve-0.0.1.paclet"]]
(kernel 1)
PacletInstall::readonly:The PacletManager application is running in read-only mode; paclets cannot be installed or uninstalled.
(kernel 62)
PacletInstall::readonly:The PacletManager application is running in read-only mode; paclets cannot be installed or uninstalled.
Out[]=
$Failed,PacletObject,PacletObject,PacletObject,$Failed
In[]:=
ParallelEvaluate[<<CombinatorEvolve`]
In[]:=
SKCombinatorLeftmostOutermostLeafCounts[s[s][s][s[s]][s][s],1000]
In[]:=
ListLinePlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[s[s[s]][s][s[s[s][s]]][s],1000]],PlotRangeAll]
Out[]=
In[]:=
ListLinePlot[SKCombinatorLeftmostOutermostLeafCounts[s[s[s]][s][s[s[s][s]]][s],1000],PlotRangeAll,ScalingFunctions"Log"]
Out[]=
In[]:=
ListLinePlot[Ratios@SKCombinatorLeftmostOutermostLeafCounts[s[s[s]][s][s[s[s][s]]][s],1000],PlotRangeAll]
Out[]=
In[]:=
ListLinePlot[Ratios@SKCombinatorLeftmostOutermostLeafCounts[s[s][s[s][s]][s[s]][s][s],1000]]
Out[]=
In[]:=
ListLinePlot[Differences@SKCombinatorLeftmostOutermostLeafCounts[s[s][s[s][s]][s[s]][s][s],1000]]
Out[]=
SK8
SK8
A single k only
A single k only
Here’s my ordering.
SK8
SK8
SK9
SK9
SK9 Selection
SK9 Selection
SK10
SK10
NOTE: assuming <4 k’s
NOTE: assuming <4 k’s
Large array::
Large array::
SK10 +
SK10 +