Page History

function [ er_gyldig, treff, antall_treff ] = analyser_tippekupong(gjetninger, fasit)
    er_gyldig = er_kupong_gyldig(gjetninger);
    treff = finn_treff(gjetninger, fasit);
    antall_treff = length(treff);
end
function retur = er_kupong_gyldig(kupong)
    antall_kryss_per_rad = sum(kupong, 2);
    er_rad_gyldig = antall_kryss_per_rad == 1;
    retur = all(er_rad_gyldig);
end
function retur = finn_treff(kupong, fasit)
    retur = all(sum(kupong, 2) == 1);
end 

function retur = lag_tilfeldig_kupong()
    retur = false(12, 3);
    for i = 1:12
        tilfeldig_kolonne = randi(3);
        retur(i, tilfeldig_kolonne) = true;
    end
end

treff = zeros(1, 10000);
for i = 1:10000
    kupong = lag_tilfeldig_kupong();
    fasit = lag_tilfeldig_kupong();
    [~, ~, antall_treff] = analyser_tippekupong(kupong, fasit);
    treff(i) = antall_treff;
end
histogram(treff);
% Man kan lage et histogram hvor y-aksen er prosentandel og ikke antall ved å kalle histogram slik:
% histogram(treff, 'Normalization', 'probability');