File:Gaussian primes.png
Материал из Викисклада, хранилища свободных медиафайлов
Перейти к навигации
Перейти к поиску
![File:Gaussian primes.png](https://upload.wikimedia.org/wikipedia/commons/thumb/8/85/Gaussian_primes.png/601px-Gaussian_primes.png?20071206162749)
Размер этого предпросмотра: 601 × 600 пкс. Другие разрешения: 240 × 240 пкс | 481 × 480 пкс | 769 × 768 пкс | 1200 × 1198 пкс.
Исходный файл (1200 × 1198 пкс, размер файла: 16 КБ, MIME-тип: image/png)
Сведения о файле
Структурированные данные
Краткие подписи
Краткие подписи
Добавьте однострочное описание того, что собой представляет этот файл
![]() |
Эту математическую иллюстрацию желательно воссоздать или аккуратно преобразовать в векторный формат SVG. Это даёт несколько преимуществ, прочитать о которых подробнее вы можете на странице Commons:Media for cleanup. Если вам уже сейчас доступна векторная версия данного изображения, загрузите её, пожалуйста, а затем замените этот шаблон на следующий: {{Vector version available|Имя загруженного файла.svg}}.
|
Краткое описание
[править]ОписаниеGaussian primes.png | Gaussian primes with norm less than 500 |
Дата | |
Источник | own work, with Mathematica 6.0 |
Автор | User:Hack |
Права (Повторное использование этого файла) |
Public Domain |
Лицензирование
[править]Public domainPublic domainfalsefalse |
![]() |
Я, владелец авторских прав на это произведение, передаю его в общественное достояние. Это разрешение действует по всему миру. В некоторых странах это не может быть возможно юридически, в таком случае: Я даю право кому угодно использовать данное произведение в любых целях без каких-либо условий, за исключением таких условий, которые требуются по закону. |
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 | ![]() | 1200 × 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= }} |
Вы не можете перезаписать этот файл.
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в ar.wikipedia.org
- Использование в ast.wikipedia.org
- Использование в ca.wikipedia.org
- Использование в de.wikipedia.org
- Использование в el.wikipedia.org
- Использование в en.wikipedia.org
- Использование в en.wikiquote.org
- Использование в es.wikipedia.org
- Использование в fr.wikipedia.org
- Использование в id.wikipedia.org
- Использование в it.wikipedia.org
- Использование в ja.wikipedia.org
- Использование в ml.wikipedia.org
- Использование в ro.wikipedia.org
- Использование в ru.wikipedia.org
- Использование в tr.wikipedia.org
- Использование в vi.wikipedia.org
- Использование в zh.wikipedia.org