File:Collatz1000mathematica.png
Summary
| Description |
English: 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["Collatz.png", LayeredGraphPlot[
DeleteCases[Union[Flatten[Table[(Rule @@ #1 & ) /@
Partition[FixedPointList[f, i], 2, 1], {i, 1000}]]],
1 -> 1], ImageSize -> 800]]
|
|||
| Date | ||||
| Source | Own work Category:PNG created with Mathematica#Collatz1000mathematica.png (Original text: I (JonMcLoone (talk)) created this work entirely by myself.) | |||
| Author | Jon McLoone | |||
| Other versions |
|
Licensing
| 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. | |
|
|
Original upload log
Transferred from en.wikipedia to Commons by Derlay using CommonsHelper.
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