English: (*The stratification process redistributes the random elements into a \
relatively homogeneous group and then samples randomly. Every element \
in the original set is uniquely reassigned to one stratum.*)
\
tinyColor[color_, point_] := {PointSize[Small], color, Point[point]}
colorChoose[point_] := tinyColor[Blue, point]
Clear[r, n];
r = 100;
n = r^2;
darts = RandomReal[{0, 1}, {n, 2}];
coloredDarts = ParallelMap[colorChoose, darts];
Clear[smoothedDarts, tempPoints]
subGrouper = Table[i, {i, 0, r - 1}];
shiftyGuy = Flatten[Tuples[subGrouper, 2]];
tempPoints = Partition[(shiftyGuy + Flatten[darts])*(1/r), 2];
smoothedDarts = RandomSample[tempPoints, n];
Export["~/Desktop/stratifiedPoints.gif",
Table[ListPlot[Part[smoothedDarts, 1 ;; max], AspectRatio -> 1,
PlotStyle -> {PointSize[Small], Blue},
PlotRange -> {{0, 1}, {0, 1}},
PlotLabel ->
TraditionalForm[max "Randomly Selected Stratified Points"],
Frame -> True, ImageSize -> {400, 400}], {max, 100, Length[darts],
Length[darts]/100}],
"DisplayDurations" -> ConstantArray[1, 9]~Join~{3}]