Parallell 1: Forelesninger for BKJ, MLREAL, MTBYGG, MTENERG, MTING, MTIØT, MTMT og MTTEKGEO

n = 2000;
draw = unidrnd(6,1,1);
nSuccess = [(draw == 2) + (draw == 4)];
nTry = [1];
 
 
draw = unidrnd(6,1,1);
next = nSuccess(length(nSuccess)) + (draw == 2) + (draw == 4);
nSuccess = [nSuccess; next];
nTry = [nTry; 2];
plot(nTry,nSuccess./nTry,'-');
pause;
 
draw = unidrnd(6,1,1);
next = nSuccess(length(nSuccess)) + (draw == 2) + (draw == 4);
nSuccess = [nSuccess; next];
nTry = [nTry; 3];
plot(nTry,nSuccess./nTry,'-');
pause;
 
draw = unidrnd(6,1,1);
next = nSuccess(length(nSuccess)) + (draw == 2) + (draw == 4);
nSuccess = [nSuccess; next];
nTry = [nTry; 4];
plot(nTry,nSuccess./nTry,'-');
pause;
 
for i=5: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
 
nSuccess(length(nSuccess)) / n