<<CheminPackLocaux`

Générateur des données de l'exercice  4.2-5, partie a)

Clear[ea,classes];
distr=ChiDistribution[2]; Plot[PDF[distr,x], {x,0,5}]

a=RandomReal[distr,1000];

u=Range[0,4,0.5]

ea=BinCounts[a,{u}]

classes={"0 - 0.5","0.5 - 1","1 - 1.5", "1.5 - 2", "2 - 2.5", "2.5 - 3", "3 - 3.5", "3.5 - 4"}

<<Tableaux`

afficheTableau[None,{"Classes","Effectifs"},Transpose[{classes, ea}]]

Générateur des données de l'exercice  4.2-5, partie b)

distr=NormalDistribution[30,9];

b=RandomReal[distr,1000];

u=Range[0,64,8]

eb=BinCounts[b,{u}]

classes={"0 - 8","8 - 16","16 - 24", "24 - 32", "32 - 40", "40 - 48", "48 - 56", "56 - 64"}

afficheTableau[None,{"Classes","Effectifs"},Transpose[{classes, eb}]]