loadmtx.m

麻省理工学院的人工智能工具箱,很珍贵,希望对大家有用!

function M=loadMtx(cam,name);
%M=loadMtx(CAM,NAME)
%   Devuelve en M la variable NAME, que se encuentra en CP.MAT,
%   y si no en un archivo NAME.MAT,  dentro del directorio CAM.
cfgdir=dir(cam); 
[dcfg{1:size(cfgdir,1)}]=deal(cfgdir.name);
if any(strcmpi(dcfg,'CP.mat'))
   vars=who('-file',[cam 'CP']);
   if any(strcmpi(vars,name)) 
      gvar='CP.mat';
   elseif any(strcmpi(dcfg,[name '.mat']))
      gvar=[name '.mat'];
   else
      error([cam ': ' name ' variable or file not found']);   
   end
   DATA=load([cam gvar],name);
   M=eval(['DATA.' name]);
else
	error([cam 'CP.mat: not found']);   
end