Discrete iteration; infinite steps
Discrete iteration; infinite steps
In[]:=
NestGraph[n{2n,n+1},0,10]
Out[]=
In[]:=
g=RandomGraph[{10,20},VertexWeight10-Range[10]];Graph[g,VertexLabels(#Placed[{#,AnnotationValue[{g,#},VertexWeight]},{Above,Below}]&/@VertexList[g])]
Out[]=
In[]:=
ρ=Root[-1-#1+#1^3&,1];Graphics[Point/@Table[Mod[{n/ρ,n/ρ^2},1],{n,1,1000}]]
Out[]=
