# 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) 0.7*(x-xA)+yA
a <- -2; b <- 7; c <- -4; 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 = 0.7 x",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(1.5,-2.5,paste("0.7*(x- ",xA,") + ",yA,sep=""),font=2)
text(xA,-0.5,xA); text(0.5,yA,yA)
punto(xA,yA,"brown")
PPP(); if(xP < -2) C <- 0
}