xxxxxxxxxx
x,y,k=var('x,y,k')
m,n=144,3; seg=[-.5,-.48,..,.5]
xy=arg(sum(((x+I*y)^n+10^(-3)*(x+I*y))^factorial(k),k,1,3))
f(x,y)=cos(m*xy)*sin(xy)
fl=[f(x,y) for x in seg for y in seg]
list_plot(fl,size=3,axes=False,figsize=(6,6))
No comments:
Post a Comment