experiencias = rand(15,10000);
lancamentos = experiencias > 0.5;
resultados= sum(lancamentos);
sucessos= resultados>=6;
probSimulacao1= sum(sucessos)/10000


%prob= 85.21

%%%%%

N= 1e5; %nu´mero de experieˆncias
p = 0.5; %probabilidade de cara
k = 6; %nu´mero de caras
n = 15; %nu´mero de lanc¸amentos
lancamentos = rand(n,N) > p;
sucessos= sum(lancamentos)>=k;
probSimulacao2= sum(sucessos)/N

%prob= 84.89