File:Gaussian primes.png

Une page de Wikimedia Commons, la médiathèque libre.
Aller à la navigation Aller à la recherche

Fichier d’origine ‎(1 200 × 1 198 pixels, taille du fichier : 16 kio, type MIME : image/png)

Légendes

Légendes

Ajoutez en une ligne la description de ce que représente ce fichier
Cette image (de type math) devrait être recréée dans un format vectoriel, en tant que fichier SVG. Cela offrirait plusieurs avantages : voir Commons:Media for cleanup pour plus d'informations. Si une version SVG de cette image est déjà disponible, merci de bien vouloir l'envoyer. Après cela, remplacez ce modèle par {{vector version available|nouveau nom d'image.svg}}.

Description

[modifier]
Description Gaussian primes with norm less than 500
Date
Source own work, with Mathematica 6.0
Auteur User:Hack
Autorisation
(Réutilisation de ce fichier)		 Public Domain

Conditions d’utilisation

[modifier]
Public domain Moi, propriétaire des droits d’auteur sur cette œuvre, la place dans le domaine public. Ceci s'applique dans le monde entier.
Dans certains pays, ceci peut ne pas être possible ; dans ce cas :
J’accorde à toute personne le droit d’utiliser cette œuvre dans n’importe quel but, sans aucune condition, sauf celles requises par la loi.

Mathematica Program

[modifier]

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

Historique du fichier

Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.

Date et heureVignetteDimensionsUtilisateurCommentaire
actuel6 décembre 2007 à 16:27Vignette pour la version du 6 décembre 2007 à 16:271 200 × 1 198 (16 kio)Hack~commonswiki (d | contributions){{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= }}

Vous ne pouvez pas remplacer ce fichier.

Aucune page n’utilise ce fichier.

Utilisations du fichier sur d’autres wikis

Les autres wikis suivants utilisent ce fichier :

Récupérée de « https://commons.wikimedia.org/w/index.php?title=File:Gaussian_primes.png&oldid=752893180 »