Completa il programma seguente per R in modo che produca l'immagine a sinistra (vedi qui per l'uso di R), oppure realizza quella a destra con WolframAlpha.

source("http://macosa.dima.unige.it/r.R")
HF=2; BF=2; BOXW(-7,7, -7,7)
for(n in 1:9) poligono(0,0, …, 4,…, n)
# ovvero: for(n in 1:9) polylineR(0,0, …, 4,…, n)