max_value = zeros(9, 5);
min_value = zeros(9, 5);

files = dir('*(F).tif');
file_list = str2mat(files.name);

[r, c] = size(file_list);

figure();

for i=1:r
        l = str2num(file_list(i, 1:2));
        j = str2num(file_list(i, 4:4));
    
        imshow(file_list(i, :));
        title(file_list(i, :));
        
        c=improfile;
        
        max_value((l-5)/5, j) = max(c);
        min_value((l-5)/5, j) = min(c);
        
        plot(c);
        ginput(1);
end

