Gleichverteilung, Simulation

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/verteilungen/GleichverteilungSimu.htm

Manipulate[Module[{li},li=RandomInteger[w-1,n]+1;
Show[Histogram[li,{0.5,w+0.5,1}, ColorFunction->"Rainbow", AxesOrigin->{1,0},PerformanceGoal->"Quality"],
If [theo,Plot[{n/w,n/w+n eps, n/w-n eps},{x,-0.5,w+1},PlotRange->All(*{{x,-0.5,w+1},{0,3 w}}*), 
PlotStyle->{Thick, Dashed, Dashed}] ,Plot[{n/w,n/w+n eps, n/w-n eps},{x,-0.5,w+1},PlotRange->All,PlotStyle->{Thick, Dashed, Dashed}]]]],
Style["Lapacewürfel 1 bis w mit theoretischem Wert und eps-Streifen:",12,Bold],
Style["y-Werte mit 'mal n' umgerechnet",10],
{{theo, True,""},{True,False}},
{{n,30},10,1500,10, Appearance->{"Open","Labeled"}},
{{w,6},2,60,1, Appearance->"Labeled"},
{{eps,0.01},0.001,0.1, 0.001,Appearance->"Labeled"},
ContinuousAction->False, 
FrameLabel->{{None,"Info\nunten"},{"www.mathematik-verstehen.de","Simulation der Gleichverteilung"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]