% PASCH(N) zaehlt, wie oft bei einer Simulation N-maligen Wuerfelns 
% zwei gleiche Augenzahlen direkt aufeinander folgen.
function anzahl = pasch(N)
  wuerfe = floor(6*rand(1,N)) + 1; % simuliert N-maliges Wuerfeln
                                   % (floor rundet auf ganze Zahlen ab)
  anzahl = 0;                
  for j = 1:N-1
    if wuerfe(j+1) == wuerfe(j)
      anzahl = anzahl + 1;
    end  % if
  end  % for
  
end % function