# source("http://macosa.dima.unige.it/r.R") # Come tracciare poligoni in scala monometrica # La porzione di piano scelta: BF=3; HF=3 PLANE(-5,5, -5,5) # Il triangolo con le x -4,4,0 e le y -4,-4,4 con sfondo giallo x = c(-4,4,0); y = c(-4,-4,4); polyC(x,y,"yellow") # Coloriamo di verde mare parte dell'esterno del triangolo A = function(x,y) y >= 8/4*(x+4)-4 | y >= -8/4*(x-4)-4 for(i in 1:10) diseq2(B,0,"seagreen") # Una spezzata (chiusa) in marrone x = c(-2,2,2,-2,-2); y = c(-3,-3,4,2,-3); polyline(x,y,"brown") # Un cerchio blu circle(1,1, 2, "blue") # Un cerchio pieno rosso e il suo contorno, sottile circleC(1,-1, 1/2, "red"); circl(1,-1, 1/2, "black") # # Lo stesso senza griglia: PLANEww(-5,5, -5,5) x = c(-4,4,0); y = c(-4,-4,4); polyC(x,y,"yellow") A = function(x,y) y >= 8/4*(x+4)-4 | y >= -8/4*(x-4)-4 for(i in 1:10) diseq2(B,0,"seagreen") x = c(-2,2,2,-2,-2); y = c(-3,-3,4,2,-3); polyline(x,y,"brown") circle(1,1, 2, "blue") circleC(1,-1, 1/2, "red") circl(1,-1, 1/2, "black")