# Clicca e vedi che succede. Quindi clicca nuovamente.
# Quando vuoi smettere clicca a sinistra del grafico
source("http://macosa.dima.unige.it/r.R")
HF <- 5; BF <- 5; noBox=1
f <- function(x) (x-xA)^2+yA
a <- -5; b <- 5; c <- -5; d <- 5
box(a,b, c,d); C <- 1
while(C>0) {
xA <- 0; yA <- 0
noBox=1; BoX(a,b, c,d)
mtext("y = x^2",side=2,col="red",at=1,font=2)
grafico(f,a,b,2)
PPP()
xA <- round(xP*10)/10; yA <- round(yP*10)/10
grafico(f,a,b,4)
text(0,-4.5,paste("x^2 + (",-2*xA,")x + (",yA+xA^2,")",sep=""))
text(xA,-0.5,xA); text(0.5,yA,yA)
punto(xA,yA,"brown")
PPP(); if(xP < a) C <- 0
}