%==========================================================================
%FUNCIONES DE DISTRIBUCIÓN
%==========================================================================
close all; clear all; clc;
%A. DISTRIBUCIÓN BINOMIAL
p=0.4;
q=1-p;
n=50;
k=0:n;
Pk=(factorial(n)./(factorial(k).*factorial(n-k))).*p.^k.*q.^(n-k);
figure;
bar(k,Pk);
title('Distribución de Probabilidad Binomial');

%B. DISTRIBUCIÓN DE POISSON
lambda=3;
k=0:10;
Pk=(exp(-lambda)*lambda.^k)./factorial(k);
figure;
bar(k,Pk);
title('Distribución de Probabilidad de Poisson');

%B. DISTRIBUCIÓN EXPONENCIAL
lambda=1/3;
k=0:10;
Pk=lambda*exp(-lambda*k);
figure;
bar(k,Pk);
title('Distribución de Probabilidad Exponencial');