I would like to animate a simple clip where the points appear at a plot
LIN = {};
Animate[Poin1 = RandomVariate[UniformDistribution[{{0, 1}, {0, 1}}]];
LIN = Append[LIN, {Poin1}];
TableForm[{{n}, ListPlot[LIN, ImageSize -> 500, PlotStyle -> Red] }], {n, 1, 5,
1}, AnimationRepetitions -> 1, AnimationRate -> .5 ,
DisplayAllSteps -> True]
The code should result in the plot with increasing number of points, from 1 to 5. At the end, the plot should have 5 static points. But in fact, the points are being added in a continuous manner.
When I stop the animation at t=2, the points continue to appear. This looks like the animation works in a non-stop mode