Re: Binomialverteilung als Balkendiagramm

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Heiko,

dazu kippt man das Stabdiagramm

In[25]:= With[{k = 0.37},
 BarChart[
  Evaluate @Table[PDF[BinomialDistribution[40, k], x], {x, 36}],
  ChartStyle -> "Rainbow", ChartElements -> Graphics[Text["o"]]]]

auf die Seite - wodurch es zum Balkendiagramm wird - und entledigt sich  
der linken Seite

With[{k = 0.37, l = 36},
 Show[Graphics[
   PairedBarChart[
    ConstantArray[0, l],
    Evaluate @Table[PDF[BinomialDistribution[40, k], x], {x, l}],
    ChartStyle -> "Rainbow",
    BarSpacing -> Large,
    PlotRange -> All, DisplayFunction -> Identity]],
  DisplayFunction -> $DisplayFunction,
  PlotRange -> {{0., 0.14}, All}]]

Gruss
Udo.

> wie kann man mit Mathematica eine Binomialverteilung in Form eines  
> Balkendiagramms (nicht Stabdiagramms) darstellen?
> Der k. Balken sollte von k-0,5 bis k+0,5 dargestellt werden.