# v_lpcar2ra

## PURPOSE

V_LPCAR2RA Convert ar filter to inverse filter autocorrelation coefs. RA=(AR)

## SYNOPSIS

function ra=v_lpcar2ra(ar)

## DESCRIPTION

    V_LPCAR2RA Convert ar filter to inverse filter autocorrelation coefs. RA=(AR)

## CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

- v_distchar V_DISTCHAR calculates the cosh spectral distance between AR coefficients D=(AR1,AR2,MODE)
- v_distisar V_DISTISAR calculates the Itakura-Saito distance between AR coefficients D=(AR1,AR2,MODE)
- v_distitar V_DISTITAR calculates the Itakura distance between AR coefficients D=(AR1,AR2,MODE)

## SOURCE CODE

    0001 function ra=v_lpcar2ra(ar)
    0002 %V_LPCAR2RA Convert ar filter to inverse filter autocorrelation coefs. RA=(AR)
    0003
    0004
    0005 %      Copyright (C) Mike Brookes 1997
    0006 %      Version: $Id: v_lpcar2ra.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 Lesser General Public License as published by
    0014 %   the Free Software Foundation; either version 3 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 Lesser General Public License for more details.
    0021 %
    0022 %   You can obtain a copy of the GNU Lesser General Public License from
    0023 %   https://www.gnu.org/licenses/ .
    0024 %
    0025 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    0026
    0027 [nf,p1]=size(ar);
    0028 ra=zeros(nf,p1);
    0029 for i=1:p1
    0030    ra(:,i)=sum(ar(:,1:p1+1-i).*ar(:,i:p1),2);
    0031 end
    0032