home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 4.ddi / OPTIM.DI$ / FILTFUN.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  245 b   |  8 lines
  1. function [f,g]=filtfun(xfree,x,xmask,n,h,maxbin);
  2. %FILTFUN Returns frequency response and roots for DFILDEMO.
  3. x(xmask)  = xfree;
  4. h2=abs(freqz(x(1:n), x(n+1:2*n), 128));
  5. f= h2 - h;     
  6. % Make sure its stable
  7. g=[abs(roots(x(n+1:2*n)))-1];
  8.