loadsp.m

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

%  load speech file and complete figure

cwd=pwd;

global BACK_COLOR TEXT_COLOR LINE_COLOR;	

   BACK_COLOR=[1 1 1]; %white
	TEXT_COLOR=[0 0 0]; %black
   LINE_COLOR=[0 0 1]; %blue


[fname pathname]=uigetfile('*.dat','Load input file(ASCII)');
   
S=sprintf('cd %s',cwd);
eval(S);

if fname ~= 0
   S=sprintf('Loading data .....');
   disp(S);
   S=sprintf('load %s%s',pathname,fname);
   eval(S);
   
   o_fname=fname;
   o_pname=pathname;
   name=basename(fname);
   
else
   fname=o_fname;
   pathname=o_pname;
end

signal1=eval(name);

% initialization
LEFT=1;
LENS=length(signal1);
RIGHT=LENS;
fram_len_init=250;
zoom_level=1;

play0_pb=uicontrol('Style','Pushbutton', ...
   'String','play','Units','normalized','Position',[.88 .6 .099 .11],...
   'Callback', 'play(signal1(LEFT:RIGHT));');
spec0_pb=uicontrol('Style','Pushbutton', ...
   'String','spectrogram','Units','normalized','Position',[.88 .5 .099 .11],...
   'Callback', 'sgram1'); 
wave0_pb=uicontrol('Style','Pushbutton', ...
   'String','waveform','Units','normalized','Position',[.88 .4 .099 .11],...
   'Callback', 'axes(ax1);plot((LEFT:RIGHT),signal1(LEFT:RIGHT),''color'',LINE_COLOR);title(''Speech signal 1'');');

%close_pb=uicontrol('Style','Pushbutton', ...
%   'String','close','Units','normalized','Position',[.88 .3 .099 .11],...
%   'Callback', 'close_display_speech_1');


shift_text=uicontrol('Style','text',...
   'Units','normalized','Position',[0.06 .85 .10 .1],'String','Scroll:',...
   'BackGroundColor',[0.68 0.68 0.68]);

shift_pts=uicontrol('Style','edit', ...
   'Unit','Normalized','Position',[.19 .85 .1 .1],'String',fram_len_init);

shift_left=uicontrol('Style','Pushbutton',...
   'Unit','Normalized','Position',[.15 .85 .04 .1],'Visible','off','String','<',...
   'Callback','sf_flag=1;shft');
%callback function [shft.m]

shift_right=uicontrol('Style','Pushbutton',...
   'Unit','Normalized','Position',[.29 .85 .04 .1],'Visible','off',...
   'String','>','Callback','sf_flag=-1;shft');
%callback function [shft.m]


zoom_in_out=uicontrol('Style','Pushbutton', ...
   'String','Zoom in or out','Units','normalized','Position',[.59 .85 .15 .1],'Callback', 'display_1_zoom');
%callback function [display_1_zoom.m]