

function andel = terningkast1(n)
%
% Simulerer gjentatte (n) kast med terning og regner fortl?pende
% ut og plotter andel av kastene som gav 2 eller 4.
%
% INPUT PARAMETERS
%   n: antall kast
% OUTPUT PARAMETERS
%   andel: andel av de n kastene som gav 2 eller 4
 
draw = unidrnd(6,1,1);
nSuccess = [(draw == 2) + (draw == 4)];
nTry = [1];
for i=2:n
  draw = unidrnd(6,1,1);
  next = nSuccess(length(nSuccess)) + (draw == 2) + (draw == 4);
  nSuccess = [nSuccess; next];
  nTry = [nTry; i];
 
  plot(nTry,nSuccess./nTry,'-');
  pause(0.01);
end
 
andel=nSuccess(length(nSuccess))/n;