MINI PROJECT:Create examples of a Normal distribution
Name:Simona Davidoaia
Contact:simodav@gmail.com
Description of theproject:
This Mathematica program creates a set of random numbers that fit a normal distribution.It can manipulate how big a set of numbers the user want it to be.The normal distribution it can be skewed to the left or right or it can be symmetrical.After a set of numbers has been created with Mathematica the user can see the PDF of the normal distribution,     Stem and Leaf , Histogram, mean, median and mode of my set of numbers.

Manipulate[Pane
         [Text@Style[
     Grid[{
{Row[{Style["your set of numbers is: ",Bold],Style[StringTake[ToString[sr],{2,-2}]],"\n"}]},(*Shows my list a set of numbers that has been randomly chosen for me*)
{Switch[graph,
  1,Plot[PDF[NormalDistribution[a,b],x],{x,-20,20}],(*graphs a normal distribution that has the mean "a" and the variance "b"*)
 2,StatisticalPlots`StemLeafPlot[sr],(*shows the stem and leaf of the normal distribution*)
  3,Histograms`Histogram[sr]]},(*graphs the histogram of our normal distribution*){"\n"},
{Row[{
Style["mean=",Bold],
Style[N[Mean[sr],2]],
Style["   median=",Bold],
Style[N[Median[sr],2]],
Style["   mode=",Bold],
Style[StringTake[ToString[Commonest[sr]],{2,-2}]]}]}(*on a row will be displayed the values of the mean ,median and mode*)
}],
18],{590,415},Alignment->{Center,Center}],(*Size of the characters,size of the window,and centers the information on the window*)
{{graph,2,""},{1->"PDF",2->"Stem & Leaf",3->"Histogram"}},(*It will first graph the "stem and leaf”, and then it can switch to pdf and histogram by using the buttons with their respective names*){{n,1,"how many values you want"},1,20,1,Appearance->"Labeled"}(*n can be manipulated and it takes values from 1 to 20*),{{a,0,"a"},-10,10},{{b,5,"b"},5,10},(*declares "a" and "b" and gives them an initial value*){{sr,BlockRandom[SeedRandom[1234];Round[RandomReal[NormalDistribution[0,5],1],.1]],""},Button["new set of numbers",sr=Round[RandomReal[NormalDistribution[a,b],n],.1]]&},(*sets a button for resetting the random set of numbers that I want to be used for pdf,histogram and  stem and leaf*)
Initialization :> (Get["Histograms`"];Get["StatisticalPlots`"];),AutorunSequencing->{1}](*initializes the histogram and statistical plots /Get works like Need*)