aspino.m

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

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

aspino_h=figure('Position',[56 40 305 75], 'NumberTitle','off',...
	'Resize','off','Name','Aspiration noise parameters', ...
	'color',BACK_COLOR);
axis('off');
ss=sprintf('Gain (ah) :');
text(-0.10,0.72,ss,'color',TEXT_COLOR,'FontSize',10);
aspigain_h=uicontrol('Style','Slider','Min',0,'Max',100,'Value',60,...
	'Position',[138 45 90 18],'Callback', ...
	'set(aspigain_e_h,''String'',round(get(aspigain_h,''Value'')))');
aspigain_e_h=uicontrol('Style','edit','Position',[90 45 40 18], ...
	'Callback', ...
	'set(aspigain_h,''Value'',eval(get(aspigain_e_h,''String'')))');
ss=sprintf('dB');
text(0.83,0.72,ss,'color',TEXT_COLOR,'FontSize',10);
set(aspigain_e_h,'String',60);

ss=sprintf('Aspi. filter :');
text(-0.12,0.25,ss,'color',TEXT_COLOR,'FontSize',10);
aspifil_h=uicontrol('Style','Slider','Min',-100,'Max',100,'Value',0,...
	'Position',[138 17 90 18],'Callback', ...
	'set(aspifil_e_h,''String'',round(get(aspifil_h,''Value'')))');
aspifil_e_h=uicontrol('Style','edit','Position',[90 17 40 18], ...
	'Callback', ...
	'set(aspifil_h,''Value'',eval(get(aspifil_e_h,''String'')))');
ss=sprintf('*0.01');
text(0.83,0.25,ss,'color',TEXT_COLOR,'FontSize',10);
set(aspifil_e_h,'String',0);