N=0 //nombre de fois où on obtient 4 consécutifs égaux en 100 lancers
for k=1:400
M=floor(6*rand(1,100)+1)
d=0
for i=1:97
    if (M(1,i)==M(1,i+1))&(M(1,i+1)==M(1,i+2))&(M(1,i+2)==M(1,i+3)) then
        d=1
    end
end
if d==1 then N=N+1
end
end
afficher("fréquence = ")
afficher(N/400)
