source("http://macosa.dima.unige.it/r.R")
f <- function(x,y) y^4-a^2*y^2-x^4+b^2*x^2
a <- 1; b <- 1
...
a <- 1; b <- 2
...
a <- 1; b <- 1/2
| Completa i seguenti comandi di R in modo da ottenere la figura a lato (sono tre esempi di "devil's curves", curve del diavolo). | |
source("http://macosa.dima.unige.it/r.R") f <- function(x,y) y^4-a^2*y^2-x^4+b^2*x^2 a <- 1; b <- 1 ... a <- 1; b <- 2 ... a <- 1; b <- 1/2 |