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 »
WOLFRAM NOTEBOOK
In[]:=
aps=Select[Catenate[Values[$LifeParts[#]]&/@Keys[$LifeParts]],Length[#]<300&&Times@@Dimensions[#[[-1]]]<=1000&];
In[]:=
apsi=Select[Catenate[Values[$LifeParts[#]]&/@Keys[$LifeParts]],Length[#]<300&&Times@@Dimensions[#[[-1]]]<=1000&->"Index"];
In[]:=
Take[apsi,-40]
Out[]=
{1120,1122,1123,1124,1125,1126,1127,1128,1129,1130,1131,1132,1133,1134,1136,1137,1138,1139,1140,1141,1142,1143,1144,1145,1146,1147,1148,1149,1150,1151,1152,1153,1154,1155,1156,1157,1158,1159,1160,1161}
In[]:=
ByteCount[aps]
Out[]=
41061632
In[]:=
matall=ParallelTable[Boole[SubsetQ[aps[[j]],aps[[i]]]],{i,1,Length[aps]},{j,1,Length[aps]}];
In[]:=
CloudExport[matall,"WXF",Permissions->"Public"]
Out[]=
In[]:=
diffs=DeleteCases[Position[matall,1],{x_,x_}];
In[]:=
ListPlot[diffs,Frame->True,FrameLabel->{"dependents","patterns"}]
Out[]=
In[]:=
FindFit[Take[With[{tots=ReverseSort[Total/@matall]},tots/Total[tots]],50],an^b,{a,b},n]
Out[]=
{a0.147923,b-1.05267}
In[]:=
an^b/.%294
Out[]=
0.147923
1.05267
n
In[]:=
ShowListLogLogPlot[Take[With[{tots=ReverseSort[Total/@matall]},tots/Total[tots]],50]],LogLogPlot,{n,1,50}
0.14792313853912462`
1.052665535639021`
n
Out[]=
In[]:=
qnames=names[[ReverseSortBy[Range[Length[matall]],Total[matall[[#]]]&]]];
In[]:=
ListPlot[Map[{#[[1,1]],Total[Last/@#]}&,GatherBy[With[{tots=ReverseSort[Total/@matall]},Table[{$LifeData[qnames[[i]]]["Year"],tots[[i]]/Total[tots]},{i,Length[tots]}]],First]],Filling->Axis,PlotRange->All]
Out[]=
In[]:=
Total[{}]
Out[]=
0
In[]:=
ListStepPlot[With[{o=With[{tots=ReverseSort[Total/@matall]},Table[{$LifeData[qnames[[i]]]["Year"],tots[[i]]/Total[tots]},{i,Length[tots]}]]},Table[{y,Total[Cases[o,{y,x_}->x]]},{y,1969,2025}]],Filling->Axis,Frame->True,AspectRatio->.4,PlotRange->All,ScalingFunctions->"Log"]
Out[]=
In[]:=
ListStepPlot[With[{o=With[{tots=ReverseSort[Total/@matall]},Table[{$LifeData[qnames[[i]]]["Year"],tots[[i]]/Total[tots]},{i,Length[tots]}]]},Table[{y,Total[Cases[o,{y,x_}->x]]},{y,1969,2025}]],Filling->Axis,Frame->True,AspectRatio->.4,PlotRange->All]
Out[]=
In[]:=
matall[[7,6]]