example1.mws

Example 1: Simple Simulations

by Zavan Karian

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

[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...
[Anova1, Anova2m, Anova2s, AnovaBeta, BernoulliCDF,...

> A := Die(6,8);

A := [4, 3, 4, 6, 5, 3, 6, 3]

> Freq(A, 1..6);

[0, 0, 3, 2, 1, 2]

> A := Die(4, 400):

> Freq(A, 1..4);

[101, 107, 87, 105]

> Coins := DiscreteS( [0, 1/2, 1, 1/2], 8);

Coins := [1, 1, 0, 1, 1, 0, 0, 1]

> pdf := x/10;

pdf := 1/10*x

> Sample := DiscreteS(pdf, 1..4, 5);

Sample := [3, 4, 1, 1, 1]

> Sample := DiscreteS(pdf, 1..4, 300):

> EH := Histogram(Sample, 0.5..4.5, 4):

> PH := ProbHist(pdf, 1..4):

> display({EH,PH});

[Maple Plot]

> S1 := BinomialS(10, 0.25, 200):

> S2 := GammaS(3, 2, 100):

> PlotEmpPDF(S2);

[Maple Plot]

> PlotEmpPDF(S2, 0..25, 10);

[Maple Plot]

> PlotEmpCDF(S2,0..25);

[Maple Plot]

> BoxWhisker(S1,S2);

[Maple Plot]

> QQ(S1,S2);

[Maple Plot]