barev=input ('Zadejte pocet cisel, ze kterych se vytvori zadani: ');
while barev < 2
    disp(['Musi byt zadana alespon 2 cisla.'])
    barev=input('Zadejte znovu pocet cisel, ze kterych se vytvori zadani: ');
end
% barev...rozsah myslenych cisel

delka=input ('Zadejte pocet policek: ');
while delka < 2
    disp (['Pocet policek musi byt min 2.'])
    delka=input('Zadejte znovu pocet policek: ');
end
% delka...pocet myslenych cisel

disp([' '])

% vytvorim posloupnost z cisel mezi 1 a 'barev', posloupnost bude mit 'delka' cisel

tajne=ceil(barev.*rand(1,delka));
% tajne...myslena cisla


% spocitam kolik je tam kterych cisel (myslenych)

for i=1:barev 
      barvy_tajne([i])=0;
end

for i=1:delka
    barvy_tajne([tajne([i])])=barvy_tajne([tajne([i])])+1;
end

ok=[];
ko=[];
bilych=0;
pokus=10;

while (bilych~=delka) && (pokus>0)
    
    bilych=0;
    cernych=0;
    
    disp(['Zbyvajicich pokusu je ' num2str(pokus) '.'])
    disp([' '])
    disp(['Hadejte ' num2str(delka) ' cisel(a) od 1 do ' num2str(barev) '. Jednotliva cisla oddelte Entrem.'])
    for i=1:delka
        zadane([i])=input (['Tipovane cislo na pozici ' num2str(i) ' je: ']);
        while (zadane(i)<1 | zadane(i)>barev)
            disp(['Tipovane cislo musi byt v rozmezi 1 az ' num2str(barev) ' !!!'])
            zadane([i])=input(['Zadejte, prosim, znovu tipovane cislo na pozici ' num2str(i) ': ']);
        end
    end
    
    % zjistim pocet spravnych cisel na spravnem miste
    
    for i=1:delka
        if tajne([i])==zadane([i])
            bilych=bilych+1;
        end
    end

    
    % spocitam kolik je tam kterych cisel (zadanych)
    
    for i=1:barev
        barvy_zadane([i])=0;
    end
    
    for i=1:delka
        barvy_zadane([zadane([i])])=barvy_zadane([zadane([i])])+1;
    end
    
    
    % zjitim pocet spravnych cisel na spatnem miste
    
    for i=1:barev
        if barvy_tajne([i])<barvy_zadane([i])
            cernych=cernych+barvy_tajne([i]);
        else
            cernych=cernych+barvy_zadane([i]);
        end
    end
    
    cernych=cernych-bilych;
    
    pokus=pokus-1;
    
    disp([' '])
    disp(['Bilych (spravne) je ' num2str(bilych) '.'])
    disp(['Cernych (jinde) je ' num2str(cernych) '.'])
    disp([' '])
    disp([' '])
    
    ok=[ok bilych];
    ko=[ko cernych];
    
end


if bilych==delka
    disp(['Uhadl jsi!!!'])
else
    disp(['Prohral jsi!!!'])
end


%graf

x=1:1:10-pokus;
y=ok(x);
z=ko(x);
plot(x,y,'mo-');
hold on
plot(x,z,'bo-')
hold off


title('POCET TREF V JEDNOTLIVYCH POKUSECH');
xlabel('pokusy')
ylabel('pocet uhadnutych cisel')

legend('na spravnem miste','na jinem miste')