function vcdiscr(X,Y,xlab,tit,flag)

%===============================================================================% Titolo:       vcdiscr.m   %% Progetto:     Esercitazioni di IMAD
%% Scopo:     	Disegna la densita' di probabilita' e la
%					funzione di distribuzione di un vettore di dati 
%					campioni di una v.c. discreta
%
% Autori:      Giancarlo Ferrari-Trecate, G. De Nicolao%% Sintassi:   vcdiscr(X,Y,xlab,tit,flag)
%
%% Commenti:    se flag=1 disegna solo l'istogramma
%              se flag=2 disegna solo la fdd
%					se flag=3 disegna entrambi
%      
% %===============================================================================



[N,X]=hist(Y,X);
f=N/length(Y);

if (flag==1 | flag==3)
%figure(1), clf
grid on
bar(X,f)
xlabel(xlab), ylabel('ddp'),title(tit)
end

if flag==3
pause
end

if (flag==2 | flag==3)
%figure(2), clf
F=cumsum(f);

stairs(X,F)
assi=axis;
axis([assi(1),assi(2),0,1]);
grid
xlabel(xlab), ylabel('fdd'),title(tit)
end
%mY=mean(Y);
