#---------------------------------------------
#
# e ora un esempio di somma e prodotto di numeri complessi
z1 = 1 + 0.5i
z2 = 0.5 + 1i

# prepariamo un plot senza niente
plot(NULL, xlim=c(-2,2), ylim=c(-2,2), xlab='Re()', ylab='Im()', asp=1)
grid()

# ci mettiamo i due numeri
z=z1;
points(z, pch=19, col='blue'); lines( c(0, Re(z)), c( 0, Im(z)), col='blue')
z=z2
points(z, pch=19, col='blue'); lines( c(0, Re(z)), c( 0, Im(z)), col='blue')

# e la somma
z=z1+z2
points(z, pch=19, col='red'); lines( c(0, Re(z)), c( 0, Im(z)), col='red')

# e poi il prodotto
z=z1*z2
points(z, pch=19, col='green'); lines( c(0, Re(z)), c( 0, Im(z)), col='green')

# interessante proprietà del prodotto
#
Mod(z1)
Mod(z2)
Mod(z1*z2)
Mod(z1)*Mod(z2)

Arg(z1)
Arg(z2)
Arg(z1*z2)
Arg(z1)+Arg(z2)

# Provare con altre coppie z1 e z2