# NOT RUN {
P(z=0.1+0.1212i,params=equianharmonic())
x <- seq(from=-10,to=10,len=200)
z <- outer(x,1i*x,"+")
view(x,x,P(z,params=lemniscatic()),real=FALSE)
view(x,x,P(z,params=pseudolemniscatic()),real=FALSE)
view(x,x,P(z,params=equianharmonic()),real=FALSE)
# }
Run the code above in your browser using DataCamp Workspace