Если у вас есть Image Processing Toolbox, вы можете использовать функцию RGB2GRAY.
for k=1:500
Ic=imread(['Image' num2str(k) '.tif']);
Ig=rgb2gray(Ic);
imwrite(Ig,['Image' num2str(k) 'A.tif'],'tif')
end
Если у вас нет решения здесь .
Замените строку rgb2gray на:
Ig = 0.2989 * Ic(:,:,1) + 0.5870 * Ic(:,:,2) + 0.1140 * Ic(:,:,3);