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

files = dir('nari_project.png');
file_list = str2mat(files.name);

[r, c] = size(file_list);

figure();
dataset=zeros(9,5,500);

for i=1:r
        l = str2num(file_list(i, 1:2));
        j = str2num(file_list(i, 4:4));
    
        I=imread(file_list(i, :));
        %imshow(I);
        G=rgb2gray(I);
        imshow(G);
        title(file_list(i, :));
        
        
        c=improfile;
        
        %dataset((l-5)/5, j,1:length(c))=c;
        %max_value((l-5)/5, j) = max(c);
        %min_value((l-5)/5, j) = min(c);
        
        figure;
        plot(c);
        ginput(1);
end

