File:Gaussian_primes.png
維基百科,自由的 encyclopedia
本预览的尺寸:601 × 600像素。 其他分辨率:240 × 240像素 | 481 × 480像素 | 769 × 768像素 | 1,200 × 1,198像素。
原始文件 (1,200 × 1,198像素,文件大小:16 KB,MIME类型:image/png)
此math图片可使用矢量图形重新创建为SVG文件。这具有很多好处;更多信息请参见共享资源:待清理媒体。如果存在此图片的SVG格式,请将其上传,然后将此模板替换为
{{vector version available|新图片名称}} 。
建议您将SVG命名为“Gaussian primes.svg”,这样在使用Vector version available(或Vva)模板时就不需要填写新图片名称参数。 |
摘要
描述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];
此文件中描述的项目
描繪內容
著作权持有者释出至公有领域 简体中文(已转写)
7 12 2007
文件历史
点击某个日期/时间查看对应时刻的文件。
日期/时间 | 缩略图 | 大小 | 用户 | 备注 | |
---|---|---|---|---|---|
当前 | 2007年12月6日 (四) 16:27 | 1,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使用此文件:
- 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上的用途