WOLFRAM

Wolfram Language & System Documentation Center

Divide a Square into Segments by Clustering

Divide a square into n segments by clustering uniformly distributed random points.

    
Wolfram Language code: data = RandomReal[{-1, 1}, {1000, 2}];
Wolfram Language code: plots = Table[ListPlot[FindClusters[data, n], AspectRatio -> 1, Frame -> True, Axes -> False, FrameTicks -> None, PlotStyle -> Directive[PointSize[Small]]], {n, 9}];
Wolfram Language code: GraphicsGrid[Partition[plots, 3]]