V_LPCAR2IM Convert AR coefs to impulse response IM=(AR,NP)
0001 function im=v_lpcar2im(ar,np) 0002 %V_LPCAR2IM Convert AR coefs to impulse response IM=(AR,NP) 0003 0004 0005 % Copyright (C) Mike Brookes 1997 0006 % Version: $Id: v_lpcar2im.m 10865 2018-09-21 17:22:45Z 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(ar); 0028 if nargin<2 np=p1-1; end 0029 im=zeros(nf,np+1); 0030 x=[1 zeros(1,np)]; 0031 for k=1:nf 0032 im(k,:)=filter(1,ar(k,:),x); 0033 end