In[]:=
MWCoordGraph[f_,init_?NumericQ,t_,rat_:1,opts:OptionsPattern[]]:=With[{g=NestGraph[f,init,t,opts]},Graph[g,VertexCoordinates(#{rat#t/(Max[VertexList[g]]-Min[VertexList[g]]),-GraphDistance[g,init,#]}&/@VertexList[g])]]
In[]:=
MWLogCoordGraph[f_,init_?NumericQ,t_,rat_:1,opts:OptionsPattern[]]:=With[{g=NestGraph[f,init,t,opts]},Graph[g,VertexCoordinates(#{rattN[Log[Max[VertexList[g]],1+#]],-GraphDistance[g,init,#]}&/@VertexList[g])]]
In[]:=
MWCoordGraph[n{BitXor[n+1,2n],n+1},1,10]
Out[]=
In[]:=
MWLogCoordGraph[n{BitXor[n+1,2n],n+1},1,10]
Out[]=
In[]:=
MWLogCoordGraph[n{3n,2n,n+1},1,7]
Out[]=
In[]:=
MWLogCoordGraph[n{3n,2n},1,7]
Out[]=
In[]:=
MWLogCoordGraph[n{n+1,2n},1,7]
Out[]=
In[]:=
MWCoordGraph[n{n+1,2n},1,7]
Out[]=
In[]:=
MWCoordGraph[n{n+1,3/2n},1,7]
Out[]=
Causal Graphs
Causal Graphs
Index Equations
Index Equations
Causal Invariance
Causal Invariance