[X,cmap] = imread('corn.tif');
imshow(X,cmap);
RGB = ind2rgb(X,cmap);
szRGB=size(RGB);
minRed=0.8;
indRed=find(RGB(:,:,1)>minRed);
AnteilRed=numel(indRed)/(szRGB(1)*szRGB(2))*100;
disp(['Der Anteil der Farbe rot mit Intensität größer ',num2str(minRed),' ist ',num2str(AnteilRed),' .'])