www.pudn.com > shearlet.rar > Fpsi2_2.m, change:2009-12-18,size:371b


function y=Fpsi2_2(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)<0 
            y(i,j)=sin(pi/2*(smooth(x(i,j),-1,0))); 
        elseif x(i,j)==0,y(i,j)=1; 
        elseif 0<x(i,j)&&x(i,j)<1 
            y(i,j)=cos(pi/2*(smooth(x(i,j),0,1)));         
        %else 
        %    y(i,j)=0; 
        end 
    end 
end