function [X1,X2,M1,V1,M2,V2]=Exercice1(n,a,b,lambda,mc)
          %Partie de la loi uniforme
[X1]    = Question1(n,a,b);
[M1,V1] = Q2Numrique(n,a,b,mc);
          Q2Graphique(n,a,b);
          %Partie de la loi exponentielle 
[X2]    = Question3(n,lambda);
[M2,V2] = Q3Numrique(n,lambda,mc);
          Q3Graphique(n,lambda);
end

function [X] =  Question1(n,a,b)
  for i=1:n
      u=random('unif', 0 , 1);
      X(i) = (b-a)*u+a;
  end
end

function [M,V] = Q2Numrique(n,a,b,mc)
for i=1:mc
    [X]  = Question1(n,a,b);
    m(i) = mean (X); 
    v(i) = mean(X); 
end
M=mean(m);
V=mean(v); 
end

function Q2Graphique(n,a,b)
[X] = Question1(n,a,b);
hist(X);
title('Histogramme de la dispersion des données  générées.')
end

function [X] = Question3(n,lambda)
for i=1:n
    u=random('unif', 0 , 1);
    X(i) =(-1/lambda)*log(1-u);
end
end

function [M,V] = Q3Numrique(n,lambda,mc)
for i=1:mc
    [X] = Question3(n,lambda);
    m(i)= mean (X); 
    v(i) = mean(X); 
end
M=mean(m);
V=mean(v); 
end

function Q3Graphique(n,lambda)
[X] = Question3(n,lambda);
figure 
histfit(X,10,'exp');
title('Histogramme de la dispersion des données  générées \newline Vs.  la densité exponentielle de paramètre \lambda.')
end