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")