source("http://macosa.dima.unige.it/r.R")
f <- function(x,y) (x/a)^4+(y/b)^4-1
| Completa i seguenti comandi di R in modo da ottenere la figura a lato. | |
source("http://macosa.dima.unige.it/r.R") f <- function(x,y) (x/a)^4+(y/b)^4-1 |
La curva è nota come "rectellipse". Ecco come si potevano completare i comandi:
source("http://macosa.dima.unige.it/r.R")
f <- function(x,y) (x/a)^4+(y/b)^4-1
PLANE(-1.5,1.5, -1.5,1.5)
a <- 1; b <- 1; CURVE(f,"red")
a <- 1/2; b <- 1/2; CURVE(f,"blue")
a <- 3/2; b <- 1/2; CURV(f,"green")