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 / R.m < prev    next >
Text File  |  2003-12-18  |  207b  |  21 lines
  1. function filt=R(m,wc)
  2.  
  3.  
  4.    
  5.    if  m==0 
  6.       
  7.    filt=wc*wc/2./pi; 
  8.    
  9.    
  10.  
  11.    elseif rem(m,2)==0
  12.     
  13.     filt=0;
  14.     
  15.   
  16.     else 
  17.     
  18.       filt=-2*wc*wc/m/m/pi/pi/pi;
  19.    
  20.    
  21. end