CDU

SPD

Die Grünen

FDP

AfD

Die Linke

restl.Parteien

Freie Wähler

Stimmen

Partei

Gesamtstimmen

Hare-Niemeyer-Verfahren

B10 = 0
B9 = 0
B8 = 0
B7 = 0
B6: 181332
B5: 378692
B4: 215946
B3: 570512
B2: 570446
B1: 776910
liParteistimmen: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}
gesamtstimmenParteien = Sum(liParteistimmen)
anzahlSitze = 137 (slider from 50 to 200, step 1)
p = 5 (slider from 1 to 5, step 1)
gesamtStimmen: 2881265
C10: B10 / gesamtStimmen
C9: B9 / gesamtStimmen
C8: B8 / gesamtStimmen
C7: B7 / gesamtStimmen
C6: B6 / gesamtStimmen
C5: B5 / gesamtStimmen
C4: B4 / gesamtStimmen
C3: B3 / gesamtStimmen
C2: B2 / gesamtStimmen
C1: B1 / gesamtStimmen
liParteiprozente: {C1, C2, C3, C4, C5, C6, C7, C8, C9, C10}
anzahlParteien = 6 (slider from 1 to 10, step 1)
liParteienunterpProzent = RemoveUndefined(Sequence[If[Element[liParteiprozente, n] < p / 100, n], n, 1, anzahlParteien])
liParteiennummern = Sequence(1, anzahlParteien)
liParteienimParlamentNummern = Remove(liParteiennummern, liParteienunterpProzent)
liParteien: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10}
liParteienimParlament = Sequence(Element[liParteien, Element[liParteienimParlamentNummern, n]], n, 1, Length[liParteienimParlamentNummern])
anzahlParteienimParlament = Length(liParteienimParlament)
liStimmenParteienimParlament = Sequence(Element[liParteistimmen, Element[liParteienimParlamentNummern, n]], n, 1, anzahlParteienimParlament)
relevantegesamtStimmenzahl = Sum(liStimmenParteienimParlament)
liQuoten = Sequence((Element[liStimmenParteienimParlament, n] * anzahlSitze / relevantegesamtStimmenzahl), n, 1, anzahlParteienimParlament)
liMindestsitzeParteienimParlament = Sequence(floor(Element[liQuoten, n]), n, 1, anzahlParteienimParlament)
liQuotenreste = Sequence(Element[liQuoten, n] - Element[liMindestsitzeParteienimParlament, n], n, 1, anzahlParteienimParlament)
lisortierteQuotenreste = Reverse(Sort[Sequence[(Element[liQuotenreste, n], Element[liParteienimParlamentNummern, n]), n, 1, anzahlParteienimParlament]])
restsitze: anzahlSitze - Sum[liMindestsitzeParteienimParlament]
liParteiensortiertNummernRestsitze = Sort(Sequence[y(Element[lisortierteQuotenreste, n]), n, 1, restsitze])
liZusatzsitze = Sequence(If[Defined[IndexOf[n, liParteiensortiertNummernRestsitze]], 1, 0], n, 1, anzahlParteienimParlament)
einS1 = Textfield(B1)
einP1 = Textfield(A1)
einS3 = Textfield(B3)
einS4 = Textfield(B4)
einS5 = Textfield(B5)
einS6 = Textfield(B6)
einS7 = Textfield(B7)
einS8 = Textfield(B8)
einS9 = Textfield(B9)
einS10 = Textfield(B10)
einP3 = Textfield(A3)
einP4 = Textfield(A4)
einP5 = Textfield(A5)
einP6 = Textfield(A6)
einP7 = Textfield(A7)
einP8 = Textfield(A8)
einP9 = Textfield(A9)
einP10 = Textfield(A10)
einS2 = Textfield(B2)
einP2 = Textfield(A2)
tProzent1: "" + (LaTeX[(100 * Element[liParteiprozente, 1])]) + "\%"
tProzent2: "" + (LaTeX[(100 * Element[liParteiprozente, 2])]) + "\%"
tProzent3: "" + (LaTeX[(100 * Element[liParteiprozente, 3])]) + "\;%"
tProzent4: "" + (LaTeX[(100 * Element[liParteiprozente, 4])]) + "\;%"
tProzent5: "" + (LaTeX[(100 * Element[liParteiprozente, 5])]) + "\;%"
tProzent6: "" + (LaTeX[(100 * Element[liParteiprozente, 6])]) + "\;%"
tProzent7: "" + (LaTeX[(100 * Element[liParteiprozente, 7])]) + "\;%"
tProzent8: "" + (LaTeX[(100 * Element[liParteiprozente, 8])]) + "\;%"
tProzent9: "" + (LaTeX[(100 * Element[liParteiprozente, 9])]) + "\;%"
tProzent10: "" + (LaTeX[(100 * Element[liParteiprozente, 10])]) + "\;%"
liPH = Sequence((Element[liParteienimParlamentNummern, n], Element[liMindestsitzeParteienimParlament, n] + Element[liZusatzsitze, n]), n, 1, anzahlParteienimParlament)
liSitzanzahlParteienimParlament = Sequence(y(Element[liPH, n]), n, 1, anzahlParteienimParlament)
Text2 = TableText(liParteienimParlament, liSitzanzahlParteienimParlament, "ch|")
a = PieChart(liSitzanzahlParteienimParlament, (-13.893306686583061, -0.5005680025606776))
b = BarChart(liParteienimParlamentNummern, liSitzanzahlParteienimParlament, 1)
maxSitze = Max(liSitzanzahlParteienimParlament)
Text1: "relevante Stimmen " + relevantegesamtStimmenzahl + ""
Text3: "Summe aufgeführte Parteienstimmen  " + gesamtstimmenParteien + ""
Eingabefeld2 = Textfield(gesamtStimmen)