ldata.m

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

% Script : load the speech file for analysis.

cwd=pwd;
[in_file pathname]=uigetfile([cwd '\anadata\*.mat'],'Load input file');

if in_file~=0

  clear speech vctyp gci ir cofa gm gpcf nidx ngm FF FB;
  eval(['load ' pathname in_file]);
  eval(['cd ' cwd]);

  %if exist('s_pb_ld')==1
  %    set(s_pb_ld,'String',['load file:  ' in_file])
  %end
  clear cwd;

  %retrieve the basic specification
  numf=basic(1);
  vt=basic(2); 
  sr=basic(3);
  Order=basic(4);
  fram_len=basic(5);
  over_len=basic(6);
  m_len=basic(7);
  [nframe,dum]=size(cofa);

  % clear previous data
  clear speech1 vctyp3 gci3 ir3 cofa3 gm3 gpcf3 nidx3 ngm3 FF3 FB3;

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % normalize the speech signal %
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

else

  disp('Error loading speech file!! please check it again!');
end