LPCIM2AR Convert impulse response to AR coefs AR=(IM)

0001 function ar=lpcim2ar(im) 0002 %LPCIM2AR Convert impulse response to AR coefs AR=(IM) 0003 0004 0005 % Copyright (C) Mike Brookes 1997 0006 % Version: $Id: lpcim2ar.m 713 2011-10-16 14:45:43Z dmb $ 0007 % 0008 % VOICEBOX is a MATLAB toolbox for speech processing. 0009 % Home page: http://www.ee.ic.ac.uk/hp/staff/dmb/voicebox/voicebox.html 0010 % 0011 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0012 % This program is free software; you can redistribute it and/or modify 0013 % it under the terms of the GNU General Public License as published by 0014 % the Free Software Foundation; either version 2 of the License, or 0015 % (at your option) any later version. 0016 % 0017 % This program is distributed in the hope that it will be useful, 0018 % but WITHOUT ANY WARRANTY; without even the implied warranty of 0019 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0020 % GNU General Public License for more details. 0021 % 0022 % You can obtain a copy of the GNU General Public License from 0023 % http://www.gnu.org/copyleft/gpl.html or by writing to 0024 % Free Software Foundation, Inc.,675 Mass Ave, Cambridge, MA 02139, USA. 0025 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0026 0027 [nf,p1]=size(im); 0028 ar=zeros(nf,p1); 0029 wz=[1 zeros(1,p1-1)]; 0030 for k=1:nf 0031 ar(k,:)=wz/toeplitz(wz,im(k,:)/im(k,1)); 0032 end

Generated on Mon 06-Aug-2018 14:48:32 by