Fișier:Gaussian primes.png

Conținutul paginii nu este suportat în alte limbi.
De la Wikipedia, enciclopedia liberă

Mărește rezoluția imaginii ‎(1.200 × 1.198 pixeli, mărime fișier: 16 KB, tip MIME: image/png)

Acest fișier se află la Wikimedia Commons. Consultați pagina sa descriptivă acolo.
Imaginile din această galerie trebuie recreat(ă/e) sub format vectorial ca fișier SVG. Acest format are mai multe avantaje; vezi Commons:Media for cleanup pentru mai multe informații. Dacă deja este disponibilă o versiune SVG a acestei imagini, vă rugăm să o încărcați. După încărcarea pe serverele Commons a versiunii SVG, înlocuiți acest format cu formatul {{vector version available|noul nume al imaginii.svg}}.

Descriere fișier

Descriere Gaussian primes with norm less than 500
Dată
Sursă own work, with Mathematica 6.0
Autor User:Hack
Permisiune
(Reutilizarea acestui fișier)		 Public Domain

Licențiere

Public domain Eu, deținătorul drepturilor de autor ale acestei opere, o eliberez domeniului public. Aceasta se aplică în întreaga lume.
În anumite țări există posibilitatea ca acest lucru să nu fie legal posibil; în acest caz:
permit oricui să utilizeze această operă în orice scop, fără nicio condiție, atâta timp cât asemenea condiții nu sunt cerute de lege.

Mathematica Program


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];

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

subiectul reprezentat

înființare

7 decembrie 2007

Istoricul fișierului

Apăsați pe Data și ora pentru a vedea versiunea trimisă atunci.

Data și oraMiniaturăDimensiuniUtilizatorComentariu
actuală6 decembrie 2007 19:27Miniatură pentru versiunea din 6 decembrie 2007 19:271.200x1.198 (16 KB)Hack~commonswiki{{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= }}

Următoarele pagini conțin această imagine:

Utilizarea globală a fișierului

Următoarele alte proiecte wiki folosesc acest fișier:

Adus de la https://ro.wikipedia.org/wiki/Fișier:Gaussian_primes.png