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")
 
source("http://macosa.dima.unige.it/r.R")
source("http://macosa.dima.unige.it/R/satana.txt")
PLANE(-600,500, -500,600)
# BOXW(-600,500, -500,600)    # per non avere griglia
param(x,y,88*pi+1,116*pi,"orange")
param(x,y,1e-10,88*pi,"red")

È una, strana, curva descritta da una equazione parametrica. Apri il file con Blocco Note o un altro editor se vuoi vederla.