%{ 

%}

clc
clear
pause on;
x_input=50; %successes
n=50; %trials
p=.1; %probability of success
x=0:x_input;
for(i=0:10)
    y=binopdf(x,n,i/10);
    plot(x,y)
    title('Binomial Probability Density Function');
    hold all
end
pause;
clf
for(i=1:10)
    z=binocdf(x,n,i/10);
    plot(x,z)
    title('Binomial Cumulative Distribution Function');
    hold all
end
pause;
clf
for(i=0:10)
    r=geopdf(x,i/10);
    plot(x,r)
    title('Geometric Probability Density Function');
    hold all
end
pause;
clf
for(i=0:10)
    s=geocdf(x,i/10);
    plot(x,s)
    title('Geometric Cumulative Distribution Function');
    hold all
end
