In[]:=
PairedDimension[{rule_,init_,steps_}]:=With[{wm=WolframModel[rule,init,steps,"StatesList"]},GraphicsColumn[{HypergraphPlot[Last[wm]],ListLinePlot[(*ahackforaListLinePlotbug*)Select[Length[#]>3&]@(HypergraphDimensionEstimateList/@Select[wm,Length[#]>10&]),FrameTrue,PlotRange{0,Automatic}]},FrameTrue,FrameStyleLightGray]]
In[]:=
ParallelEvaluate[Off[ParallelMap::subpar]]
Out[]=
{Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null}
In[]:=
(kernel 63)
HypergraphPlot::invalidEdges:First argument of HypergraphPlot must be list of lists, where elements represent vertices.
(kernel 64)
HypergraphPlot::invalidEdges:First argument of HypergraphPlot must be list of lists, where elements represent vertices.
During evaluation of In[112]:=
During evaluation of In[112]:=
Out[]=
