function getctimdata(savefilepath)
Difo=dir([savefilepath ‘*.tif’]);
FNtif={Difo.name};
nn=length(FNtif);
if nn==0
err=sprintf(‘No tif files here!’);
error(err);
else
filename=FNtif{1}(1:4);
end
for ii=1:nn
im(:,:,ii)=imread([savefilepath FNtif{ii}])>100;
dlmwrite([savefilepath filename ‘-raw.dat’],im(:,:,ii),’-append’,‘delimiter’,’ ');
end
在命令窗口,输入 getctimdata(‘文件名\’)两万处理的图片集文件夹替换文件名然后运行