source("http://macosa.dima.unige.it/r.R")

BF=3; HF=3
PLANE(-9,12, -10,11)
C <- function(x,y) x^2+y^2-1
CURVE(C, "black")
C2 <- function(x,y) C(x/8,y/4)
CURVE(C2, "red")
# ruoto attorno a (0,0) di -30 gradi e traslo di 4,3 (e moltiplico le x e le y per 1)
# [potrei usare anche: rottra(C2, -30, 4,3, "blue") ]
rottramul(C2, -30, 4,3, 1,1, "blue")
POINT(4,3, "seagreen")


PLANE(-9,3, -1,11)
C <- function(x,y) y-x^2
CURVE(C, "black")
rottramul(C, 30, -4,2, 1,1, "blue")
POINT(-4,2, "red")
# se, oltre a ruotare, dilato, il vertice della parabola non coincide
# col trasformato del vertice:
rottramul(C, 60, -2,2, 1.5,2.5, "magenta")


C <- function(x,y) y*x-1
PLANE(-6,6, -6,6)
CURVE(C, "black")
line(-6,-6, 6,6, "brown")
line(-6,6, 6,-6, "brown")
rottramul(C, 90, 3,2, 1,1, "blue")
rottramul(C, 45, 0,0, 1,1, "red")
rottramul(C, 45, 0,0, 1,0.75, "green3")


# ovvero:
PLANE(-6,6, -6,6)
CURVE(C, "black")
R <- function(x,y) abs(x)-abs(y)
CUR(R, "brown")
rottramul(C, 90, 3,2, 1,1, "blue")
rottramul(C, 45, 0,0, 1,1, "red")
rottramul(C, 45, 0,0, 1,0.75, "green3")

# ovvero:
PLANE(-6,6, -6,6)
R <- function(x,y) abs(x)-abs(y)
CURVE(C, "black")
CURVE(R, 0)                       # o  CUR(R, 0)
rottramul(C, 90, 3,2, 1,1, "blue")
rottramul(C, 45, 0,0, 1,1, "red")
rottramul(C, 45, 0,0, 1,0.75, "green3")

- - - - - - - - - - - - - - - - - - - - - - - - - -
source("http://macosa.dima.unige.it/r.R")

BF=3; HF=3
PIANO(-9,12, -10,11)
C <- function(x,y) x^2+y^2-1
curva(C, "black")
C2 <- function(x,y) C(x/8,y/4)
curva(C2, "red")
# ruoto attorno a (0,0) di -30 gradi e traslo di 4,3 (e moltiplico le x e le y per 1)
# [potrei usare anche: rottra(C2, -30, 4,3, "blue") ]
rottramol(C2, -30, 4,3, 1,1, "blue")
PUNTO(4,3, "seagreen")

PIANO(-9,3, -1,11)
C <- function(x,y) y-x^2
curva(C, "black")
rottramol(C, 30, -4,2, 1,1, "blue")
PUNTO(-4,2, "red")
# se, oltre a ruotare, dilato, il vertice della parabola non coincide
# col trasformato del vertice:
rottramol(C, 60, -2,2, 1.5,2.5, "magenta")


C <- function(x,y) y*x-1
PIANO(-6,6, -6,6)
curva(C, "black")
linea(-6,-6, 6,6, "brown")
linea(-6,6, 6,-6, "brown")
rottramol(C, 90, 3,2, 1,1, "blue")
rottramol(C, 45, 0,0, 1,1, "red")
rottramol(C, 45, 0,0, 1,0.75, "green3")


# ovvero:
PIANO(-6,6, -6,6)
curva(C, "black")
R <- function(x,y) abs(x)-abs(y)
cur(R, "brown")
rottramol(C, 90, 3,2, 1,1, "blue")
rottramol(C, 45, 0,0, 1,1, "red")
rottramol(C, 45, 0,0, 1,0.75, "green3")

# ovvero:
PIANO(-6,6, -6,6)
R <- function(x,y) abs(x)-abs(y)
curva(C, "black")
curva(R, 0)                       # o  cur(R, 0)
rottramol(C, 90, 3,2, 1,1, "blue")
rottramol(C, 45, 0,0, 1,1, "red")
rottramol(C, 45, 0,0, 1,0.75, "green3")