turbuno.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 47 行

% turbuno.m
% modified by D. G. Childers 7/14/98

noise_h=figure('Position',[66 420 450 120], 'NumberTitle','off',...
	'Resize','off','Name','Turbulence noise parameters Window', ...
	'color',BACK_COLOR);
axis('off');
ss=sprintf('Turbulence Place:');
text(-0.13,0.90,ss,'color',TEXT_COLOR,'FontSize',9);
turplace_h=uicontrol('Style','Popup','Position',[138 91 300 20], ...
'String','At the Center of the Maximal Constriction|Downstream from the Maximal Constriction|Upstream from the Maximal Constriction|Distributed along the Constriction Region','Value',2);

ss=sprintf('Turbulence gain:');
text(-0.13,0.63,ss,'color',TEXT_COLOR,'FontSize',9);
turgain_h=uicontrol('Style','Slider','Min',1,'Max',50,'Value',20,...
	'Position',[175 67 90 18],'Callback', ...
	'set(turgain_e_h,''String'',round(get(turgain_h,''Value'')))');
turgain_e_h=uicontrol('Style','edit','Position',[129 67 40 18], ...
	'Callback', ...
	'set(turgain_h,''Value'',eval(get(turgain_e_h,''String'')))');
ss=sprintf('*0.0000001');
text(0.62,0.63,ss,'color',TEXT_COLOR,'FontSize',9);
set(turgain_e_h,'String',20);

ss=sprintf('Critical Reynolds No.:');
text(-0.13,0.36,ss,'color',TEXT_COLOR,'FontSize',9);
criRe_h=uicontrol('Style','Slider','Min',0,'Max',50,'Value',27,...
	'Position',[202 43 90 18],'Callback', ...
	'set(criRe_e_h,''String'',round(get(criRe_h,''Value'')))');
criRe_e_h=uicontrol('Style','edit','Position',[156 43 40 18],'Callback', ...
	'set(criRe_h,''Value'',eval(get(criRe_e_h,''String'')))');
ss=sprintf('*100');
text(0.70,0.36,ss,'color',TEXT_COLOR,'FontSize',9);
set(criRe_e_h,'String',27);

ss=sprintf('Glottal volume velocity:');
text(-0.13,0.09,ss,'color',TEXT_COLOR,'FontSize',9);
glotvol_h=uicontrol('Style','Slider','Min',0,'Max',1500,'Value',1000,...
	'Position',[214 14 90 18],'Callback', ...
	'set(glotvol_e_h,''String'',round(get(glotvol_h,''Value'')))');
glotvol_e_h=uicontrol('Style','edit','Position',[168 14 40 18],'Callback', ...
	'set(glotvol_h,''Value'',eval(get(glotvol_e_h,''String'')))');
ss=sprintf('cm^3/sec');
text(0.73,0.09,ss,'color',TEXT_COLOR,'FontSize',9);
set(glotvol_e_h,'String',1000);