loadsp.m

这是一个用于语音信号处理的工具箱

% Function : load speech file.
%function speech=loadsp()

cwd=pwd;

%ax1=axes('Position',[0.05 0.80 0.8 0.1]);
%ax2=axes('Position',[0.05 0.55 0.8 0.1]);
%ax3=axes('Position',[0.05 0.30 0.8 0.1]);
%ax4=axes('Position',[0.05 0.05 0.8 0.1]);


[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);


%define some variables
LEFT=1;
LENS=length(signal1);
RIGHT=LENS;
fram_len_init=250;
zoom_level=1;
LEFT_1=LEFT;
RIGHT_1=RIGHT;

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


if exist('signal1') == 1
   LEFT_L=[LEFT_1];
   LEFT=min(LEFT_L);
   RIGHT_R=[RIGHT_1];
   RIGHT=max(RIGHT_R);
      for k=RIGHT_1:RIGHT
      signal1(k+1)=0;
   	end
      signal1=signal1(LEFT_1:RIGHT);
end


load1_pb=uicontrol('Style','Pushbutton', ...
   'String','load speech','Units','normalized','Position',[.88 .67 .095 .03],...
   'Callback', 'loadsp1;axes(ax2);plot(signal2,''color'',LINE_COLOR);title(''Speech signal 2'');');



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

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

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

shift_right=uicontrol('Style','Pushbutton',...
   'Unit','Normalized','Position',[.29 .95 .04 .05],'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 .95 .15 .05],'Callback', 'display_zoom');
%callback function [display_zoom.m]


axes('Position',[.05 .05 .8 .9],'Box','on','Visible','off');



%return