# Con R
# dimensiono parte di piano cartesiano da visualizzare e tacche
view <- c(-6,10, -7,7); orig <- c(0,0)
tx <- seq(-6,10,1); ty <- seq(-7,7,1)
# comandi standard da copiare
plot(c(view[1],view[2]),c(view[3],view[4]),type="n",xlab="",ylab="", asp=1)
abline(h=ty,col="grey60",lty=3); abline(v=tx, col="grey60",lty=3)
axis(1,pos=orig[2],label=FALSE,col="brown"); axis(2,pos=orig[1],label=FALSE,col="brown")
abline(h=orig[2],col="brown"); abline(v=orig[1],col="brown")
# definisco ascisse o ordinate della figura iniziale
x <- c(1,4,4,3,3,1)
y <- c(1,1,3,3,5,5)
polygon(x,y)
x1 <- x+5; y1 <- y+1; polygon(x1,y1,col="yellow")
x2 <- -y; y2 <- x; polygon(x2,y2,col="red")
x3 <- -x; y3 <- -y; polygon(x3,y3,col="grey")
x4 <- x; y4 <- -y; polygon(x4,y4,col="green")