www.pudn.com > shearlet.rar > Fpsi2_0.m, change:2009-12-22,size:215b


function y=Fpsi2_0(x) 
% \psi_2 
[r,c]=size(x); 
y=zeros(r,c); 
for i=1:r 
    for j=1:c 
        if -1<=x(i,j)&&x(i,j)<1 
            y(i,j)=1/2;    
        %else 
        %    y(i,j)=0; 
        end 
    end 
end