plot(c(-3,6), c(-1,8), type="n", xlab="",ylab="", asp=1)
abline(v=-3:6, h=-1:8, lty=3)
abline(h=0, v=0, lty=2)
# un triangolo rettangolo con i cateti // agli assi, in rosso
x <- c(-1,3,-1,-1); y <- c(1,1,4,1)
lines(x,y,col="red",lwd=2)
# una sua rotazione attorno all'origine, in blu
ang <- 30*pi/180
x1 <- x*cos(ang)-y*sin(ang); y1 <- x*sin(ang)+y*cos(ang)
lines(x1,y1, col="blue", lwd=2)
# una sua rototraslazione, in magenta:
ang <- 30*pi/180; dx <- 3; dy <- 4
x2 <- x*cos(ang)-y*sin(ang)+dx; y2 <- x*sin(ang)+y*cos(ang)+dy
lines(x2,y2, col="magenta", lwd=2)
# un suo ingrandimento, in verde:
molt <- 1.5; x3 <- x*molt; y3 <- y*molt
lines(x3,y3, col="green4", lwd=2)
# un ribaltamento seguito da una traslazione, in arancione:
x4 <- -x+4; y4 <- y+2; lines(x4,y4, col="orange", lwd=2)