# Preparo un "orologio" (proc.time()[3] dà il tempo in sec dall'inizio): tic <- function(x) {sec <-proc.time()[3]; while(proc.time()[3] < sec+x) sec <- sec} # passano x sec # Faccio un "ciclo", che parte da "for" e finisce con "}" for (k in 0:20) { tic(0.3); plot(c(0,100),c(0,100),type="n",xlab="", ylab="", asp=1); symbols(50,80, circles=5, inches=FALSE, add=TRUE); # occorre mettere inches=FALSE se no vengono usati i pollici symbols(52,82, circles=1, inches=FALSE, add=TRUE); lines(c(55,50,50),c(0,0,75)); tic(0.3); plot(c(0,100),c(0,100),type="n",xlab="", ylab="", asp=1); symbols(50,80, circles=5, inches=FALSE, add=TRUE); symbols(52,82, circles=1, inches=FALSE, add=TRUE); lines(c(35,30,50,70,75,70,50,50,35,50,65),c(1.5,2,40,2,2.5,2,40,75,45,75,45)) } # Aggiungo una scritta: lines(c(52,54.5),c(79,79)); text(71,80,"CIAO") # # Un modo molto più semplice usando source("http://macosa.dima.unige.it/r.R") # HF=3; BF=3 box00S(0,100, 0,100) for (k in 0:10) { Box00S(0,100, 0,100) cerchio(50,82, 7, "brown"); text(50,95,"aspetta") spezzata( c(55,50,50),c(0,0,75), "blue" ); attendi(0.5) Box00S(0,100, 0,100) cerchio(50,82, 7, "brown"); text(50,95,"aspetta") spezzata( c(35,30,50,70,75,70,50,50,35,50,65),c(1.5,2,40,2,2.5,2,40,75,45,75,45), "blue" ); attendi(0.5)} spezzata(c(53.5,55.7),c(79,79), "brown"); text(71,80,"CIAO")