# I grafici di due funzioni di due variabili e le loro curve di livello
F <- function(x,y) x^2+y^2
x1 <- -5; x2 <- 5; y1 <- -5; y2 <- 5
x <- seq(x1,x2,len=30); y <- seq(y1,y2,len=30); z <- outer(x,y,F)
dev.new()
persp(x,y,z,theta=-30,phi=30, expand=1,col="lightblue",ticktype="detailed",shade=0.4)
dev.new(); contour(x,y,z,col=rainbow(7),nlevels=7,lwd=3)
F <- function(x,y) x*y
x <- seq(x1,x2,len=30); y <- seq(y1,y2,len=30); z <- outer(x,y,F)
dev.new()
x <- seq(x1,x2,len=21); y <- seq(y1,y2,len=21); z <- outer(x,y,F)
persp(x,y,z,theta=-20,phi=25, expand=1,col="lightblue",ticktype="detailed",shade=0.4)
dev.new(); contour(x,y,z,col=rainbow(7),nlevels=7,lwd=3)