File:RandomPoints.gif

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

RandomPoints.gif(400 × 400像素,文件大小:1.23 MB,MIME类型:image/gif、​循环、​100帧、​2分0秒)


摘要

描述
English: Randomly generated points plotted in a unit square illustrate the "Clustering Illusion."

This Mathematical image was created with Mathematica.

Source Code:
tinyColor[color_, point_] := {PointSize[Small], color, Point[point]}
colorChoose[point_] := tinyColor[Blue, point]

Clear[r, n];
r = 100;
n = r^2;
darts = RandomReal[{0, 1}, {n, 2}];
coloredDarts = ParallelMap[colorChoose, darts];

Export[][][][darts, 1 ;; max], AspectRatio -> 1, 
   PlotStyle -> {PointSize[Small], Blue}, 
   PlotRange -> {{0, 1}, {0, 1}}, 
   PlotLabel -> TraditionalForm[max "Random Points"], Frame -> True, 
   ImageSize -> {400, 400}], {max, 100, Length[darts]/10}], 
 "DisplayDurations" -> ConstantArray[1, 9]~Join~{3}]
日期
来源 自己的作品
作者 CaitlinJo
其他版本
w:zh:知识共享
署名
本文件采用知识共享署名 3.0 未本地化版本许可协议授权。
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。

- Attribution 3.0

许可协议

我,本作品著作权人,特此采用以下许可协议发表本作品:
w:zh:知识共享
署名
本文件采用知识共享署名 3.0 未本地化版本许可协议授权。
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2013年7月15日 (一) 02:532013年7月15日 (一) 02:53版本的缩略图400 × 400(1.23 MB)CaitlinJoReverted to version as of 17:51, 14 July 2013
2013年7月14日 (日) 18:332013年7月14日 (日) 18:33版本的缩略图400 × 400(1.23 MB)CaitlinJoChanged the number of frames to 100 (formerly 800).
2013年7月14日 (日) 17:512013年7月14日 (日) 17:51版本的缩略图400 × 400(1.23 MB)CaitlinJoReduced the number of frames to make the animation run more quickly.
2013年7月14日 (日) 17:052013年7月14日 (日) 17:05版本的缩略图400 × 400(5.25 MB)CaitlinJo{{Information |Description ={{en|1=Randomly generated points plotted in a unit square illustrate the "Clustering Illusion." This Mathematical image was created with Mathematica. Source Code: tinyColor[color_, point_] := {PointSize[Small], color, ...

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据