ldata1.m

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

% Script : load the speech file for voice conversion: target and source

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

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

  if target==1  %% load the target file
     speech2=speech;
     vctyp2=vctyp;
     gci2=gci;
     ir2=ir;
     cofa2=cofa;
     gm2=gm;
     gpcf2=gpcf;
     nidx2=nidx;
     ngm2=ngm;
     if vt==2
        FF2=FF;
        FB2=FB;
     end
     set(speech2_pb,'String',in_file)

  elseif target==0  %% load the source file

     speech1=speech;
     vctyp1=vctyp;
     gci1=gci;
     ir1=ir;
     cofa1=cofa;
     gm1=gm;
     gpcf1=gpcf;
     nidx1=nidx;
     ngm1=ngm;
     if vt==2
        FF1=FF;
        FB1=FB;
     end
     set(speech1_pb,'String',in_file)

  end

  % clear previous data
  clear vctyp3 gci3 ir3 cofa3 gm3 gpcf3 nidx3 ngm3 FF3 FB3;
  clear target;
  clear speech vctyp gci ir cofa gm gpcf nidx ngm FF FB;

else

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