# Copia e incolla in R la riga seguente:
source("http://macosa.dima.unige.it/R/curve.txt")
# Il disegno di una curva
boxm(-3,3, -3,3)
K <- function(x,y) x^2+y^3-x*y^2-y; curva(K,"blue")
# la matrice della rotazione, colonna per colonna
A <- 120/180*pi; z <- array(c(cos(A),sin(A),-sin(A),cos(A)),dim=c(2,2))
# la curva K ruotata di A, ossia 120 gradi
H <- function(x,y) K(z[1,1]*x+z[1,2]*y,z[2,1]*x+z[2,2]*y); curva(H,"red")
# la cruva K ruotata di 240 gradi
A <- 240/180*pi; z <- array(c(cos(A),sin(A),-sin(A),cos(A)),dim=c(2,2))
H <- function(x,y) K(z[1,1]*x+z[1,2]*y,z[2,1]*x+z[2,2]*y); curva(H,"brown")