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)
  

Con R.  BOXW non disegna il reticolo. Per capire meglio posso usare prima PLANE:

source("http://macosa.dima.unige.it/r.R")
HF=3; BF=3; PLANE(-6,6, -6,6)
for(n in 1:9) polylineR(0,0, n, 4,45, n)
                    
HF=2; BF=2; BOXW(-7,7, -7,7)
BOXW(-7,7, -7,7); for(n in 1:9) polylineR(0,0, n, 4,45, n)

Con WolframAlpha basta battere:
max(abs(x),abs(y))=7, max(abs(x),abs(y))=5, max(abs(x),abs(y))=3