Return to Answer

reduced point size in picture for better aesthetics

Source Link

edited Apr 17 at 16:04

59.6k
5
40
95

Using RegionMember:

SeedRandom[1];
pts = RandomReal[10, {10^5, 2}];
center = {5, 5};
radius = 2;
good = Select[pts, RegionMember[Disk[center, radius]]];
outside = Complement[pts, good];

ListPlot[{outside, good}
 , AspectRatio -> Automatic
 , PlotStyle -> {Directive[AbsolutePointSize[3]Directive[AbsolutePointSize[1], Red], 
   Directive[AbsolutePointSize[3]Directive[AbsolutePointSize[1], Darker@Green] }
 , Epilog -> {Circle[center, radius]
   }
 ]

Using RegionMember:

SeedRandom[1];
pts = RandomReal[10, {10^5, 2}];
center = {5, 5};
radius = 2;
good = Select[pts, RegionMember[Disk[center, radius]]];
outside = Complement[pts, good];

ListPlot[{outside, good}
 , AspectRatio -> Automatic
 , PlotStyle -> {Directive[AbsolutePointSize[3], Red], 
   Directive[AbsolutePointSize[3], Darker@Green] }
 , Epilog -> {Circle[center, radius]
   }
 ]

Using RegionMember:

SeedRandom[1];
pts = RandomReal[10, {10^5, 2}];
center = {5, 5};
radius = 2;
good = Select[pts, RegionMember[Disk[center, radius]]];
outside = Complement[pts, good];

ListPlot[{outside, good}
 , AspectRatio -> Automatic
 , PlotStyle -> {Directive[AbsolutePointSize[1], Red], 
   Directive[AbsolutePointSize[1], Darker@Green] }
 , Epilog -> {Circle[center, radius]
   }
 ]

Source Link

created Apr 17 at 15:54

Syed

59.6k
5
40
95

Using RegionMember:

SeedRandom[1];
pts = RandomReal[10, {10^5, 2}];
center = {5, 5};
radius = 2;
good = Select[pts, RegionMember[Disk[center, radius]]];
outside = Complement[pts, good];

ListPlot[{outside, good}
 , AspectRatio -> Automatic
 , PlotStyle -> {Directive[AbsolutePointSize[3], Red], 
   Directive[AbsolutePointSize[3], Darker@Green] }
 , Epilog -> {Circle[center, radius]
   }
 ]