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


function y=Fpsi1_0(x) 
% \F\psi_1 
[r,c]=size(x); 
y=zeros(r,c); 
x=abs(x); 
for i=1:r 
    for j=1:c 
        if 1/8<x(i,j) && x(i,j)<1/2; 
            y(i,j)=1; 
        % otherwise y(i,j)=0; 
        end 
    end 
end