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()