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 |
source("http://macosa.dima.unige.it/r.R")
PLANE(-3,3, -3,3)
f = function(x,y) y^4-a^2*y^2-x^4+b^2*x^2
a = 1; b = 1
CURV(f,"black")
a = 1; b = 2
CURV(f,"red")
a = 1; b = 1/2
CURV(f,"blue")
a = 1; b = 1/2