home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 4.ddi / OPTIM.DI$ / FILTFUN2.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  269 b   |  9 lines
  1. function [f,g]=filtfun2(xfree,x,xmask,n,h,dcgain,maxbin);
  2. %FILTFUN2 Return frequency response norm 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. f = f'*f;
  7. % Make sure its stable
  8. g=[abs(roots(x(n+1:2*n)))-1];
  9.