The copyright holder of this file allows anyone to use it for any purpose, provided that the copyright holder is properly attributed. Redistribution, derivative work, commercial use, and all other use is permitted.
The original description page was here. All following user names refer to en.wikipedia.
2010-03-05 10:12 JonMcLoone 800×3072× (246004 bytes) {{Information |Description = The Collatz orbits of the first 1000 integers created in Mathematica using the following source code f[(x_Integer)?EvenQ] := x/2; f[x_Integer] := 3*x + 1; f[1] = 1; Export["collatz1000mathematica.png", LayeredGraphPlot
Captions
Add a one-line explanation of what this file represents
{{Information |Description={{en|The Collatz orbits of the first 1000 integers created in Mathematica using the following source code f[(x_Integer)?EvenQ] := x/2; f[x_Integer] := 3*x + 1; f[1] = 1; Export[][][][][][][][#1] -> Rest[#1] & )[][f, x], {x, 1000