%%
%% TP4 Exercice 2
%% Simulation de la transmission d'une information
%% par une chaine de Markov à deux états E={-1,1}.
%%
p= input('Entrer la valeur de p : ');
N= input('Préciser le nombre de réalisations : ');
n=input('Entrer la taille de l''échantillon n : ');
Y=2*(rand(n,N)<p)-1;
Y=cumprod(Y,1);
Z=cumsum(1/2*(Y+ones(n,N)),2)./(ones(n,1)*[1:N]);
plot(Z(n,:));
hold on
title('Probabilité de la transmission d''une information');
plot(0.5*ones(N,1),'r--');
hold off