source("http://macosa.dima.unige.it/r.R") BF=4; HF=4 PIANOss(0,10, 0,10) # scelgo il "piano" Senza tracciamenti coltrat="brown" # faccio una griglia in colore marrone grigliaO(seq(0,10,1/2)); grigliaV(seq(0,10,1/2)) # gli assi dell'aquilone x1 <- c(1.5,1.5); y1 <- c(0,2); x2 <- c(0,3); y2 <- c(1,1) spezzata(x1,y1, "red") spezzata(x2,y2, "red") # il bordo dell'aquilone x <- c(0,1.5,3,1.5,0); y <- c(1,0,1,2,1) spezzata(x,y,"blue") # l'ingrandimento (del triplo) spezzata(x1*3,y1*3+2,"red") spezzata(x2*3,y2*3+2,"red") spezzata(x*3,y*3+2,"blue") # # ovvero: BF=4; HF=4 PLANEww(0,10, 0,10) gridHC( seq(0,10, 1/2), "brown"); gridVC( seq(0,10, 1/2), "brown") x1 = c(1.5,1.5); y1 = c(0,2); x2 = c(0,3); y2 = c(1,1) polyline(x1,y1, "red"); polyline(x2,y2, "red") x = c(0,1.5,3,1.5,0); y = c(1,0,1,2,1); polyline(x,y, "blue") polyline(x1*3,y1*3+2, "red"); polyline(x2*3,y2*3+2, "red") polyline(x*3,y*3+2, "blue") |