%% File: p1.m
infile='Nikolaus_Kopernikus.jpg';
%% Read image file
A=imread(infile);
%% Print information about image pixels
disp(['Pixels of class ', class(A)]);
sz=size(A);
disp(['Image size (height-by-width-by-number-of-color-planes): ', ...
      num2str(sz)]);
%% Extract a 5x5 left upper corner
A(1:5,1:5,:)