Example 2: Relationships Between Distributions

by Zavan Karian

> restart: with(plots,display): libname:="C:/mylib/statistics",libname: with(stat):

> for i from 1 to 16 do

> H||i := ProbHist(BinomialPDF(2*i, 0.25, x), 0..16, 17):

> od:

> display([seq(H||i, i=1..16)], insequence = true);

> for i from 1 to 16 do

> H := ProbHist(BinomialPDF(2*i, 0.25, x), 0..16, 17):

> N := plot(NormalPDF(i/2, 3*i/8, x), x=i/2-4*sqrt(3*i/8)..i/2+4*sqrt(3*i/8)):

> P||i := display({H,N}):

> od:

> display([seq(P||i, i=1..16)], insequence = true);

> #interface(plotdevice=postscript, plotoutput=Fig2a);

> display(P2);

> #interface(plotdevice=postscript, plotoutput=Fig2b);

> display(P3);

> #interface(plotdevice=postscript, plotoutput=Fig2c);

> display(P12);

> #interface(plotdevice=postscript, plotoutput=Fig2d);

> display(P16);

>