RE: Binomialverteilung als Balkendiagramm

[Heiko B <exziton@XXXXXXX.com>]

Hallo Udo,

mein Problem, welches leider noch ungelöst ist, war viel einfacher. Folgende Darstellung der Binomialverteilung:

BarChart[Evaluate@Table[PDF[BinomialDistribution[5, 0.2], x], {x, 5}],
  BarSpacing -> None]

lässt immer den 0. Treffer weg. Zusätzlich soll der Balken für den 0. Treffer (k=0) bei -0,5 beginnen und bei 0.5 enden.
Allgemein sollte die Darstellung vom k.Treffer um -0,5+k bis 0,5+k (k=0,..,n) gehen. Wichtig wäre noch die Beschriftung 
der x-Achse in ganzen Zahlen von 0 bis n.
Das funktioniert in BarChart wohl nicht.

Trotzdem Danke.


Gruß,

Heiko

 
----------------------------------------
> To: demug@XXXXXXX.ch
> Subject: Re: Binomialverteilung als Balkendiagramm
> Date: Wed, 26 Jun 2013 22:09:42 +0200
> CC: exziton@XXXXXXX.com
> From: 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.