Summary

DescriptionCollatz1000mathematica.png	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	5 March 2010
Source	Own work   This diagram was created with Mathematica. (Original text: I (JonMcLoone (talk)) created this work entirely by myself.)
Author	Jon McLoone
Other versions	File:Collatz Orbits of FIrst 1000 Integers.svg is a vector version of this file. It should be used in place of this PNG file when not inferior. File:Collatz1000mathematica.png → File:Collatz Orbits of FIrst 1000 Integers.svg For more information, see Help:SVG. In other languages Alemannisch ∙ Bahasa Indonesia ∙ Bahasa Melayu ∙ British English ∙ català ∙ čeština ∙ dansk ∙ Deutsch ∙ eesti ∙ English ∙ español ∙ Esperanto ∙ euskara ∙ français ∙ Frysk ∙ galego ∙ hrvatski ∙ Ido ∙ italiano ∙ lietuvių ∙ magyar ∙ Nederlands ∙ norsk bokmål ∙ norsk nynorsk ∙ occitan ∙ Plattdüütsch ∙ polski ∙ português ∙ português do Brasil ∙ română ∙ Scots ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ suomi ∙ svenska ∙ Tiếng Việt ∙ Türkçe ∙ vèneto ∙ Ελληνικά ∙ беларуская (тарашкевіца) ∙ български ∙ македонски ∙ нохчийн ∙ русский ∙ српски / srpski ∙ татарча/tatarça ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−

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.
	Attribution

Original upload log

Transferred from en.wikipedia to Commons by Derlay using CommonsHelper.

• 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