Completa i seguenti comandi di R in modo da ottenere le figure a lato, chiamate superellissi, molto usate dai designer di mobili.
source("http://macosa.dima.unige.it/r.R") g = function(x,y) abs(x/A)^n + abs(y/B)^n - 1 n=2.5; ratioAB=6/5 PLANE(-8,8, -8,8) B=...; A=ratioAB*B; CURV(g,"black") B=...; A=ratioAB*B; CURV(g,"brown") B=...; A=ratioAB*B; CURV(g,"red") B=...; A=ratioAB*B; CURV(g,"seagreen") B=...; A=ratioAB*B; CURV(g,"blue") B=...; A=ratioAB*B; CURV(g,"black")