# UNO
# Trova quando f vale 0 (per zoomare clicca via via gli estremi del nuovo
# intervallo - fai un clic in un punto di cui prendere la ascissa come
# nuovo estremo sinistro e un clic in un punto di cui prendere la ascissa
# come nuovo estremo destro - e premi ESC quando vuoi finire)
f <- function(x) x^3-x^2+2*x-33/8
par( mai = c(1,1,0.1,0.1) )
# non metto le tacche sul bordo inferiore in quanto le metto sull'asse x
a <- -8; b <- 8; plot(f,a,b,las=2,xlab="",ylab="",xaxt="n");axis(1,pos=0,las=2)
while(1==1){p<- locator(2);plot(f,p$x[1],p$x[2],las=2,xlab="",ylab="",xaxt="n");axis(1,pos=0,las=2)}
# DUE
# Verifica se nel valore trovato f vale 0
#
# TRE
# Trova il/i punti di "massimo relativo" di g arrotondati a 6 cifre (clicca
# gli estremi del nuovo intervallo, premi ESC quando vuoi finire)
g <- function(x) x^3-5*x^2+2*x
par( mai = c(1,1,0.1,0.1) )
# Non mi interessa tracciare l'asse x
a <- -5; b <- 10; plot(g,a,b,las=2,xlab="",ylab="")
while(1==1){p<- locator(2);plot(g,p$x[1],p$x[2],las=2,xlab="",ylab="")}
#
# QUATTRO
# Se procedi con degli ZOOM la curva si frastaglia. Perche'?
#
# Se vuoi tornare indietro rispetto agli zoom fatti, clicca punti che
# sono leggermente fuori dai margini del grafico, in modo da
# selezionare un intervallo maggiore