In[]:=
AnnotationValue
,VertexWeight
Out[]=
{12,10,4,12,9,9,4,1}
In[]:=
Graph[MultiwaySystem[{"A""AB","B""A"},"A",8,"BranchialGraphStructure","IncludeStatePathWeights"True],VertexLabels"VertexWeight"]
Out[]=
In[]:=
cent[f_,gtest_,mult_:12]:=With[{cc=f[gtest]},Graph[gtest,VertexStyleRed,VertexSizeThread[VertexList[gtest]mult*(cc/Max[cc])]]]
Max
In[]:=
WeightedBranchial[g_,mult_:12]:=With[{cc=AnnotationValue[g,VertexWeight]},Graph[g,VertexStyleRed,VertexSizeThread[VertexList[g]mult*(cc/Sqrt[Total[cc^2]])]]]
In[]:=
WeightedBranchial
,1
Out[]=
In[]:=
WeightedBranchial
,2
Out[]=
In[]:=
AnnotationValue
,VertexWeight
Out[]=
{496,364,504,256,504,420,256,612,504,504,364,70,168,196,198,378,268,126,324,378,40,126,196,7,27,55,198,168,69,70,55,27,7,1}
In[]:=
%/Total[%]//N
Out[]=
{0.0625,0.0458669,0.0635081,0.0322581,0.0635081,0.0529234,0.0322581,0.0771169,0.0635081,0.0635081,0.0458669,0.00882056,0.0211694,0.0246976,0.0249496,0.047631,0.0337702,0.015877,0.0408266,0.047631,0.00504032,0.015877,0.0246976,0.000882056,0.00340222,0.00693044,0.0249496,0.0211694,0.00869456,0.00882056,0.00693044,0.00340222,0.000882056,0.000126008}
In[]:=
Max[%]
Out[]=
0.0771169
In[]:=
WeightedBranchialGraph[rule_,init_,t_,mult_:1]:=WeightedBranchial[Graph[MultiwaySystem[rule,init,t,"BranchialGraphStructure","IncludeStatePathWeights"True],VertexLabels"VertexWeight"],mult]
In[]:=
WeightedBranchialGraph[{"""A","""B"},"",5,2]
Out[]=