Completa i seguenti comandi di R in modo da ottenere la figura a lato.   

source("http://macosa.dima.unige.it/r.R")
r <- function(a) exp(sin(a))-2*cos(4*a)+sin((2*a-pi)/24)^5
 

La curva (nota come "butterfly curve") è stata "scoperta" da Temple H. Fay nel 1989.  Cerca  parametric plane curves   in WolframAlpha  per altre curve parametriche "famose". Ecco come si potevano completare i comandi:

source("http://macosa.dima.unige.it/r.R")
r <- function(a) exp(sin(a))-2*cos(4*a)+sin((2*a-pi)/24)^5
# prima posso usare
polarb(r,0,10*pi,"blue")
# per individuare automaticamente la scala. Poi:
BOXW(-3.5,3.5,-3,4)       # apre un box vuoto
pola(r,0,10*pi,"blue")
# con diversi colori (come è tracciata sopra):
BOXW(-3.5,3.5,-3,4)
pola(r,8*pi,10*pi,"blue")
pola(r,8*pi,6*pi,"black")
pola(r,4*pi,6*pi,"orange")
pola(r,4*pi,2*pi,"green")
pola(r,0,2*pi,"red")