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