1.txt

语音信号的方面

1.界面： 
clear 
global hpop hlist 
clf reset 
H=axes('unit','normalized','position',[0,0,1,1],'visible','off'); 
set(gcf,'currentaxes',H); 
str='\fontname{隶书}'; 
h_fig=get(H,'parent'); 
set(h_fig,'unit','normalized','position',[0.1,0.2,0.7,0.6]); 
hlist=uicontrol(h_fig,'style','list','unit','normalized',... 
'position',[0.7,0.6,0.2,0.2],... 
'string','录音|滤波|分帧|端点检测|录音回放','MAX',2); 
hpush=uicontrol(h_fig,'style','push','unit','normalized',... 
'position',[0.76,0.32,0.1,0.06],'string',{'运行'},'callback',... 
'yuyin'); 
分帧： 
function f=enframe(x,win,inc) 
nx=length(x); 
nwin=length(win); 
if (nwin == 1) 
len = win; 
else 
len = nwin; 
end 
if (nargin < 3) 
inc = len; 
end 
nf = fix((nx-len+inc)/inc); 
f=zeros(nf,len); 
indf= inc*(0:(nf-1)).'; 
inds = (1:len); 
f(:) = x(indf(:,ones(1,len))+inds(ones(nf,1),:)); 
if (nwin > 1) 
w = win(:)'; 
f = f .* w(ones(nf,1),:); 
end 

global hlist 
B=get(hlist,'value'); 
switch B 
case 1 
fs = 11025; 
x = wavrecord(5*fs); 
subplot('position',[0.001,0.03,1,0.8]),plot(x);... 
title('原图'); 
axis square;axis off 

case 2 
I=imread('bonemarr.tif'); 
J=imadjust(I,[0 1],[1 0],1.3); 
subplot('position',[0.05,0.6,0.3,0.3]),subplot('position',[0.05,0.6,0.3,0.3]),imshow(I);... 
title('原图'); 
axis square;axis off 
subplot('position',[0.38,0.6,0.3,0.3]),imshow(J),title('调整后'); 

case 3 
f=enframe(x,10); 
subplot('position',[0.05,0.6,0.3,0.3]),subplot('position',[0.05,0.6,0.3,0.3]),plot(x);... 
title('原图'); 
axis square;axis off 
subplot('position',[0.38,0.6,0.3,0.3]),plot(f),title('分帧后'); 

case 4 
[x1,x2] = vad(x) 

case 5 
wavplay(x); 
end