%zadani 7: kosek 4, padne jedno, dve nebo tri licha cisla

clear all;
format long;
echo off;
clc;

priznivych_vysledku=0;

propability=7/8;

%vygenerovani nahodnych vektoru (hodu kostkou)
for i=1:1:100

    k1=0;
    k2=0;
    k3=0;
    k4=0;
    
    %vygenerovani jednotlivych hodu (prirozena cisla 1-6)
    for j=1:1:4
        
        x(i,j)=round(0.5+6*rand);

    end
    
    if mod(x(i,1),2)~=0
    
        k1=1;
    
    end

    if mod(x(i,2),2)~=0
    
        k2=1;
    
    end

    if mod(x(i,3),2)~=0
    
        k3=1;
    
    end

    if mod(x(i,4),2)~=0
    
        k4=1;
    
    end
    
    if (k1+k2+k3+k4)>0 & (k1+k2+k3+k4)<=3
        
        priznivych_vysledku=priznivych_vysledku+1;
    
    end
    
    xaxis(i,1)=i;                       %osa x linearni pribyva po jedne
    relat(i,1)=priznivych_vysledku/i;   %relativni cetnost priznivych vysledku
    relat(i,2)=propability;             %pravdepodobnost prizniveho vysledku (stale stejna hodnota)
    
end

%vykresleni grafu

plot(xaxis(:,1),relat(:,1),'b',xaxis(:,1),relat(:,2),'r');