function FB=FilterBank(WellenLaenge,AnzSkalen,AnzOrientierungen,Mu)
% STARTDOC (%) FilterBank FilterBank.m
% FORMAT FB=FilterBank(WellenLaenge,AnzSkalen,AnzOrientierungen)
% HELP
% Liefert eine Filterbank mit Gaborfiltern. Die Traegerfrequenz
% wird in Abhaengigkeit von der Wellenlaenge bestimmt.
% Gebraucht werden auch die Anzahl der Skalen und Orientierungen
% Mue konnte auch hart kodiert werden, aber so hat man Raum zum spielen :-)
% Es werden separierte Gabor's zurueckgegeben.
% Rueckgabe:
%   FB ist ein 3-D Array. Das erste Index (i) des Arrays lauft ueber 
%   die Orientierungen, das zweite (j) ueber die Skalen.
%   An der Position FB{i,j} 'haengt' ein Array von Komponenten 
%   des Gaborfilters (Belegung des Arrays: help GaborFilter2D). 
%   Drittes Index kann nur Werte zwischen 1 und 5 annehmen. 
% ENDDOC

% Loesungsvorschlag zum Uebungsblatt 1.
% Autor: Alexander Falkenstern

% Rueckgabe initialisieren
FilterBank=cell(AnzOrientierungen,AnzSkalen,5);
for Orientierung=0:AnzOrientierungen-1
   Frequenz=2*pi/WellenLaenge; % Hz
   Alpha=pi/AnzOrientierungen; % Grad
   for Skala=1:AnzSkalen      
      Filter=GaborFilter2D(Frequenz,Alpha,Orientierung*Alpha,Mu,3);
      for i=1:5
         FB{Orientierung+1,Skala,i}=Filter{i,1};
      end;
      Frequenz=Frequenz*(1-sin(Alpha/2)/Mu)/(1+sin(Alpha/2)/Mu);
   end;      
end;