%VRATA simulacija igre stremi vrati
%VRATA(n) n je stevilo ponovitev
function zadetki=vrata(n);
  rand('state',100*sum(clock));
  zadetki=0;
  for i=1:n
      st_vrat=ceil(3*rand(1));%izberemo stevilko vrat z nagrado
      v=zeros(1,3);%tabela vrat
      v(st_vrat)=1;%tukaj je nagrada
      prazno=find(v==0);%indeksi kjer ni nagrade
      izbira1=input('Izberite vrata 1,2 ali 3 '); 
      if izbira1==st_vrat
          odpri=ceil(2*rand(1));%nak. st. med 1 in dva
          disp(sprintf('Avtomobila ni za vrati st. %d',prazno(odpri)));
      else 
          prazno=setdiff(prazno,izbira1);
          disp(sprintf('Avtomobila ni za vrati st. %d',prazno));
      end
      izbira2=input('Lahko se enkrat izbirate ');
      if izbira2==st_vrat
          zadetki=zadetki+1;
          disp('BRAVO!!! Zadeli ste nagrado!');
      else
          disp('Zal nagrade ni za temi vrati!');
      end
      pause;
  end
  disp(sprintf('Delez zadetkov je %2.2f procentov!',100*zadetki/n));
 