source("http://macosa.dima.unige.it/r.R") # da inserire se non è già stato fatto BF=5; HF=2.5 # se vuoi metti poi ad es. BF=8; HF=4 Ax=2;Ay=0; Bx=4;By=0 BOXW(0,6, 0,2) GO = function() { CLEAN(0,6, 0,2) L1=runif(1,0.5,2); a1=runif(1,10,150)*degrees; Cx=Bx+L1*cos(a1); Cy=L1*sin(a1) L2=runif(1,1,2); a2=runif(1,10,150)*degrees; Dx=Ax+L2*cos(a2); Dy=L2*sin(a2) polyline(c(Ax,Bx,Cx,Dx,Ax),c(Ay,By,Cy,Dy,Ay),"blue") polyC(c(Ax+Bx,Bx+Cx,Cx+Dx,Dx+Ax)/2,c(Ay+By,By+Cy,Cy+Dy,Dy+Ay)/2,0) POINT(c(Ax+Bx,Bx+Cx,Cx+Dx,Dx+Ax)/2,c(Ay+By,By+Cy,Cy+Dy,Dy+Ay)/2,"red") } # # Riproduci più volte la riga seguente. Che cosa puoi congetturare? GO()