Copia e incolla in R i seguenti comandi. Batti A().  Ripeti la prova ribattendo A().  Come si dispongono i punti tracciati?

source("http://macosa.dima.unige.it/r.R")  # <- non metterlo se lo hai già usato
BF=4; HF=4; PLANE(0,12,0,12)
S=12; X=3; Y=S/X; polyline(c(0,X,X,0,0),c(0,0,Y,Y,0), "blue"); POINT(X,Y,"red")
A = function() {PPP(); x=round(xP,1); polyline(c(0,X,X,0,0),c(0,0,Y,Y,0), "grey"); POINT(X,Y,"red");
X<<-x; Y<<-S/x; polyline(c(0,X,X,0,0),c(0,0,Y,Y,0), "blue"); POINT(X,Y,"red")}
cat("Batti A() e clicca lo schermo. Ripeti la cosa. Che cosa osservi?","\n")
# Batti A() e clicca lo schermo. Ripeti la cosa. Che cosa osservi?
A()
...

Facendo numerosi click ottengo punti che si dispongono lungo una curva. Se osservo i valori delle coordinate dei punti cliccati capisco che il loro prodotto è 12. In altre parole i punti hanno coordinate x ed y tali che x·y = 12, ovvero tali che y = 12/x.  Una curva con questa forma si chiama "iperbole".  Del resto, se osservo il programma, posso verificare che i punti (x,y) che vengono tracciati sono proprio tali che x·y = 12.