File:Gaussian primes.png

From Wikimedia Commons, the free media repository
Revision as of 13:04, 21 April 2023 by LERK (talk | contribs) (+{Convert to SVG})
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

Original file (1,200 × 1,198 pixels, file size: 16 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents
This math image could be re-created using vector graphics as an SVG file. This has several advantages; see Commons:Media for cleanup for more information. If an SVG form of this image is available, please upload it and afterwards replace this template with {{vector version available|new image name}}.


It is recommended to name the SVG file “Gaussian primes.svg”—then the template Vector version available (or Vva) does not need the new image name parameter.

Summary

[edit]
Description Gaussian primes with norm less than 500
Date
Source own work, with Mathematica 6.0
Author User:Hack
Permission
(Reusing this file)		 Public Domain

Licensing

[edit]
Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Mathematica Program

[edit]

poly[x_, y_] := 
    Polygon[{{x + 1/2, y + 1/2}, {x - 1/2, y + 1/2},
             {x - 1/2, y - 1/2}, {x + 1/2, y - 1/2}}];

primelist = 
    Module[{l, b}, l = {}; 
      Do[b = 0; 
        While[a^2 + b^2 < 500, If[PrimeQ[a + b I, GaussianIntegers -> True],
            l = Join[l, {poly[a, b], poly[a, -b], poly[-a, b], poly[-a, -b]}]]; 
          b = b + 1], {a, 0, 22}]; l];

gauss = Apply[Show, Join[Map[Graphics, primelist], {AspectRatio -> Automatic}]];

Export["gaussian prime.png", gauss, ImageSize -> 1200];

File history

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

Date/TimeThumbnailDimensionsUserComment
current16:27, 6 December 2007Thumbnail for version as of 16:27, 6 December 20071,200 × 1,198 (16 KB)Hack~commonswiki (talk | contribs){{Information |Description= Gaussian primes with norm less than 500 |Source= own work, with Mathematica 6.0 |Date= December 7, 2007 |Author= User:Hack |Permission= Public Domain |other_versions= }}

You cannot overwrite this file.

The following page uses this file:

File usage on other wikis

The following other wikis use this file:

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Gaussian_primes.png&oldid=752893180"