22 lines
597 B
Mathematica
22 lines
597 B
Mathematica
|
% Parâmetros
|
||
|
|
n = 8000;
|
||
|
|
p = 1/1000;
|
||
|
|
k = 7;
|
||
|
|
|
||
|
|
% (a) Cálculo usando a distribuição binomial
|
||
|
|
% Cálculo da combinação diretamente
|
||
|
|
comb = 1;
|
||
|
|
for i = 1:k
|
||
|
|
comb = comb * (n - (i - 1)) / i; % Cálculo da combinação n!/(k!(n-k)!)
|
||
|
|
end
|
||
|
|
|
||
|
|
P_binomial = comb * (p^k) * ((1 - p)^(n - k));
|
||
|
|
|
||
|
|
% (b) Cálculo usando a aproximação de Poisson
|
||
|
|
lambda = 8; % média de defeituosos em 8000 chips
|
||
|
|
P_poisson = (lambda^k * exp(-lambda)) / factorial(k);
|
||
|
|
|
||
|
|
% Resultados
|
||
|
|
fprintf('Probabilidade (Binomial) de 7 defeituosos: %.6f\n', P_binomial);
|
||
|
|
fprintf('Probabilidade (Poisson) de 7 defeituosos: %.6f\n', P_poisson);
|