Αρχείο:Gaussian primes.png

Τα περιεχόμενα της σελίδας δεν υποστηρίζονται σε άλλες γλώσσες.
Αυτό το αρχείο προέρχεται από το Wikimedia Commons
Από τη Βικιπαίδεια, την ελεύθερη εγκυκλοπαίδεια

Εικόνα σε υψηλότερη ανάλυση ‎(1.200 × 1.198 εικονοστοιχεία, μέγεθος αρχείου: 16 KB, τύπος MIME: image/png)

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.

Σύνοψη

Περιγραφή Gaussian primes with norm less than 500
Ημερομηνία
Πηγή own work, with Mathematica 6.0
Δημιουργός User:Hack
Άδεια
(Επαναχρησιμοποίηση αυτού του αρχείου)		 Public Domain

Αδειοδότηση

Public domain Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, δημοσιεύω αυτό το έργο ως κοινό κτήμα. Αυτό ισχύει σε παγκόσμια κλίμακα.
Σε ορισμένες χώρες αυτό μπορεί να μην είναι νομικά εφικτό. Αν ναι:
Παραχωρώ σε οποιονδήποτε το δικαίωμα να χρησιμοποιήσει αυτό το έργο "για οποιονδήποτε σκοπό", χωρίς κανέναν όρο, εκτός και αν τέτοιοι όροι τίθενται από την νομοθεσία

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

Λεζάντες

Δεν ορίστηκε λεζάντα

Items portrayed in this file

απεικονίζει

Ιστορικό αρχείου

Κλικάρετε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη τη στιγμή.

Ώρα/Ημερομ.ΜικρογραφίαΔιαστάσειςΧρήστηςΣχόλια
τελευταία16:27, 6 Δεκεμβρίου 2007Μικρογραφία για την έκδοση της 16:27, 6 Δεκεμβρίου 20071.200 × 1.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= }}

Τα παρακάτω λήμματα συνδέουν σε αυτό το αρχείο:

Καθολική χρήση αρχείου

Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:

Ανακτήθηκε από "https://el.wikipedia.org/wiki/Αρχείο:Gaussian_primes.png"