a=imread('E:\rc\result\result1+2+3\xuan110-70 (101).tiff');
subplot(1,2,1);imshow(a);
[r,c,d]=size(a);
%提取红色分量
red=a;
red(:,:,1)=a(:,:,1);
red(:,:,2)=zeros(r,c)
red(:,:,3)=zeros(r,c);
subplot(1,2,2); imshow(red);  
imwrite(red,'E:\rc\result09-27\result\red101.tiff');