home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 8.ddi / SIGNAL.DI$ / BUTTAP.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  622 b   |  19 lines
  1. function [z,p,k] = buttap(n)
  2. %BUTTAP    Butterworth analog lowpass filter prototype.
  3. %    [Z,P,K] = BUTTAP(N) returns the zeros, poles, and gain
  4. %    for an N-th order normalized prototype Butterworth analog
  5. %    lowpass filter.  The resulting filter has N poles around
  6. %    the unit circle in the left half plane, and no zeros.
  7. %
  8. %    See also BUTTER, CHEB1AP, and CHEB2AP.
  9.  
  10. %    J.N. Little and J.O. Smith 1-14-87
  11. %    Revised 1-13-88 LS
  12. %    (c) Copyright 1987, 1988,  by The MathWorks, Inc.
  13.  
  14. % Poles are on the unit circle in the left-half plane.
  15. z = [];
  16. p = exp(sqrt(-1)*(pi*(1:2:2*n-1)/(2*n) + pi/2)).';
  17. k = real(prod(-p));
  18.  
  19.