Given a bounded $A \times B$ rectangle with a set of chosen coordinates, generated for example with the command:
A = 1;
B = 1;
randPoints = Table[{RandomReal[{0,A}],RandomReal[{0,B}]},{k,1,10^4}];
ListPlot[randPoints]
For each point in randPoints, I would like to find the center and radius of the largest circle that contains that point but no other point from the randPoints set, and does not exceed the boundaries of the $A \times B$ box.
How might one do this in Mathematica v9.0? In the example there are 10^4 points, but I'm also envisioning much larger sets, so ideally I'd like a fast routine. This could, however, constitute pushing my luck.
The problem is trivial if one locks the center of the circle on the relevant element in randPoints (just use the Nearest function to find the circle radius), but it seems like an additional trick is required if one only requires this element to be by itself somewhere inside the circle.
This is not efficient but works:
where lp is the
ListPlot