%   Copyright 2003
%   Centre for Nonlinear Dynamics in Physiology and Medicine

clear
global etat etat_ass cmap mat_ed liste_stim liste_discon
NR = 5;
NC = 7;

mat_ed = zeros(NR, NC);
liste_stim = [];
liste_discon = [];

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Pour ed_res, op : 0 = etat   1 = stim   2 = discon
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Pour première stimul.
s = ones(NR, NC);
ed_res(s, 2, 1, 1); %(data_in, nombre d'états, oper, stage)


% Pour seconde stimul.
s = ones(NR, NC);
ed_res(s, 2, 1, 2); 



% Pour premier bloc
s = ones(NR, NC);
ed_res(s, 2, 2, 1); %(data_in, nombre d'états, oper, stage)


% Pour second bloc
s = ones(NR, NC);
ed_res(s, 2, 2, 2); 


% Pour édition de l'état
for r = 1:NR
  for c = 1:NC
    couleur = (sin((c * r) * 6 / (NR * NC)) + 1) * 8;
    if(couleur < 1)
      couleur = 1;
    elseif(couleur > 16)
      couleur = 16; 
    end
    C(r, c) = couleur;
  end
end

ed_res(C, 16, 0, 2);
