定义一个函数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);    endend