%
%?本程序是用于信號相關分析的實驗程序。
%?主要功能是計算和比較幾種信號的相關函數。
%??????ZhangXining???2001.5.12

clear?all;
pause?on;
FileName=input（‘請輸入相關計算的數據文件名：‘‘s‘）;
Fs=input（‘請輸入信號的采樣頻率（Hz）：‘）;

x=load（FileName）;

x=x-mean（x）;
Len=max（size（x））;
[a?b]=size（x）;
t=（0:Len-1）/Fs;
t=t‘;
if?a==1
???x=x‘;
end???
figure;
plot（tx）;
grid?on;
xlabel（‘time/s‘）;
ylabel（‘amp/mv‘）;
title（‘信號波形‘）;



%x:Col?Vector
%線性相關分析1：直接調用相關計算的函數
y=xcorr（x）;
y=y（1:Len）;
y=flipud（y）;
for?k=1:Len
???y（k）=y（k）/（Len-k+1）;
end???
figur