source("http://macosa.dima.unige.it/R/r.R") BF=2.8; HF=2.8 f = function(t) cos(t); g = function(t) sin(t) PLANE(-1,3, -2,2) param(f,g, 0, pi, "red") param(f,g, pi,2*pi, "brown") h = function(z) z^2+z+1; k = function(a,b) h(a+b*1i) f1 = function(t) Re(k(f(t),g(t))) g1 = function(t) Im(k(f(t),g(t))) param(f1,g1, 0,pi, "blue") param(f1,g1, pi,2*pi, "black")