home *** CD-ROM | disk | FTP | other *** search
/ ftp.disi.unige.it / 2015-02-11.ftp.disi.unige.it.tar / ftp.disi.unige.it / pub / .person / MassoneA / Rprzn.m < prev    next >
Text File  |  2003-12-18  |  252b  |  19 lines
  1. function filt=Rprzn(w,wc)
  2.  
  3.  
  4.    
  5.    if w <= wc/2.
  6.       
  7.       filt=w - 6*w*(w*w/(wc*wc))*(1.-w/wc);
  8.       
  9.    
  10. elseif  ( w<=wc ) & (w >(wc/2)) 
  11.    
  12.    filt= 2.* w * (1.-w/wc) * (1.-w/wc) * (1.-w/wc);
  13.    
  14. else 
  15.    
  16.    filt=0.;
  17.    
  18. end
  19.