% Plots of some discrete  distributions
clear all
close all
  disp('Discrete Distributions Plots')
  lw = 3; 
  set(0, 'DefaultAxesFontSize', 16);
  fs = 15;
  msize = 10;


figure(1)
bar([0:10], binopdf([0:10],10,0.26),...
    0.3,'r','linewidth',1); axis tight
  colormap white
%print -depsc 'C:\Springer\RanVar\RanVareps\binobarpdf.eps'

figure(2)
bar([0:10], binocdf([0:10],10,0.26),...
     0.3,'r','linewidth',1); axis tight
   colormap white
%print -depsc 'C:\Springer\RanVar\RanVareps\binobarcdf.eps'

%%

figure(3)
bar([0:10], hygepdf([0:10],40,15,10),... 
    0.3,'r','linewidth',1); axis tight
    
  colormap white
%  print -deps 'hygepdf.eps'
%  
figure(4)
bar([0:10], hygecdf([0:10],40,15,10),...
    0.3,'r','linewidth',1); axis tight
  colormap white
%  print -deps 'hygecdf.eps'
%%  


figure(5)
bar([0:9], poisspdf([0:9],2),...
    0.3,'r','linewidth',1); axis tight
  colormap white
 colormap white
% print -deps 'poisspdf2.eps'


figure(6)
bar([0:9], poisscdf([0:9],2),...
    0.3,'r','linewidth',1); axis tight
  colormap white
% print -deps 'poisscdf2.eps'



figure(7)
bar([0:20], geopdf([0:20],0.2),...
    0.3,'r','linewidth',1); axis tight
  colormap white
% print -deps 'geopdf02.eps'

figure(8)
bar([0:20], geocdf([0:20],0.2), ...
     0.3,'r','linewidth',1); axis tight
 colormap white
% print -deps 'geocdf02.eps'

%%
quab =[]; quag =[];
for p = 0.00:0.0001:1
    quab = [quab binoinv(p, 12, 0.7)];
    quag = [quag geoinv(p, 0.2)];  
end
figure(9)
plot([0.00:0.0001:1],quab,'r-','linewidt',2)
%print -deps 'binoquant.eps'
figure(10)
plot([0.00:0.0001:1],quag,'k-') 
%print -deps 'geoquant.eps'


%
%Copyright (C) Springer-Verlag 2010
% 

