AW: RE: Binomialverteilung als Balkendiagramm

["su.krause@XXXXXXX.ch" <su.krause@XXXXXXX.ch>]

Hallo Heiko, 

der nullte Treffer, weil Sie ja im Table[] sind, kommt mit

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

und Label erscheinen mit

BarChart[Evaluate@Table
[PDF[BinomialDistribution[5, 0.2], x], {x, 0, 5}],
  BarSpacing -> None, ChartLabels -> {"0","1","2","3","4","5"} (* 
leicht automatisierbar *)]

by the way, ein Balkendiagramm kann man einfacher erzeugen mit BarOrigin->Left.

Gruss
Udo.


----Ursprüngliche Nachricht----
Von: exziton@XXXXXXX.com
Datum: 27.06.2013 15:38
An: "demug@XXXXXXX.ch"
<demug@XXXXXXX.ch>
Betreff: RE: Binomialverteilung als Balkendiagramm

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.