# clicca:
source("http://macosa.dima.unige.it/grafici.txt")
# e poi aziona:
k <- function(x) 1/x
graf(k,-2,2,-5,5)
r <- function(x) x^2-1
graf2(r,-2,2)
orizzontale(-1)
punto(0,-1)