File:Random and Nonrandom Points Artifact.png

Random_and_Nonrandom_Points_Artifact.png(500 × 500 pixels, file size: 60 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

edit
Description
English: This image was generated using a set of n = 10000 random points (red), and n = 10000 non-random points (blue), plotted on a unit square. The rule for the nonrandom points is that, if there exists another point within a radius of r = 0.33, the point will be re-plotted. This artifact illustrates the result of this iterative method, where the non-random points are "clustered" in the lower left quadrant of the unit square.
Date
Source Own work
Author Caitlin Jo Ramsey
n = 10000;
darts = RandomReal[{0, 1}, {n, 2}];
list = RandomReal[{0, 1}, {n, 2}];
radius = 0.33;

Do[
 Do[
  If[
   Norm[Part[list, j] - Part[list, k]] == 0, "",
   If[
    Norm[Part[list, j] - Part[list, k]] < radius, 
    list = ReplacePart[list, j -> RandomReal[{0, 1}, {2}]], ""]
   ]
  , {j, Length[list]}
  ], {k, Length[list]}
 ]

Show[ListPlot[{list, darts}, AspectRatio -> 1, 
  PlotStyle -> {{PointSize[Small], Blue}, {PointSize[Small], Red} }, 
  PlotLabel -> points == Length[list], PlotRange -> {{0, 1}, {0, 1}}, 
  Frame -> True, ImageSize -> {500, 500}]]

Licensing

edit
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current18:22, 27 April 2013Thumbnail for version as of 18:22, 27 April 2013500 × 500 (60 KB)CaitlinJo (talk | contribs)User created page with UploadWizard

There are no pages that use this file.

Metadata