% 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/schuengel/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]);%./255;
	picture{k} = img;
    % ... und dann einfach mit picture{k} weiterarbeiten
end 

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

function = Algo2

% 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)


% Matrix C mit Bildmatrizen füllen
for k = 1:9  
     C(:,:,k) = fft(picture{k}); 
	% Fast-Fourier Transformation jeder Bildmatrix
end

% Transformierte Matrizen aufsummieren
S = 0;
for l = 1:9
	S = S + C(:,:,l);
end

% Inverse Fourier Transformation durchführen und neues Bild als txt-File speichern ->  mit ImageJ öffnen
newimg = ifft(S);
realImg = real(newimg);
imshow(realImg, [9 1383])


%imwrite(realImg,"Bild.tif");
%save fftImg.txt newimg