source("http://macosa.dima.unige.it/R/r1.R")
x <- runif(1e4)*1+1; y <- runif(1e4)*2-1
boxm(-2,10, -6,6)
pun(x,y,"blue")
# Ho tracciato il rettangolo [1,2]×[-1,1] in blu
# Trasformo il numero complesso a+ib mediante la funzione esponenziale
f <- function(a,b) exp(a+b*1i)
# Traccio in rosso il trasformato del rettangolo (la parte reale e'
# l'ascissa, quella immaginaria e' l'ordinata)
pun(Re(f(x,y)),Im(f(x,y)), "red")