function filt=Rhann(w,wc)


   
   if w <= wc 
      
      filt=.5*w+.5*(w*cos(pi*w/wc));
      
   else 
      
       filt=0.;

   
end
