定义一个函数subsamp，输入为彩色图像文件名，输出并显示尺寸减半的彩色 图像（原始、水平翻转、垂直翻转、中心区域变红）。必须使用控制语句，在命令窗口成功调用！

function [img1,img2,img3,img4]=SubSamp(filename);
img=imread(filename);
for a=1:4
    figure
    switch a
      case 1
        imshow(img(1:2:end,1:2:end,:));%使图像尺寸减
      case 2      
        imshow(img((end:-1:1,:,:));%使图像水平翻转
      case 3
        imshow(img3((:,end:-1:1,:));%使图像垂直翻转
      case 4
            %使图像中心区域100*100变红
            [m,n,t]=size(img);      
            img(m/2-50:m/2+50,n/2-50:n/2+50,1)=255;          
            imshow(img4);
    end
end