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

source("http://macosa.dima.unige.it/r.R")
# carico la descrizione di una curva x(t), y(t)
source("http://macosa.dima.unige.it/R/satana.txt")
...
param(x,y,88*pi+1,116*pi,"orange")
param(x,y,1e-10,88*pi,"red")