In[]:=
Rule@@@{"CCBB"↔"BBCC","BCCCBB"↔"CBBBCC","ACCBB"↔"BBA","ABCCCBB"↔"CBBA","BBCCBBBBCC"↔"BBCCBBBBCCA"}
Out[]=
{CCBBBBCC,BCCCBBCBBBCC,ACCBBBBA,ABCCCBBCBBA,BBCCBBBBCCBBCCBBBBCCA}
In[]:=
Join[%,Reverse/@%]
Out[]=
{CCBBBBCC,BCCCBBCBBBCC,ACCBBBBA,ABCCCBBCBBA,BBCCBBBBCCBBCCBBBBCCA,BBCCCCBB,CBBBCCBCCCBB,BBAACCBB,CBBAABCCCBB,BBCCBBBBCCABBCCBBBBCC}
In[]:=
MultiwaySystem[{"CCBB""BBCC","BCCCBB""CBBBCC","ACCBB""BBA","ABCCCBB""CBBA","BBCCBBBBCC""BBCCBBBBCCA","BBCC""CCBB","CBBBCC""BCCCBB","BBA""ACCBB","CBBA""ABCCCBB","BBCCBBBBCCA""BBCCBBBBCC"},"BBBBABB",10,"StatesGraph"]
Out[]=
In[]:=
Graph[MultiwaySystem[{"CCBB""BBCC","BCCCBB""CBBBCC","ACCBB""BBA","ABCCCBB""CBBA","BBCCBBBBCC""BBCCBBBBCCA","BBCC""CCBB","CBBBCC""BCCCBB","BBA""ACCBB","CBBA""ABCCCBB","BBCCBBBBCCA""BBCCBBBBCC"},"BBBBABB",10,"StatesGraph"],VertexShapeFunctionAutomatic]
Out[]=
In[]:=
Graph[MultiwaySystem[{"CCBB""BBCC","BCCCBB""CBBBCC","ACCBB""BBA","ABCCCBB""CBBA","BBCCBBBBCC""BBCCBBBBCCA","BBCC""CCBB","CBBBCC""BCCCBB","BBA""ACCBB","CBBA""ABCCCBB","BBCCBBBBCCA""BBCCBBBBCC"},"BBBBABB",15,"StatesGraph"],VertexShapeFunctionAutomatic]
Out[]=
“I can’t decide”
In[]:=
ImageIdentify
Out[]=
In[]:=
ImageIdentify
,All,10,"Probability"
Out[]=
In[]:=
Length/@MultiwaySystem[{"CCBB""BBCC","BCCCBB""CBBBCC","ACCBB""BBA","ABCCCBB""CBBA","BBCCBBBBCC""BBCCBBBBCCA","BBCC""CCBB","CBBBCC""BCCCBB","BBA""ACCBB","CBBA""ABCCCBB","BBCCBBBBCCA""BBCCBBBBCC"},"BBBBABB",20]
Out[]=
{1,1,3,5,5,7,7,12,18,33,58,107,187,333,571,979,1627,2701,4404,7175,11530}
In[]:=
Ratios[%]//N
Out[]=
{1.,3.,1.66667,1.,1.4,1.,1.71429,1.5,1.83333,1.75758,1.84483,1.74766,1.78075,1.71471,1.71454,1.6619,1.66011,1.63051,1.6292,1.60697}