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")