%
%?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））;?%?顯示