function [erg] = muster(per,bit,x);
% per ... Anzahl der Perioden
% bit ... Anzahl der Bits pro halber Periode
% x    ... Parameter, der den ersten Aufruf markiert
%          = 0 fuer die Lernphase
%          = 1 fuer die Testphase
% erg = muster(20,6,x);


  erg = reshape(repmat([1,-1],bit,per),1,2*bit*per);
 
  if x
    pos = ceil(rand*(2*per-1))*bit + round(rand);
    erg(pos) = -erg(pos);
  end
% Dieser Plot-Teil kann selbverständlich gelöscht werden
%  close all;
%  plot(erg,'-')
 
