source("http://macosa.dima.unige.it/r.R") f1 <- function(x) 2*x+1 f2 <- function(x) (x+1)^2+1 f3 <- function(x) x+abs(x)-abs(x+1) f4 <- function(x) (x+1)^3+1 f5 <- function(x) 1/(x-2)+1 f6 <- function(x) sin(x) # sposta poi i grafici per vederli tutti BF=2.3; HF=2.3 # 1^ graphF(f1,-3,3, "black"); suassex("f1") # 2^ Plane(-4,3, -0.5,16); grafi(f2,-4,3, "black") POINT(-1,1,"red"); suassex("f2") # 3^ graphF(f3,-3,3, "black"); suassex("f3") POINT(0,-1,"red"); POINT(-1,0,"red") # 4^ graphF(f4,-3,1, "black"); suassex("f4") POINT(-1,1, "red") # 5^ Plane(-1,5, -3,5); grafi(f5,-1,5, "black"); suassex("f5") # 6^ graphF(f6,-4,6, "black"); suassex("f6") POINT(c(0,pi,-pi,pi/2,-pi/2,3*pi/2), c(0,0,0,1,-1,-1), "red")