% prog05.m
% H. Knoll
% 21.8.2001
%
% Aufgabe 2
%
% Erzeugen Sie 100 Würfelzahlen und zählen Sie ab, wieviele von jedem 
% Wert auftreten. Wiederholen Sie den Lauf mehrmals. Erhöhen Sie die 
% Anzahl (z.B. 1000).
%----------------------------------------------------------------------
clear all				   	% Alle Variablen löschen
s1=0;s2=0;s3=0;s4=0;s5=0;s6=0;

for n=1:1:100
   z=round(rand(1)*5+1);	% Erzeugen der Würfelzahlen
   switch z
   case 1
      s1=s1+1;
   case 2
      s2=s2+1;
   case 3
      s3=s3+1;
   case 4
      s4=s4+1;
   case 5
      s5=s5+1;
   case 6
      s6=s6+1;
   otherwise
      disp('Da ist etwas schief gelaufen!')
   end
end

disp(' ')
disp(strcat(num2str(s1),' mal 1'))	% strcat verknüpft Strings
disp(strcat(num2str(s2),' mal 2'))
disp(strcat(num2str(s3),' mal 3'))
disp(strcat(num2str(s4),' mal 4'))
disp(strcat(num2str(s5),' mal 5'))
disp(strcat(num2str(s6),' mal 6'))
disp(' ')
disp(' ')

      
   