Table[ListPlot[Part[smoothedDarts, 1 ;; max], AspectRatio -> 1, 
  PlotStyle -> {PointSize[Small], Blue}, 
  PlotRange -> {{0, 1}, {0, 1}}, 
  PlotLabel -> 
   TraditionalForm[max "Randomly Selected Stratified Points"], 
  Frame -> True, ImageSize -> {400, 400}], {max, 100, Length[darts], 
  Length[darts]/100}], 

カメラの位置	38° 54′ 14.56″ 北, 77° 02′ 53.31″ 西	以下のサービスでこの位置を確認する： オープンストリートマップ	38.904045; -77.048141

(*This mathematical image was created with Mathematica. The stratification process redistributes the random elements into a \ relatively homogeneous group and then samples randomly. Every element \ in the original set is uniquely reassigned to one stratum. Source code for this image is available below.*) \ 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];

Clear[smoothedDarts, tempPoints] subGrouper = Table[i, {i, 0, r - 1}]; shiftyGuy = Flatten[Tuples[subGrouper, 2]]; tempPoints = Partition[(shiftyGuy + Flatten[darts])*(1/r), 2];

smoothedDarts = RandomSample[tempPoints, n];

Export["~/Desktop/stratifiedPoints.gif",

Table[ListPlot[Part[smoothedDarts, 1 ;; max], AspectRatio -> 1, 
  PlotStyle -> {PointSize[Small], Blue}, 
  PlotRange -> {{0, 1}, {0, 1}}, 
  PlotLabel -> 
   TraditionalForm[max "Randomly Selected Stratified Points"], 
  Frame -> True, ImageSize -> {400, 400}], {max, 100, Length[darts], 
  Length[darts]/100}], 
"DisplayDurations" -> ConstantArray[1, 9]~Join~{3}]

この作品の著作権者である私は、この作品を以下のライセンスで提供します。

このファイルはクリエイティブ・コモンズ 表示-継承 3.0 非移植ライセンスのもとに利用を許諾されています。

あなたは以下の条件に従う場合に限り、自由に

• 共有 – 本作品を複製、頒布、展示、実演できます。
• 再構成 – 二次的著作物を作成できます。

あなたの従うべき条件は以下の通りです。

• 表示 – あなたは適切なクレジットを表示し、ライセンスへのリンクを提供し、変更があったらその旨を示さなければなりません。これらは合理的であればどのような方法で行っても構いませんが、許諾者があなたやあなたの利用行為を支持していると示唆するような方法は除きます。
• 継承 – もしあなたがこの作品をリミックスしたり、改変したり、加工した場合には、あなたはあなたの貢献部分を元の作品とこれと同一または互換性があるライセンスの下に頒布しなければなりません。

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

 

この 図式はMathematicaでnにより作成されました。