2 added 49 characters in body edited Nov 12 '15 at 16:09 george2079 36.3k11 gold badge3737 silver badges9494 bronze badges here is the nearest neighbors plot: pts = RandomReal[{-1, 1}, {200, 2}]; near = Nearest[pts]; Graphics[Function[Graphics[{Function[{pt}, Line[{pt, #}] & /@ near[pt, {5, .2}]] /@ pts]pts, PointSize[.015], Red, Point@pts}]  this is up to 5 near neighbors within radius of .2.. for comparison DelaunayMesh[pts] here is the nearest neighbors plot: pts = RandomReal[{-1, 1}, {200, 2}]; near = Nearest[pts]; Graphics[Function[{pt}, Line[{pt, #}] & /@ near[pt, {5, .2}]] /@ pts]  this is up to 5 near neighbors within radius of .2.. for comparison DelaunayMesh[pts] here is the nearest neighbors plot: pts = RandomReal[{-1, 1}, {200, 2}]; near = Nearest[pts]; Graphics[{Function[{pt}, Line[{pt, #}] & /@ near[pt, {5, .2}]] /@ pts, PointSize[.015], Red, Point@pts}]  this is up to 5 near neighbors within radius of .2.. for comparison DelaunayMesh[pts] 1 answered Nov 12 '15 at 16:02 george2079 36.3k11 gold badge3737 silver badges9494 bronze badges here is the nearest neighbors plot: pts = RandomReal[{-1, 1}, {200, 2}]; near = Nearest[pts]; Graphics[Function[{pt}, Line[{pt, #}] & /@ near[pt, {5, .2}]] /@ pts]  this is up to 5 near neighbors within radius of .2.. for comparison DelaunayMesh[pts] 