clear all
for h=1:20
fname=sprintf('D:\\study\\師姐論文\\邢峰師姐\\邢峰論文程序\\邢峰論文程序\\audio files\\speech\\%d.wav',h);
[x,Fs,bits]=wavread(fname);
[c,l]=wavedec(x,3,'db4');
ca=appcoef(c,l,'db4',3);%近似系數
x=ca;
enframex=enframe(x,128,64);%對信號x分幀處理，每幀有128個采樣點，相鄰幀之間有50%的疊加率
[row,col]=size(enframex);%返回行，列，每一行代表一幀，每一列表示1到128個采樣點

framelen=col;
frameinc=64;  
hang=row;%計算出分幀后語音矩陣的行數
temp1=enframe(x,framelen,frameinc);%將分幀后的數據存入temp1數組矩陣
for i=1:hang;
 j=1:frameinc;
    z(i)=max(temp1(i,j));%求第i幀前frameinc個元素最大值并存入z(i)數組中
end
for i=1:hang;
 j=framelen-frameinc:framelen;
    a(i)=max(temp1(i,j));
end
i=1:hang;
c(i)=min(z(i),a(i))*0.68;%計算每幀的門限值
for i=1:hang;
 for j=1:framelen;
    if temp1(i,j)>c(i)
        y(i,j)=temp1(i,j)-c(i);
    else if abs(temp1(i,j))<=c(i)
            y(i,j)=0;
        else if temp1(i,j)<c(i)*(-1)
                y(i,j)=temp1(i,j)+c(i);
            end 
        end
    end
 end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y(i,j)=0;  %將framelen點到450點的值置零
       
   end
end
    
for i=1:hang;
   for j=1:framelen;
    if y(i,j)>0
        y1(i,j)=1;
    else if y(i,j)==0;
            y1(i,j)=0;
        else if y(i,j)<0
                y1(i,j)=-1;
            end
        end
    end
