In[]:=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA"},"A",10,"StatesGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA"},"A",10,"CausalGraph"]
Out[]=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA"},"A",10,"CausalGraph"]
In[]:=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA","B""YA","C""YA","D""YA"},"A",10,"CausalGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA","B""YA","C""YA","D""YA","X""Y","Y""X"},"A",7,"CausalGraphStructure"]//LayeredGraphPlot
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""B","A""C","A""D","B""XA","C""XA","D""XA","B""YA","C""YA","D""YA","X""Y","Y""X"},"A",7,"CausalGraphStructure"]
Out[]=