Good！
<br />
for (i in 1:10000) {<br />
points(x, y, asp = 1, pch = "#",col=rainbow(length(x))[1:length(x)]) ##给点颜色<br />
Sys.sleep(0.2)<br />
points(x, y, asp = 1, pch = "#", col = "white")<br />
x = ifelse(x == 1, x * 60, x - 1)<br />
points(x, y, asp = 1, pch = "#")<br />
}<br />
