HMM算法的语音识别的matlab程序

里面包含有matlab的源代码、GUI界面

function errstring = consist（model type inputs outputs）
%CONSIST Check that arguments are consistent.
%
%	Description
%
%	ERRSTRING = CONSIST（NET TYPE INPUTS） takes a network data structure
%	NET together with a string TYPE containing the correct network type
%	a matrix INPUTS of input vectors and checks that the data structure
%	is consistent with the other arguments.  An empty string is returned
%	if there is no error otherwise the string contains the relevant
%	error message.  If the TYPE string is empty then any type of network
%	is allowed.
%
%	ERRSTRING = CONSIST（NET TYPE） takes a network data structure NET
%	together with a string TYPE containing the correct  network type and
%	checks that the two types match.
%
%	ERRSTRING = CONSIST（NET TYPE INPUTS OUTPUTS） also checks that the
%	network has the correct number of outputs and that the number of
%	patterns in the INPUTS and OUTPUTS is the same.  The fields in NET
%	that are used are
%	  type
%	  nin
%	  nout
%
%	See also
%	MLPFWD
%

%	Copyright （c） Ian T Nabney （1996-2001）

% Assume that all is OK as default
errstring = ‘‘;

% If type string is not empty
if ~isempty（type）
  % First check that model has type field
  if ~isfield（model ‘type‘）
    errstring = ‘Data structure does not contain type field‘;
    return
  end
  % Check that model has the correct type
  s = model.type;
  if ~strcmp（s type）
    errstring = [‘Model type ‘‘‘ s ‘‘‘ does not match expected type ‘‘‘...
	type ‘‘‘‘];
    return
  end
end

% If inputs are present check that they have correct dimension
if nargin > 2
  if ~isfield（model ‘nin‘）
    errstring = ‘Data structure does not contain nin field‘;
    return
  end

  data_nin = size（inputs 2）;
  if model.nin ~= data_nin
    errstring = [‘Dimension of inputs ‘ num2str（data_nin） ...
	‘ does not match number of model inputs ‘ num2str（model.nin）];
    return
  end
end

% If outputs are present check that they have correct dimension
if nargin > 3
  if ~isfield（model ‘nout‘）
    errstring = ‘Data structure does not conatin nout field‘;
    return
  end
  data_nout = size（outputs 2）;
  if model.nout ~= data_nout
    errstring = [‘Dimension of outputs ‘ num2str（data_nout） ...
	‘ does not match number of model outputs ‘ num2str（model.nout）];
    return
  end

% Also check that number of data points in inputs and outputs is the same
  num_in = size（inputs 1）;
  num_out = size（outputs 1）;
  if num_in ~= num_out
    errstring = [‘Number of input patterns ‘ num2str（num_in） ...
	‘ does not match number of output patterns ‘ num2str（num_out）];
    return
  end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2694  2010-08-23 16:45  speech R\consist.m

     文件        921  2010-08-23 16:45  speech R\dist2.m

     文件       1189  2010-08-23 16:45  speech R\em_converged.m

     文件       6896  2010-08-23 16:45  speech R\fwdback.m

     文件        848  2010-08-23 16:45  speech R\gaussian_prob.m

     文件       4091  2010-08-23 16:45  speech R\gmm.m

     文件       3441  2010-08-23 16:45  speech R\gmminit.m

     文件        289  2010-08-23 16:45  speech R\isposdef.m

     文件       3642  2010-08-23 16:45  speech R\kmeansNetlab.m

     文件        211  2010-08-23 16:45  speech R\logdet.m

     文件        664  2010-08-23 16:45  speech R\max_mult.m

     文件       6320  2010-08-23 16:45  speech R\mfcc.m

     文件       5349  2010-08-23 16:45  speech R\mhmm_em.m

     文件        960  2010-08-23 16:45  speech R\mhmm_logprob.m

     文件       1357  2010-08-23 16:45  speech R\mixgauss_init.m

     文件       3283  2010-08-23 16:45  speech R\mixgauss_Mstep.m

     文件       4102  2010-08-23 16:45  speech R\mixgauss_prob.m

     文件        826  2010-08-23 16:45  speech R\mk_stochastic.m

     文件        861  2010-08-23 16:45  speech R\normalise.m

     文件       4526  2010-08-23 16:45  speech R\process_options.m

     文件       2641  2010-08-23 16:45  speech R\READHTK.M

     文件       1131  2010-08-23 16:45  speech R\readlab.m

     文件       1707  2010-08-23 16:45  speech R\shibiesb.m

     文件       3152  2010-08-24 18:06  speech R\shujuzhengli.asv

     文件       3297  2010-08-25 15:33  speech R\shujuzhengli.m

     文件        742  2010-08-23 16:45  speech R\sqdist.m

     文件         81  2010-08-23 16:45  speech R\t200.lab

     文件      23532  2010-08-23 16:45  speech R\t200.wav

     文件         87  2010-08-23 16:45  speech R\t201.lab

     文件      30284  2010-08-23 16:45  speech R\t201.wav

............此处省略14个文件信息