% Vorlesung Neuronale Netze SS 2001, Uebung 1, Aufgabe 3

IVM = [ 1 1 ; -100 -100 ];          % Interne Verknüpfungsmatrix
EVM = [ 1 1 ];                      % Eingabe Verknüpfungsmatrix
ZV = [ 0  0];                       % Zustrands(zeilen)vektor 
SV = [1  2];                        % Schwellwert(zeilen)vektor
EM = [ 0 0 1 1 0 0 1 1 1 1 1 0 ];   % Eingabematrix (Zeit in Spalten!)

maxtime=size(EM,2);                 % Anzahl der Zeitschritte holen.
for t = 1:maxtime; 
  EV = EM(:,t);                     % Eingabevektor zur Zeit t holen.

  ERG = EV * EVM + ZV * IVM - SV;   % Erregung der Neuronen berechnen.

  ZV = zeros(size(ZV));             % Neuen Zustand initialisieren ...
  ZV(sign(ERG)>=0)=1;               % ... und setzen.

  % Zustand des zweiten Neurons als Output mit Zeit und Eingabe ausgeben.
  disp(sprintf('Zeit %i: Eingabe %i, Ausgabe %i',t,EV,ZV(2)));

end;


