File:Gaussian primes.png

Da Wikimedia Commons, l'archivio di file multimediali liberi
Vai alla navigazione Vai alla ricerca

File originale(1 200 × 1 198 pixel, dimensione del file: 16 KB, tipo MIME: image/png)

Didascalie

Didascalie

Aggiungi una brevissima spiegazione di ciò che questo file rappresenta
Questa immagine (categorizzazione automatica: math) o tutte le immagini in questa categoria o galleria dovrebbero essere ricreate usando grafica vettoriale come file SVG. Questo offre diversi vantaggi: vedi Commons:Media for cleanup per maggiori informazioni. Se è disponibile una versione in formato SVG di questa immagine, per favore caricala. Dopo aver caricato un file SVG, sostituisci questo avviso con il template {{Vector version available|nome_immagine.svg}}.

Dettagli[modifica]

Descrizione Gaussian primes with norm less than 500
Data
Fonte own work, with Mathematica 6.0
Autore User:Hack
Licenza
(Riusare questo file)
Public Domain

Licenza[modifica]

Public domain Io, detentore del copyright su quest'opera, la rilascio nel pubblico dominio. Questa norma si applica in tutto il mondo.
In alcuni paesi questo potrebbe non essere legalmente possibile. In tal caso:
Garantisco a chiunque il diritto di utilizzare quest'opera per qualsiasi scopo, senza alcuna condizione, a meno che tali condizioni siano richieste dalla legge.

Mathematica Program[modifica]


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

Cronologia del file

Fare clic su un gruppo data/ora per vedere il file come si presentava nel momento indicato.

Data/OraMiniaturaDimensioniUtenteCommento
attuale16:27, 6 dic 2007Miniatura della versione delle 16:27, 6 dic 20071 200 × 1 198 (16 KB)Hack~commonswiki (discussione | contributi){{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= }}

Nessuna pagina utilizza questo file.

Utilizzo globale del file

Anche i seguenti wiki usano questo file: