function??finalmat?=?batchglcm（newdirfilenamenmlabelDtxtname）
%newdir為需要處理的圖像所在的文件夾路徑，filename是圖像名字，為字符串，n是圖像總數，m為特征向量的維數
if?~exist（newdir‘dir‘）?
mkdir（newdir）;?
end?
paths=[pwd‘\‘newdir‘\‘];
labelmat?=?zeros（1n）;
labelmat（1:）=label;
idmat?=?1:1:n;
featuremat?=?zeros（mn）;
finalmat?=?zeros（m+2n）;
for?k=1:n;?
????img?=?imread（[pathsfilenamenum2str（k）‘.jpg‘]）;
????glcms1?=?graycomatrix（img‘numlevels‘64‘offset‘[0?D;-D?D;-D?0;-D?-D]）;
????stats?=?graycoprops（glcms1{‘contrast‘‘correlation‘‘energy‘‘homogeneity‘}）;
????ga1?=?glcms1（::1）;
????ga2?=?glcms1（::2）;
????ga3?=?glcms1（::3）;
????ga4?=?glcms1（::4）;
????energya1?=?0;energya2?=?0;energya3?=?0;energya4?=?0;
????for?i?=?1:64
????????for?j?=?1:64
????????????energya1?=?energya1?+?sum（ga1（ij