Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Plot3D[Sum[Sinc[(x-i)*Pi]*Sinc[(x-i)*Pi/2]*Sinc[(y-j)*Pi]*Sinc[(y-j)*Pi/2], {i, Floor[x]-1, Floor[x]+2}, {j, Floor[y]-1, Floor[y]+2}], {x, 0, 4}, {y, 0, 4}, PlotRange->Full, PlotPoints->{40, 40}]
Add Comment
Please, Sign In to add comment