> "You will need to go to the flipping program (we will use the ManyToss program) and you will need to go to the histogram progrm (we will use the Histogram progrm). Hit return in order to load the following packages.":

with(plots):
with(stats):

Warning, these names have been redefined: anova, describe, fit, importdata, random, statevalf, statplots, transform

>
"The only new program here is a program wich makes a linear change to the elements of a list. We will use it to standardize a sum.":


Modify:=proc(L,u,c)
local i,H;
H:=[];
for i from 1 to nops(L)
do
H:=[op(H),evalf(c*(L[i]-u))];
od;
H;
end:

> MT1:=ManyToss(100,500);

> MT2:=Modify(MT1,0,evalf(1/sqrt(100))):

P:=Histogram(MT2,11):

display(P);

"the Mean is", -.2080000000e-1

"the Standard deviation is", .9729374751

"A histogram looks like"

> Nor:=plot((1/(sqrt(2*Pi)))*exp(-x^2/(2)),x =-3..3,color=blue):


display(Nor,P);

> MT1:=ManyToss(1000,500);