Simulation mit Normalverteilung & theoretische Kurve

Prof. Dr. Dörte Haftendorn Mai 2014  www.mahematik-verstehen.de
Erklärungen weitere Links und  Impressum in der Webversion unten.
http://haftendorn.uni-lueneburg.de/mathe-lehramt/stochastik/stetigeVerteilungen/NormalverteilungSimu.htm

Manipulate[Show[Histogram[RandomVariate[NormalDistribution[my,sigma],n],{1.5,55.5,1}, ColorFunction->"Rainbow", AxesOrigin->{my,0},PerformanceGoal->"Quality"],
If [theo,Plot[n/((Sqrt[2 Pi]) sigma)*(E^(-(((x-my))^2)/(2 (sigma^2)))),{x,my-4 sigma,my+4 sigma}, 
PlotStyle->Thick] ,Plot[0,{x,my-2 sigma, my+2 sigma},PlotStyle->Thickness[0.012]]]],
Style["Glockenkurve, Normalverteilungs-Dichte-Funktion dazu zeichnen:",12,Bold],
{{theo, True,""},{True,False}},
{{n,100},40,100,10, Appearance->{"Open","Labeled"}},
{{my,30},10,50,5, Appearance->"Labeled"},
{{sigma,5},1,8,1,Appearance->"Labeled"  },
ContinuousAction->False,
FrameLabel->{{None,"Info\nunten"},{"www.mathematik-verstehen.de","Simulation der Normalverteilung"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]