Jump to content

File:Collatz1000mathematica.png

Page contents not supported in other languages.
This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia

Original file (800 × 3,072 pixels, file size: 240 KB, MIME type: image/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
 
This diagram was created with Mathematica.
(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

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

5 March 2010

image/png

c54ac7fed0ba429841f17b26468a536e9b087742

246,004 byte

3,072 pixel

800 pixel

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current10:05, 25 May 2010Thumbnail for version as of 10:05, 25 May 2010800 × 3,072 (240 KB)Derlay{{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
No pages on the English Wikipedia use this file (pages on other projects are not listed).