% Bilder (00-08) aus singles_convalaria einlesen
% Bild der Größe 325x455
% Size: 455x325 (n x m)
% n -> Zeilen
% m -> Spalten


% Bild aus Ordner einlesen
fpath=['/home/sabrina/Desktop/Bilder/'];
textlist=dir([fpath '*.tif']); % Speichern der Namen aller tif's

picture = cell(1,length(textlist));
%in img werden alle Bilder aus dem Ordner Bilder gespeichert
for k=1:length(textlist)
    img=imread([fpath textlist(k).name]);
	picture{k} = img;
    % ... und dann einfach mit picture{k} weiterarbeiten
end 

img = picture{1};
[n,m] = size(img);



% dreidimensionale matrix, 9 matrizen in z-ebene übereinander gestapelt
C=nan(n,m,9);	% Matrix an jeder stelle den wert NAN zuweisen
				 % (Zeile, Spalte, Ebene)
%C(:,:,1) = picture{1}; % Ebene 1

% Matrix C mit Bildmatrizen füllen
for k = 1:9 
     C(:,:,k) = picture{k}; 
	% muss über die Zeilen n laufen und nicht über die Spalten m
end

M = cell(1,m);
for l=1:m
   b(:,:,l)=reshape(C(:,l,:),n,9);
	M{l} = b(:,:,l);
end

% bestimmung Min-/Max
x = cell(1,m); 
y = cell(1,m); 
for h = 1:m
	x{h} = (max(M{h}'))';
	y{h} = (min(M{h}'))';
end	
c = [x{:}];	% matrix die alle maximas enthält
g = [y{:}]; % matrix die alle minimas enthält


% finalMatrix = Min-Max
finalMatrix = g-c;
imshow(finalMatrix)

%save striped_9_Laufzeit.txt finalMatrix