function [X]=Exercice2(n,mu,s)
[X]=Question2(n,mu,s);
Question3(n,mu,s) 
end

function [X]=Question2(n,mu,s)
i=0;
c=1/sqrt (2*pi); 
while (i<n)
    y =random('exp',2);
    f=pdf('norm',y,0,1);
    g=c*exp((-y+1)/2);
    u=random('unif',0, 1);
    if u<=(f/g)
        i=i+1;
        u=random('unif',0, 1);
        if u<.5
            x(i)=y;
        else
            x(i)=-y;
        end
    end
end
X=s*x+mu;
end

function Question3(n,mu,s)
[X]=Question2(n,mu,s);
histfit(X); 
title('Histogramme de la dispersion des données  générées \newline Vs.  la densité normale de paramètres (\mu,\sigma).')
end