source("http://macosa.dima.unige.it/r.R")
f <- function(x,y)
144*(x^4+y^4)+350*x^2*y^2-225*(x^2+y^2)+81
g <- function(x,y) (x^2-1)^2-y^2*(2*y+3)
x <- function(t) (cos(t)-(sin(t)^2)/sqrt(2))
y <- function(t) sin(t)*cos(t)
| 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) 144*(x^4+y^4)+350*x^2*y^2-225*(x^2+y^2)+81 g <- function(x,y) (x^2-1)^2-y^2*(2*y+3) x <- function(t) (cos(t)-(sin(t)^2)/sqrt(2)) y <- function(t) sin(t)*cos(t) |