Перейти на страницу файла на Викискладе

Файл:Gaussian primes.png

Материал из Википедии — свободной энциклопедии
Перейти к навигации Перейти к поиску

Исходный файл ‎(1200 × 1198 пкс, размер файла: 16 Кб, MIME-тип: image/png)

Эту математическую иллюстрацию желательно воссоздать или аккуратно преобразовать в векторный формат SVG. Это даёт несколько преимуществ, прочитать о которых подробнее вы можете на странице Commons:Media for cleanup. Если вам уже сейчас доступна векторная версия данного изображения, загрузите её, пожалуйста, а затем замените этот шаблон на следующий: {{Vector version available|Имя загруженного файла.svg}}.

Краткое описание

Описание 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];

Краткие подписи

Добавьте однострочное описание того, что собой представляет этот файл

Элементы, изображённые на этом файле

изображённый объект

История файла

Нажмите на дату/время, чтобы посмотреть файл, который был загружен в тот момент.

Дата/времяМиниатюраРазмерыУчастникПримечание
текущий16:27, 6 декабря 2007Миниатюра для версии от 16:27, 6 декабря 20071200 × 1198 (16 Кб)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= }}

Следующая страница использует этот файл:

Глобальное использование файла

Данный файл используется в следующих вики:

Источник — https://ru.wikipedia.org/wiki/Файл:Gaussian_primes.png