CDU

SPD

Die Grünen

FDP

AfD

Die Linke

Stimmen

Partei

Die Partei

Freie Wähler

relevante Stimmen

D'Hondt-Verfahren

p = 5 (slider from 1 to 5, step 1)
gesamtStimmen = 452411
B10 = 0
C10: B10 / gesamtStimmen
B9 = 0
C9: B9 / gesamtStimmen
B8 = 0
C8: B8 / gesamtStimmen
B7 = 0
C7: B7 / gesamtStimmen
B6: 11689
C6: B6 / gesamtStimmen
B5: 25719
C5: B5 / gesamtStimmen
B4: 21618
C4: B4 / gesamtStimmen
B3: 22598
C3: B3 / gesamtStimmen
B2: 196801
C2: B2 / gesamtStimmen
B1: 129154
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])
anzahlSitze = 51 (slider from 50 to 200, step 1)
liPartei10 = Sequence((B10 / n, 10), n, 1, anzahlSitze)
liPartei9 = Sequence((B9 / n, 9), n, 1, anzahlSitze)
liPartei8 = Sequence((B8 / n, 8), n, 1, anzahlSitze)
liPartei7 = Sequence((B7 / n, 7), n, 1, anzahlSitze)
liPartei6 = Sequence((B6 / n, 6), n, 1, anzahlSitze)
liPartei5 = Sequence((B5 / n, 5), n, 1, anzahlSitze)
liPartei4 = Sequence((B4 / n, 4), n, 1, anzahlSitze)
liPartei3 = Sequence((B3 / n, 3), n, 1, anzahlSitze)
liPartei2 = Sequence((B2 / n, 2), n, 1, anzahlSitze)
liPartei1 = Sequence((B1 / n, 1), n, 1, anzahlSitze)
ligesamt = Reverse(Sort[Flatten[{liPartei1, liPartei2, liPartei3, liPartei4, liPartei5, liPartei6, liPartei7, liPartei8, liPartei9, liPartei10}]])
liParteiensitzeReihenfolge = Sequence(y(Element[ligesamt, n]), n, 1, (2 * anzahlSitze))
lifalscheSitze = RemoveUndefined(Sort[Sequence[If[Defined[IndexOf[y(Element[ligesamt, n]), liParteienunterpProzent]], y(Element[ligesamt, n])], n, 1, (2 * anzahlSitze)]])
liSitzeReihenfolge = Remove(liParteiensitzeReihenfolge, lifalscheSitze)
liTeiler = Sequence(1, anzahlSitze)
einS1 = Textfield(B1)
einP1 = Textfield(A1)
liParteien: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10}
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)
A = Sum(ligesamt)
liParteistimmen: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}
gesamtstimmenParteien = Sum(liParteistimmen)
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])]) + "\;%"
Eingabefeld1 = Textfield(gesamtStimmen)
liParteiensitze = Sort(Sequence[Element[liSitzeReihenfolge, n], n, 1, anzahlSitze])
liPH = Sequence((Element[Unique[liParteiensitze], n], Element[Frequency[liParteiensitze], n]), n, 1, Length[Unique[liParteiensitze]])
liParteiennummern = Sequence(1, anzahlParteien)
liParteienimParlamentNummern = Remove(liParteiennummern, liParteienunterpProzent)
liParteienimParlament = Sequence(Element[liParteien, Element[liParteienimParlamentNummern, n]], n, 1, Length[liParteienimParlamentNummern])
liSitzanzahlParteienimParlament = Sequence(y(Element[liPH, n]), n, 1, Length[liPH])
Text2 = TableText(liParteienimParlament, liSitzanzahlParteienimParlament, "ch|")
a = PieChart(liSitzanzahlParteienimParlament, (-14.06016268743662, -0.33371200170711834))
b = BarChart(liParteienimParlamentNummern, liSitzanzahlParteienimParlament, 1)
maxSitze = Max(liSitzanzahlParteienimParlament)