clear
clc

I = imread('cameraman.bmp');
I2 = I(79:178, 79:178);
I2mean = mean(mean(I2));
I2median = median(median(I2));

rowAVG = zeros(100,1);
for i = 1 : 100
    rowAVG(i) = mean(I2(i,:));
end
colAVG = zeros(1,100);
for i = 1 : 100
    colAVG(i) = mean(I2(:,i));
end

subplot(2,2,1), imshow(I2,[0 255]), title('Central part')
subplot(2,2,2), imhist(I2), axis([0 256 0 600]), title('Histogram')
subplot(2,2,3), plot(I2(80,:)), title('max row'), grid on
subplot(2,2,4), plot(I2(:,98)), title('max col'), grid on