source("http://macosa.dima.unige.it/R/r1.R")
x <- function(t) t^2-5*t+5; y <- function(t) t^2-3
# t tra 0 e 5 e tra -4 e 6.5
paramb(x,y, 0,5, "brown")
paramb(x,y, -4,6.5, "brown")