clearvars
hoehe = 9;
kugeln = 1000;

wait=1;
summe=0;
anz=hoehe+1;
behaelter(1:anz)=0;

for k=1:kugeln
    summe=0;
    
    for i=1:hoehe
        zufall = rand();
        
        if zufall < 0.5
            p=0;
        else
            p=1;
        end
        summe=summe+p;
    end
    topfNr = summe +1;
    behaelter(topfNr) = behaelter(topfNr)+1;
    bar(behaelter);
    title 'Galton Board';
    xlabel('Behaelter');
    ylabel('Anzahl Kugeln');
    
    if (k < 100)
        pause(wait);
        wait = wait * 0.9;
    else
        pause(0);
    end
end

disp(behaelter);
bar(behaelter);
title 'Galton Board';
xlabel('Behaelter');
ylabel('Anzahl Kugeln');
