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″ N, 77° 02′ 53.31″ W	이 지역의 다른 사진을 보기: OpenStreetMap	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 Unported 라이선스로 배포됩니다.

이용자는 다음의 권리를 갖습니다:

• 공유 및 이용 – 저작물의 복제, 배포, 전시, 공연 및 공중송신
• 재창작 – 저작물의 개작, 수정, 2차적저작물 창작

다음과 같은 조건을 따라야 합니다:

• 저작자표시 – 적절한 저작자 표시를 제공하고, 라이센스에 대한 링크를 제공하고, 변경사항이 있는지를 표시해야 합니다. 당신은 합리적인 방식으로 표시할 수 있지만, 어떤 방식으로든 사용권 허가자가 당신 또는 당신의 사용을 지지하는 방식으로 표시할 수 없습니다.
• 동일조건변경허락 – 만약 당신이 이 저작물을 리믹스 또는 변형하거나 이 저작물을 기반으로 제작하는 경우, 당신은 당신의 기여물을 원저작물과 동일하거나 호환 가능한 라이선스에 따라 배포하여야 합니다.

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

 

이 다이어그램은 Mathematica(으)로 제작되었습니다.