# Con R source("http://macosa.dima.unige.it/r.R") # dimensiono parte di piano cartesiano da visualizzare PLANE(-6,10, -7,7) # definisco ascisse o ordinate della figura iniziale x <- c(1,4,4,3,3,1,1) y <- c(1,1,3,3,5,5,1) polyl(x,y, "black") x1 <- x+5; y1 <- y+1; polyC(x1,y1, "yellow") x2 <- -y; y2 <- x; polyC(x2,y2, "red") x3 <- -x; y3 <- -y; polyC(x3,y3, "grey") x4 <- x; y4 <- -y; polyC(x4,y4, "green")