# NOT RUN {
p <- c(1.01+1.123i, 1.1+1.43i)
mn(z=1:10,p) %*% p ## should be close to 1:10
#Now specify some periods:
p2 <- c(1+1i,1-1i)
#Define a sequence of complex numbers that zooms off to infinity:
u <- seq(from=0,by=pi+1i*exp(1),len=2007)
#and plot the sequence, modulo the periods:
plot(fpp(z=u,p=p2))
#and check that the resulting points are within the qpp:
polygon(c(-1,0,1,0),c(0,1,0,-1))
# }
Run the code above in your browser using DataLab