home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 8.ddi / SIGNAL.DI$ / REMEZDD.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  175 b   |  12 lines
  1. function y = dd(k, n, m, x)
  2. %REMEZDD Lagrange interpolation coefficients.
  3.  
  4. y = 1;
  5. q = x(k);
  6. for l=1:m
  7.     xx = 2*(q - x(l:m:n));
  8.     y = y*prod(xx(xx ~= 0));
  9. end
  10. y=1/y;
  11.  
  12.