# vypocte histogramy
function histogramy
  MAX=20
  load -ascii random.txt  # nacte matici nahodnych cisel
  size(random)
  histogram=zeros(5,MAX+1);  # cetnosti nuly az MAX
  for i=0:MAX                # pocitam cetnost hodnoty "i"
    kde=(random==i);      # kde_i ma "1" na miste "i" jinak nuly
    histogram(:,i+1)=sum(kde,2);  # scita jednicky na radcich
  endfor
  for i=1:5
    bar(0:MAX,histogram(i,1:MAX+1)); # kresli histogram
    pause(2);           # ceka 2 sekundy
  endfor
endfunction

