angle.R
##
## a n g l e . R
##
real <- function(z) Re(z)
imag <- function(z) Im(z)
conj <- function(z) Conj(z)
# use abs() for Mod()
angle <- function(z) atan2(Im(z), Re(z))
##
## a n g l e . R
##
real <- function(z) Re(z)
imag <- function(z) Im(z)
conj <- function(z) Conj(z)
# use abs() for Mod()
angle <- function(z) atan2(Im(z), Re(z))