Usando il file seguente source("http://macosa.dima.unige.it/r.R")
prova a costuire con R la figura a lato, che riproduce una particolare piastrella. Spiega come hai proceduto.
| |
source("http://macosa.dima.unige.it/r.R")
BF=3; HF=3
PIANO(-1,1, -1,1) # per evitare la griglia: PIANOss(-1,1, -1,1)
cerchio(0,0, 1, "magenta")
cerchio(0,0,1/2, "blue")
# Ottengo la figura A
# Devo tracciare 5 cerchi; rotazione tra un cerchio e l'altro: 360/5=72
# direzione primo segmento blu: 90-72=18; sua lungh.: (1-0.5)/2=0.75
# Uso due funzioni per individuare la posizione a partire da 0,0 date la
# distanza e la direzione (ricorro a cerchioA2 che individua il punto del
# cerchio di dati "centro" e "raggio" che è in un dato "angolo" di direzione).
DAx = function(r,ang) cerchioA2(0,0, r,ang)[1]
DAy = function(r,ang) cerchioA2(0,0, r,ang)[2]
for(n in 0:4) {a <- 18+n*72;
segm(0,0, DAx(0.75,a),DAy(0.75,a), "blue")
cerchio(DAx(0.75,a),DAy(0.75,a), 1/4, "blue")
segm(DAx(0.75,a),DAy(0.75,a), DAx(0.75,a+72),DAy(0.75,a+72), "red") }
# Per n=0 ottengo B, arrivato a n=4 ho C
poligono(0,0, sqrt(2),4, -45, "magenta")
# Alla fine ho tracciato il quadrato, ottenendo D
#
# Ma c'erano molti altri modi per ottenere la figura ...