call.m

截断效应

function []=call(h,z)
axes(h);
       hold off
        w=-5:0.1:5;
         for i=1:length(w)
          if (w(i)==0 | z==0)
         y(i)=1;
     else 
        y(i)=sin(w(i)*z)./(w(i)*z);
       %y(i)=2*sinc(w(i)*z);
    end
    end
       plot(w,y);