信号包络提取

%
% pr4_2_3 
clear all; clc; close all;
[xxfs]=audioread（‘sch32.wav‘）;     % 读入数据和采样频率
x=xx（:1）;                        % 双声道数据分别设定为x和y
y=xx（:2）;
N = length（x）;                    % 信号长度
n=0:N-1;                          % 序列号
[Rlags]=xcorr（yx）;              % 计算y和x的互相关函数
figure
plot（lagsR）
[RmaxK]=max（R）;                  % 在R中找最大值和相应位置
lagk=lags（K）;
fprintf（‘lagk=%4d   Rmax=%5.4f\n‘lagkRmax）;  % 显示内插前最大延迟量和幅值
[LocsVal]=findpeaks（R‘q‘35）;   % 用findpeakm函数寻找相关函数中的峰值
[VyVx]=max（Val）;
figure
plot（LocsVal）
Locs=Locs-N;                      % 修正Logs，不明白
fprintf（‘Mmax=%5.4f   Rmax=%5.4f\n‘Locs（9）Val（9））; % 显示