Berkas:Gaussian primes.png

Ukuran asli(1.200 × 1.198 piksel, ukuran berkas: 16 KB, tipe MIME: image/png)

Berkas ini berasal dari Wikimedia Commons dan mungkin digunakan oleh proyek-proyek lain. Deskripsi dari halaman deskripsinya ditunjukkan di bawah ini.

Ringkasan

Deskripsi Gaussian primes with norm less than 500
Tanggal
Sumber own work, with Mathematica 6.0
Pembuat User:Hack
Izin
(Menggunakan kembali berkas ini)
Public Domain

Lisensi

Public domain Saya, pemegang hak cipta karya ini, merilis karya ini ke domain umum. Lisensi ini berlaku di seluruh dunia.
Di sejumlah negara, tindakan ini tidak memungkinkan secara sah; bila seperti itu:
Saya memberikan siapa pun hak untuk menggunakan karya ini untuk tujuan apa pun, tanpa persyaratan apa pun, kecuali yang ditetapkan oleh hukum.

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

menggambarkan

7 Desember 2007

Riwayat berkas

Klik pada tanggal/waktu untuk melihat berkas ini pada saat tersebut.

Tanggal/WaktuMiniaturDimensiPenggunaKomentar
terkini6 Desember 2007 16.27Miniatur versi sejak 6 Desember 2007 16.271.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= }}

Penggunaan berkas global

Wiki lain berikut menggunakan berkas ini: