RE: AW: RE: Binomialverteilung als Balkendiagramm

[Heiko B <exziton@XXXXXXX.com>]

Hallo Udo,

häufig ist ein Ausschnitt einer Binomialverteilung gesucht, wie dieser:

BarChart[Evaluate@
  Table[PDF[BinomialDistribution[100, 0.5], x], {x, 30, 70}], 
 BarSpacing -> None, ChartLabels -> {"0", "1", "2", "3", "4", "5"}]


nur funktioniert ChartLabels hier nicht. Gibt es hierfür auch eine geschickte Lsg. oder ist es möglich die 
Binomialverteilung als Säulendiagramm, in ein normales Koordinatensystem einzuzeichnen,
wobei die Verteilung dann bei -0,5 beginnt? 


Gruß,
Heiko


Ps.: Ich meinte Säulen- nicht Balkendiagramm.



----------------------------------------
> Date: Thu, 27 Jun 2013 14:14:40 +0000
> From: su.krause@XXXXXXX.ch
> To: exziton@XXXXXXX.com
> Subject: AW: RE: Binomialverteilung als Balkendiagramm
> CC: demug@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.
>
>
>
>
>
>
>