2 added 49 characters in body
source | link

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..

enter image description hereenter image description here

for comparison DelaunayMesh[pts]

enter image description here

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..

enter image description here

for comparison DelaunayMesh[pts]

enter image description here

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..

enter image description here

for comparison DelaunayMesh[pts]

enter image description here

1
source | link

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..

enter image description here

for comparison DelaunayMesh[pts]

enter image description here