You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
NestGraph[x|->If[x<2,{1},{x-1,x-2}],6,10,VertexLabelsAutomatic]
Out[]=
In[]:=
NestGraph[x|->If[x<2,{1},{x^2-1,x-2}],2,5,VertexLabelsAutomatic]
Out[]=
3n+1 problem
3n+1 problem
In[]:=
NestGraph[x|->If[EvenQ[x],{x/2},{3x+1}],100,10,VertexLabelsAutomatic]
Out[]=
In[]:=
NestGraph[x|->If[Mod[x,3]==1,(x-1)/3,2x],100,10,VertexLabelsAutomatic]
Out[]=
In[]:=
NestGraph[x|->{If[Mod[x,3]==1,(x-1)/3,Nothing],2x},1,10,VertexLabelsAutomatic]
Out[]=
In[]:=
NestGraph[x|->{If[Mod[x,3]==1,(x-1)/3,Nothing],2x},1,20]
Out[]=
In[]:=
Solve[3x+1==y,x]
Out[]=
x(-1+y)
1
3
In[]:=
Table(-1+y),{y,10}
1
3
Out[]=
0,,,1,,,2,,,3
1
3
2
3
4
3
5
3
7
3
8
3
In[]:=
Options[TokenEventGraph]
Out[]=
{AllSubsetsTrue,TokenDeduplicationTrue,TokenMultiplicity1,AlignmentPointCenter,AnnotationRules{},AspectRatioAutomatic,AxesFalse,AxesLabelNone,AxesOriginAutomatic,AxesStyle{},BackgroundNone,BaselinePositionAutomatic,BaseStyle{},ContentSelectableAutomatic,DirectedEdgesAutomatic,EdgeCapacityAutomatic,EdgeCostAutomatic,EdgeLabelsNone,EdgeLabelStyleAutomatic,EdgeShapeFunctionAutomatic,EdgeStyleAutomatic,EdgeWeightAutomatic,EditableFalse,Epilog{},FormatTypeTraditionalForm,FrameFalse,FrameLabelNone,FrameStyle{},FrameTicksNone,FrameTicksStyle{},GraphHighlight{},GraphHighlightStyleAutomatic,GraphLayoutAutomatic,GraphRootAutomatic,GraphStyleAutomatic,GridLinesNone,GridLinesStyle{},ImageMargins0.,ImagePaddingAll,ImageSizeAutomatic,LabelStyle{},PerformanceGoalAutomatic,PlotLabelNone,PlotRangeAll,PlotRangeClippingFalse,PlotRangePaddingAutomatic,PlotRegionAutomatic,PlotThemeAutomatic,Prolog{},Properties{},RotateLabelTrue,TicksAutomatic,TicksStyle{},VertexCapacityAutomatic,VertexCoordinatesAutomatic,VertexLabelsNone,VertexLabelStyleAutomatic,VertexShapeAutomatic,VertexShapeFunctionAutomatic,VertexSizeAutomatic,VertexStyleAutomatic,VertexWeightAutomatic,EventDeduplicationFalse,TokenLabelingTrue,EventLabelingNone,TokenRenderingFunctionIdentity}
In[]:=
TokenEventGraph[{{n_}:>{n+1,n+2}},{1},4,"EventDeduplication"->True]
Out[]=
In[]:=
TokenEventGraph[{{n_}:>{n+1,n+2}},{1},4,"EventDeduplication"->False]
Out[]=