F <- function(x) ifelse(x != 0, cos(1/x)*x, 0)
a <- 2
a <- a/2; plot(F,-a,a,n=100000); abline(h=0,v=0,col="blue")
a <- a/2; plot(F,-a,a,n=100000); abline(h=0,v=0,col="blue")
a <- a/2; plot(F,-a,a,n=100000); abline(h=0,v=0,col="blue")
# e così via richiamando la precedente riga col tasto ^