RE: Binomialverteilung als Balkendiagramm

[Heiko B <exziton@XXXXXXX.com>]

Hallo Udo,

hab deine mail erst jetzt eingesehen.
Diese Lösung gefällt mir sehr gut.
Vielen Dank!


Gruß,

Heiko




---------------------
> To: exziton@XXXXXXX.com
> Subject: Re: Binomialverteilung als Balkendiagramm
> Date: Thu, 27 Jun 2013 21:58:48 +0200
> CC: demug@XXXXXXX.ch
> From: su.krause@XXXXXXX.ch
>
> Hallo Heiko,
>
>> 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.
>
> In[29]:= Clear[rBD]
> rBD[x_, d_] :=
> Rectangle[{x - d, 0}, {x + d, PDF[ BinomialDistribution[5, 0.2], x]}]
>
> In[35]:= Show[Graphics[{EdgeForm[Thick], LightGray,
> Table[rBD[x, 1/2], {x, 0, 5}]}], Frame -> True,
> AspectRatio -> 1/GoldenRatio]
>
>> Das funktioniert in BarChart wohl nicht.
>
> BarChart[] und RectangleChar[] sehen die Charts als Funktion des
> Basislinie,
> aber die Basislinie selbst ist eine Menge von Markierungen.
> Es sind einfach Diagramme mit Marken, man koennte zum Beispiel abtragen
>
>
> BarChart[{1, 6, 4, 9, 0, 3, 1, 8, 4},
> ChartLabels -> {"Enten", "Katzen", "Vögel", "Hunde", "Schnecken",
> "Schlangen", "Insekten", "Pferde", "Fische"}, Frame -> True,
> PlotLabel -> "Ausgaben fuer Tieraerztliche Behandlung"]
>
> und Katzen hätten zwar Kosten 6 hervorgerufen, aber nicht _nach_ den Enten
> und es
> gilt auch nicht Katzen> Enten, der Inhalt des Charts bleibt erhalten,
> wenn man
> die Wertepaare mischt.
>
> Gruss
> Udo.