end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y1(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y1(i,j)=0;  %將framelen點到450點的值置零
   end
end
       
       
for i=1:hang;
    for k=1:128;
    n=21:framelen;
    R(i,k)=sum(y(i,n).*y1(i,n+k));
end
end
%計算每一幀y與y1的互相關值
for i=1:hang;
    k=20:128;
Rmax(i)=max(R(i,k));%計算每幀的Rmax值
end
for i=1:hang;
    k=20:128;
    [r,kmax(i)]=max(R(i,k));%找出每幀Rmax對應的k值kmax
end
  
for i=1:hang;
    if Rmax(i)<0.25*R(i,1)
        P(i)=0;
    else P(i)=kmax(i);
    end
end

a=0;
for i=1:(hang-1);
    a=a+abs(P(i+1)-P(i));
end
speechbianhualv(h,1)=a/framelen;
end
speechbianhualv/abs(max(speechbianhualv))


clear all
for h=1:20
fname=sprintf('D:\\study\\師姐論文\\邢峰師姐\\邢峰論文程序\\邢峰論文程序\\audio files\\music\\%d.wav',h);
[x,Fs,bits]=wavread(fname);
[c,l]=wavedec(x,3,'db4');
ca=appcoef(c,l,'db4',3);%近似系數
x=ca;
enframex=enframe(x,128,64);%對信號x分幀處理，每幀有128個采樣點，相鄰幀之間有50%的疊加率
[row,col]=size(enframex);%返回行，列，每一行代表一幀，每一列表示1到128個采樣點

framelen=col;
frameinc=64;  
hang=row;%計算出分幀后語音矩陣的行數
temp1=enframe(x,framelen,frameinc);%將分幀后的數據存入temp1數組矩陣
for i=1:hang;
 j=1:frameinc;
    z(i)=max(temp1(i,j));%求第i幀前frameinc個元素最大值并存入z(i)數組中
end
for i=1:hang;
 j=framelen-frameinc:framelen;
    a(i)=max(temp1(i,j));
end
i=1:hang;
c(i)=min(z(i),a(i))*0.68;%計算每幀的門限值
for i=1:hang;
 for j=1:framelen;
    if temp1(i,j)>c(i)
        y(i,j)=temp1(i,j)-c(i);
    else if abs(temp1(i,j))<=c(i)
            y(i,j)=0;
        else if temp1(i,j)<c(i)*(-1)
                y(i,j)=temp1(i,j)+c(i);
            end 
        end
    end
 end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y(i,j)=0;  %將framelen點到450點的值置零
       
   end
end
    
for i=1:hang;
   for j=1:framelen;
    if y(i,j)>0
        y1(i,j)=1;
    else if y(i,j)==0;
            y1(i,j)=0;
        else if y(i,j)<0
                y1(i,j)=-1;
            end
        end
    end
end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y1(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y1(i,j)=0;  %將framelen點到450點的值置零
   end
end
       
       
for i=1:hang;
    for k=1:128;
    n=21:framelen;
    R(i,k)=sum(y(i,n).*y1(i,n+k));
end
end
%計算每一幀y與y1的互相關值
for i=1:hang;
    k=20:128;
Rmax(i)=max(R(i,k));%計算每幀的Rmax值
end
for i=1:hang;
    k=20:128;
    [r,kmax(i)]=max(R(i,k));%找出每幀Rmax對應的k值kmax
end
  
for i=1:hang;
    if Rmax(i)<0.25*R(i,1)
        P(i)=0;
    else P(i)=kmax(i);
    end
end

a=0;
for i=1:(hang-1);
    a=a+abs(P(i+1)-P(i));
end
musicbianhualv(h,1)=a/framelen;
end
musicbianhualv/abs(max(musicbianhualv))



clear all
for h=1:20
fname=sprintf('D:\\study\\師姐論文\\邢峰師姐\\邢峰論文程序\\邢峰論文程序\\audio files\\speech with music\\%d.wav',h);
[x,Fs,bits]=wavread(fname);
[c,l]=wavedec(x,3,'db4');
ca=appcoef(c,l,'db4',3);%近似系數
x=ca;
enframex=enframe(x,128,64);%對信號x分幀處理，每幀有128個采樣點，相鄰幀之間有50%的疊加率
[row,col]=size(enframex);%返回行，列，每一行代表一幀，每一列表示1到128個采樣點

framelen=col;
frameinc=64;  
hang=row;%計算出分幀后語音矩陣的行數
temp1=enframe(x,framelen,frameinc);%將分幀后的數據存入temp1數組矩陣
for i=1:hang;
 j=1:frameinc;
    z(i)=max(temp1(i,j));%求第i幀前frameinc個元素最大值并存入z(i)數組中
end
for i=1:hang;
 j=framelen-frameinc:framelen;
    a(i)=max(temp1(i,j));
end
i=1:hang;
c(i)=min(z(i),a(i))*0.68;%計算每幀的門限值
for i=1:hang;
 for j=1:framelen;
    if temp1(i,j)>c(i)
        y(i,j)=temp1(i,j)-c(i);
    else if abs(temp1(i,j))<=c(i)
            y(i,j)=0;
        else if temp1(i,j)<c(i)*(-1)
                y(i,j)=temp1(i,j)+c(i);
            end 
        end
    end
 end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y(i,j)=0;  %將framelen點到450點的值置零
       
   end
end
    
for i=1:hang;
   for j=1:framelen;
    if y(i,j)>0
        y1(i,j)=1;
    else if y(i,j)==0;
            y1(i,j)=0;
        else if y(i,j)<0
                y1(i,j)=-1;
            end
        end
    end
end
end
for i=1:hang;
if (j>=0)&(j<=20)
    y1(i,j)=0;
end
end   %將0到20點置零
for i=1:hang;
   for j=framelen:450;
       y1(i,j)=0;  %將framelen點到450點的值置零
   end
end
       
       
for i=1:hang;
    for k=1:128;
    n=21:framelen;
    R(i,k)=sum(y(i,n).*y1(i,n+k));
end
end
%計算每一幀y與y1的互相關值
for i=1:hang;
    k=20:128;
Rmax(i)=max(R(i,k));%計算每幀的Rmax值
end
for i=1:hang;
    k=20:128;
    [r,kmax(i)]=max(R(i,k));%找出每幀Rmax對應的k值kmax
end
  
for i=1:hang;
    if Rmax(i)<0.25*R(i,1)
        P(i)=0;
    else P(i)=kmax(i);
    end
end

a=0;
for i=1:(hang-1);
    a=a+abs(P(i+1)-P(i));
end
swmbianhualv(h,1)=a/framelen;
end
swmbianhualv/abs(max(swmbianhualv))