function c = daubcofs( n )
% FUNCTION:    daubcofs
%
% SYNOPSIS:    C = daubcofs( N )
%
% DESCRIPTION: daubcofs returns the impulse response of the 
%              low-pass filter of length 2*N associated with
%              a Daubechies orthonormal wavelet basis.
%
% LIMITATIONS: N must be an integer between 1 and 10.
%
% EXAMPLE:     daubcofs(2)
%
%              ans =
%
%                  0.4830    0.8365    0.2241   -0.1294
%
% REFERENCE:   Ingrid Daubechies, "Orthonormal Bases of
%              Compactly Supported Wavelets", Communications 
%              on Pure and Applied Mathematics, Vol. XLI, 
%              909-996 (1988).
%


%
% AUTHOR:	Neil Getz
% DATE:		5-18-92
%
% COPYRIGHT 1992, Neil Getz
%
if (nargin ~= 1),
  help daubcofs;
  return;
end

if( ( rem(n,1)~=0 )|( n < 1 )|( n > 10 ) ),
  error('DaubCofs: The argument must be 2<= integer <= 10.');
end
if(n==1),
  c = [1 1]/sqrt(2);
elseif(n==2)
  c = [  0.482962913145  0.836516303738 0.224143868042 ...
        -0.129409522551];
elseif(n==3)
  c = [  0.332670552950  0.806891509311  0.459877502118 ...
        -0.135011020010 -0.085441273882  0.035226291882];
elseif(n==4)
  c = [  0.230377813309  0.714846570553  0.630880767930 ...
        -0.027983769417 -0.187034811719  0.030841381836 ...
         0.032883011667 -0.010597401785 ];
elseif(n==5)
  c = [  0.160102397974  0.603829269797  0.724308528438 ...
         0.138428145901 -0.242294887066 -0.032244869585 ...
         0.077571493840 -0.006241490213 -0.012580751999 ...
         0.003335725285 ];
elseif(n==6)
  c = [  0.111540743350  0.494623890398  0.751133908021 ...
         0.315250351709 -0.226264693965 -0.129766867567 ...
         0.097501605587  0.027522865530 -0.031582039318 ...
         0.000553842201  0.004777257511 -0.001077301085 ];
elseif(n==7)
  c = [  0.077852054085  0.396539319482  0.729132090846 ...
         0.469782287405 -0.143906003929 -0.224036184994 ...
         0.071309219267  0.080612609151 -0.038029936935 ...
        -0.016574541631  0.012550998556  0.000429577973 ...
         0.001901640704  0.000353713800  ];
elseif(n==8)
  c = [  0.054415842243  0.312871590914  0.675630736297 ...
         0.585354683654 -0.015829105256 -0.284015542962 ...
         0.000472484574  0.128747426620 -0.017369301002 ...
        -0.044088253931  0.013981027917  0.008746094047 ...
        -0.004870352993 -0.000391740373  0.000675449406 ...
        -0.000117476784 ];
elseif(n==9)
  c = [  0.038077947364  0.243834674613  0.604823123690 ...
         0.657288078051  0.133197385825 -0.293273783279 ...
        -0.096840783223  0.148540749338  0.030725681479 ...
        -0.067632829061  0.000250947115  0.022361662124 ...
        -0.004723204758 -0.004281503682  0.001847646883 ...
         0.000230385764  0.000251963189  0.000039347320 ];
elseif(n==10)
  c = [  0.026670057901  0.188176800078  0.527201188932 ...
         0.688459039454  0.281172343661 -0.249846424327 ...
        -0.195946274377  0.127369340336  0.093057364604 ...
        -0.071394147166 -0.029457536822  0.033212674059 ...
         0.003606553567 -0.010733175483  0.001395351747 ...
         0.001992405295 -0.000685856695 -0.000116466855 ...
         0.000093588670 -0.000013264203 ];
end