len=100;   %每幀的數據長度
n=3;    %進行仿真的幀數
c=[1 1 1 -1 -1 1 -1];    %巴克碼
for i=1:n
    s(i,:)=randsrc(1,len);   %產生每周的信源數據
end
r=[c s(1,:) c s(2,:) c s(3,:)];         %將巴克碼插入信源數據中
thr=6;       %判決門限，這個數值可在實際系統中進行調整
out=zeros(1,length(r));
num=[];      %儲存可能的幀頭
for i=7:n*len+n*7
    out(i)=sum(r(i-6:i).*c);    %每7個數據進行一次相關求和
    if(out(i)>thr)           %判斷相關求和值是否大于門限
        num=[num i];         %將大于門限的位置進行儲存
    end
end