File:Eisenstein primes.png
出典:ウィキメディア・コモンズ (Wikimedia Commons)
ナビゲーションに移動
検索に移動
このプレビューのサイズ: 608 × 600 ピクセル。 その他の解像度: 243 × 240 ピクセル | 486 × 480 ピクセル | 778 × 768 ピクセル | 1,200 × 1,184 ピクセル。
元のファイル (1,200 × 1,184 ピクセル、ファイルサイズ: 86キロバイト、MIME タイプ: image/png)
ファイル情報
構造化データ
キャプション
概要
[編集]解説Eisenstein primes.png | Eisenstein primes with norm less than 500 | |||||
日付 | ||||||
原典 | own work, with Mathematica 6.0 | |||||
作者 | Hack | |||||
許可 (ファイルの再利用) |
Public Domain | |||||
その他のバージョン |
|
ライセンス
[編集]Public domainPublic domainfalsefalse |
この著作物の著作権者である私は、この著作物における権利を放棄しパブリックドメインとします。これは全世界で適用されます。 一部の国では、これが法的に可能ではない場合があります。その場合は、次のように宣言します。 私は、あらゆる人に対して、法により必要とされている条件を除き、如何なる条件も課すことなく、あらゆる目的のためにこの著作物を使用する権利を与えます。 |
Mathematica Program
[編集]poly[x_, y_] := Polygon[ Table[{x - y/2, Sqrt[3] y/2}, {i, 1, 6}] + {{1/2, 1/(2 Sqrt[3])}, {0, 1/Sqrt[3]}, {-1/2, 1/(2 Sqrt[3])}, {-1/2, -1/(2 Sqrt[3])}, {0, -1/Sqrt[3]}, {1/2, -1/(2 Sqrt[3])}} ]; eisenprm[x_, y_] := Module[{n, p}, n = x^2 - x*y + y^2; If[PrimeQ[n], Return[True]]; p = Sqrt[n]; If[Mod[p, 3] == 2 && PrimeQ[p], True, False]] primelist = Module[{l}, l = {}; Do[b = 0; While[a^2 - a*b + b^2 < 500, If[eisenprm[a, b], l = Join[l, {poly[a, b], poly[-a, -b], poly[-b, a - b], poly[b, -a + b], poly[-a + b, -a], poly[a - b, a]}]]; b = b + 1], {a, 0, 22}]; l]; eisen = Apply[Show, Join[Map[Graphics, primelist], {AspectRatio -> Automatic}]]; Export["eisenstein prime.png", eisen, ImageSize -> 600, ImageResolution -> 144];
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
日付と時刻 | サムネイル | 寸法 | 利用者 | コメント | |
---|---|---|---|---|---|
現在の版 | 2007年12月6日 (木) 16:35 | 1,200 × 1,184 (86キロバイト) | Hack~commonswiki (トーク | 投稿記録) | {{Information |Description= Eisenstein primes with norm less than 500 |Source= own work, with Mathematica 6.0 |Date= December 6, 2007 |Author= ~~~ |Permission= Public Domain |other_versions= }} |
このファイルは上書きできません。
ファイルの使用状況
このファイルを使用しているページはありません。