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[]:=
allrules=;
In[]:=
Catenate[allrules]
Out[]=
In[]:=
(First/@Gather[ParallelMapMonitored[Catch[Module[{u},Do[u=MultiwaySystem[#,"A",t,"BranchialGraphStructure","IncludeStatePathWeights"True];If[VertexCount[u]>150||EdgeCount[u]>150,Throw[u]],{t,5}];u]]#&,Catenate[allrules]],IsomorphicGraphQ[First[#],First[#2]]&])
Out[]=
In[]:=
WeightedBranchial[First[#]]Last[#]&/@%150
Out[]=
In[]:=
WeightedBranchial[First[#],2]Last[#]&/@%150
Out[]=
In[]:=
AnnotationValue[MultiwaySystem[{"A""B","B""AB"},"AB",9,"BranchialGraphStructure","IncludeStatePathWeights"True],VertexWeight]
Out[]=
{1,9,44,119,209,251,209,119,44,9,147,495,873,957,675,297,70,572,1650,2420,2112,1100,297,1148,2772,3260,2112,675,1554,3696,4260,2706,850,1430,2772,2420,957,3630,6930,5940,2310,4400,8316,7040,2706,1148,1650,873,4194,5940,3094,8250,11550,5940,5954,8250,4194,8112,11220,5692,572,495,2706,2310,7040,5940,8316,6930,11088,9240,4400,3630,11220,9240,13640,11220,147,850,2706,4260,5560,3696,9240,11088,1554,5692,11220,8112,11056}
In[]:=
Histogram[%]
Out[]=
In[]:=
{"A""B","B""AB"}
Out[]=
{AB,BAB}
In[]:=
WeightedBranchialGraph[{"A""AB"},"AAA",9,5]
Out[]=