Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

4
  • 3
    $\begingroup$ Is it just my eyes, or is that not uniform? It appears heavy in the middle, and sparse at the top and bottom. $\endgroup$ Commented Mar 6, 2012 at 10:07
  • $\begingroup$ @Mr.Wizard, your eyes are ok. Need to re-check the code and the data. $\endgroup$ Commented Mar 6, 2012 at 10:37
  • $\begingroup$ @kguler, did you maybe find what was wrong with uniformity? $\endgroup$ Commented Jun 20, 2014 at 9:02
  • 1
    $\begingroup$ @kglr As in the comment to the Ives Klett's answer Graphics[{Red, Circle[#, mindist] & /@ scaledpts}, Frame -> True] reveals that there are overlapping circles with the radius equal to mindist. I have seen even combinations of 3 overlapping ones. They are rather rare though. I like the approach very much, nevertheless. $\endgroup$ Commented Aug 21, 2015 at 10:06