%將指定的圖象文件轉化為灰度圖象
%filename:圖象文件名
%作者:重慶大學  田建國
%時間:2007年7月9日
function I=im2gray(filename)

colortype=imfinfo(filename);
colortype=colortype.ColorType;%獲取圖象顏色類型

%類型判斷
switch(colortype)
    case 'truecolor'
        I=rgb2gray(imread(filename));
    case  'indexed'
        [I,map]=imread(filename);
        I=ind2gray(I,map);
    otherwise
        I=imread(filename);
end
clear filename;clear colortype;