Histograma por un escalar Ejemplo B

clear all;
clc;

I1=imread('im2.jpg');

[m,n]=size(I1);
a= min(min(I1));
b= max(max(I1));

maxi=1;

for i=2:m-1
for j=2:n-1

if (I1(i,j)>maxi)
maxi=I1(i,j);

end
r1=maxi;
end
end

res=(a+b)/r1;

clc;
I1=I1/res;

imshow(I1);