\mnb150ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\froman\fprq2 Times New Roman;}{\f4\fswiss\fprq2 Arial;}{\f5\fmodern\fprq1 Courier New;}{\f6\fmodern\fprq1\fcharset1 Courier New;}{\f7\fswiss\fprq2 Helvetica;}{\f8\fswiss\fprq2\fcharset1 Arial;}{\f9\froman\fcharset1 Times New Roman;}}
{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green128\blue0;\red255\green0\blue0;}
\deflang1031\pard\ri4\plain\f5\fs20\cf0\b ________________________________________________________________________________
\par
\par \plain\f5\fs20\cf0 Inhalt....: Statistische Analyse der Bundestagswahl 2002
\par Kategorie.: Arbeitsblatt
\par Mathematik: Stochastik, Statistik
\par MuPAD.....: 3.0.0
\par Datum.....: 2002-10-02
\par Autoren...: Julia Faflek
\par Funktionen: import::readdata, stats::sample, plot::Piechart3d, plot::Bars2d,
\par Funktionen: contains, plot::Boxplot
\par \plain\f5\fs20\cf0\b ________________________________________________________________________________\plain\f4\fs36\cf0\b
\par \plain\f4\fs40\cf0\b
\par Die Bundestagswahl 2002 unter der Lupe\plain\f4\fs36\cf0\b
\par \plain\f4\fs24\cf2
\par
\par Das vorliegende Notebook wurde unter Zurhilfenahme der Quelle \plain\f3\fs24\cf1
\par \plain\f3\fs24\cf3
\par \plain\f4\fs22\cf1\b\ul http://www.bundeswahlleiter.de/bundestagswahl2002/deutsch/ergebnis2002/csv/kerg.csv\plain\f4\fs24\cf1\b\ul
\par \pard\plain\f4\fs24
\par \pard\ri4\plain\f4\fs24\cf2 erstellt. Die (unter dieser Adresse) erh\'e4ltliche Datei wurde so ver\'e4ndert, dass sie mit MuPAD
\par eingelesen werden kann. Desweiteren wurden die Wahlergebnisse von 1998 weggelassen
\par und die Ergebnisse f\'fcr die CDU und die CSU sowie die Ergebnisse f\'fcr die kleineren Parteien
\par zusammengefasst. Die so entstandene Datei \plain\f4\fs22\cf1\b\ul Bundestagswahl.csv\plain\f4\fs22\cf2 liegt im gleichen Web-
\par Verzeichnis wie dieses MuPAD Arbeitsblatt zum Download bereit.\plain\f4\fs24\cf2
\par
\par Um die Datei \plain\f4\fs22\cf1\b Bundestagswahl.csv\plain\f4\fs24\cf1\b \plain\f4\fs24\cf2\b\i in Tabellenform\plain\f4\fs24\cf3 \plain\f4\fs24\cf2 darzustellen, \'f6ffnen Sie diese\plain\f4\fs24\cf3 \plain\f4\fs24\cf2 einfach
\par mit mit einem Doppelklick unter Excel.\plain\f4\fs24\cf1
\par \plain\f4\fs24\cf2
\par Die Analyse von Wahlergebnissen ist stets ein interessantes Thema. In diesem Arbeitsblatt
\par werden wir MuPAD - Funktionen kennenlernen, die uns helfen statistische Daten auszuwerten.
\par
\par \plain\f4\fs28\cf0 Wir wollen nun die Ergebnisse der Bundestagswahl 2002 genauer unter die
\par Lupe nehmen. Zun\'e4chst lesen wir eine .csv Datei ein, die von Microsoft Excel
\par erzeugt wurde. Dazu benutzen wir den Befehl
\par
\par \plain\f5\fs28\cf3 import::readdata ("Pfad", ";")\plain\f4\fs28\cf0 .
\par
\par Da jeder Spalteneintrag in der urspr\'fcnglichen Tabelle nun in der .csv Datei
\par durch ein Semikolon getrennt ist, m\'fcssen wir dies als zweites Argument ein-
\par geben.
\par Unter "\plain\f5\fs28\cf3 Pfad\plain\f4\fs28\cf0 " geben Sie bitte den Pfad an, in dem Sie die zu importierende
\par Datei gespeichert haben.\plain\f5\fs22\cf3
\par \plain\f5\fs22\cf1
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Daten := import::readdata(NOTEBOOKPATH."Bundestagswahl.csv", ";"):
\par \pard\ri4\plain\f4\fs28
\par Die so eingelesene Tabelle wird als Liste von Listen dargestellt. Wobei jede
\par Liste eine Zeile der Tabelle repr\'e4sentiert. Um uns die Struktur dieser Tabelle
\par zu veranschaulichen, lassen wir die ersten 15 Zeilen mit Hilfe des Befehls
\par \plain\f5\fs28\cf3 stats::sample\plain\f4\fs28 in Tabellenform darstellen. Die Textbreite wird vorher auf
\par 500 gesetzt, damit keine Zeilenumbr\'fcche innerhalb der Tabelle vorgenommen
\par werden.
\par
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Alt := TEXTWIDTH:
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 TEXTWIDTH := 500:
\par Beispiel := [Daten[i] $ i = 1..15]:
\par stats::sample(Beispiel);
\par TEXTWIDTH := Alt:\plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28
\par Wir k\'f6nnen sehen, dass die Zeilen 4 bis 14 die Ergebnisse der einzelnen
\par Wahlkreise in Schleswig-Holstein beinhalten. In der 15. Zeile stehen die Wahl-
\par ergebnisse f\'fcr das Bundesland Schleswig-Holstein. In gleicher Art und Weise
\par ist die Tabelle fortgef\'fchrt, wobei die letzte Zeile der Gesamttabelle die
\par Ergebnisse f\'fcr das Bundesgebiet darstellt:
\par
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Bundesgebiet := Daten[nops(Daten)]
\par \pard\li600\ri1\fi-300\plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28 Mit diesen Ergebnissen wollen wir uns nun n\'e4her besch\'e4ftigen.
\par Als n\'e4chstes wollen wir eine sogenannte "Piechart" f\'fcr die Vergabe der Erst-
\par und Zweitstimmen erstellen. Dazu betrachten wir die oben erstellte Beispiel-
\par tabelle und stellen fest, dass die Anzahl der Erststimmen f\'fcr die SPD in der
\par 8. Reihe, die f\'fcr die CDU/CSU in der 10. Reihe usw. stehen. Analog gilt,
\par dass die Anzahl der Zweitstimmen f\'fcr die SPD in der 9. Reihe repr\'e4sentiert
\par werden, die f\'fcr die CDU/CSU in der 11. Reihe usw. bis zur Reihe 25.
\par \plain\f5\fs22\cf1
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Bundesgebiet_Erststimmen := [ Bundesgebiet[2*i]
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 $ i = 4..12 ]:
\par Bundesgebiet_Zweitstimmen := [ Bundesgebiet[2*i+1]
\par $ i = 4..12 ]:\plain\f5\fs22\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}plot(plot::Rotate3d(PI/96,
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 plot::Piechart3d(Bundesgebiet_Erststimmen,
\par Colors = [RGB::Red, RGB::Black, RGB::Green,
\par RGB::Yellow, RGB::VioletRed,
\par RGB::Brown, RGB::Grey,
\par RGB::LightGrey, RGB::White],
\par Header = "Erststimmen",
\par Titles = [1 = "SPD",
\par 2 = "CDU/CSU",
\par 3 = "GR\'dcNE",
\par 4 = "FDP",
\par 5 = "PDS",
\par 6 = "REP",
\par 7 = "NPD",
\par 8 = "Schill",
\par 9 = "\'dcbrige"],
\par TextFont = [7]
\par )));
\par
\par plot(plot::Rotate3d(PI/96,
\par plot::Piechart3d(Bundesgebiet_Zweitstimmen,
\par Colors = [RGB::Red, RGB::Black, RGB::Green,
\par RGB::Yellow, RGB::VioletRed,
\par RGB::Brown, RGB::Grey,
\par RGB::LightGrey, RGB::White],
\par Header = "Zweitstimmen",
\par Titles = [1 = "SPD",
\par 2 = "CDU/CSU",
\par 3 = "GR\'dcNE",
\par 4 = "FDP",
\par 5 = "PDS",
\par 6 = "REP",
\par 7 = "NPD",
\par 8 = "Schill",
\par 9 = "\'dcbrige"],
\par TextFont = [7]
\par )));
\par
\par
\par \plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28 Es l\'e4\'dft sich also kein wesentlicher Unterschied zwischen der Vergabe der Erst- und
\par der der Zweitstimmen feststellen.
\par Schauen wir uns nun das Wahlverhalten innerhalb der Bundesl\'e4nder an.
\par Dazu m\'fcssen wir die entsprechenden Zeilen aus der Gesamttabelle heraussuchen.
\par \plain\f5\fs28\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Laender := [Schleswig_Holstein,
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 Mecklenburg_Vorpommern, Hamburg,
\par Niedersachsen, Bremen, Brandenburg,
\par Sachsen_Anhalt, Berlin,
\par Nordrhein_Westfalen, Sachsen,
\par Hessen, Thueringen, Rheinland_Pfalz,
\par Bayern, Baden_Wuerttemberg, Saarland];
\par \pard\ri4\plain\f5\fs28\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Schleswig_Holstein := Daten[15]:
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 Mecklenburg_Vorpommern := Daten[23]:
\par Hamburg := Daten[30]:
\par Niedersachsen := Daten[59]:
\par Bremen := Daten[62]:
\par Brandenburg := Daten[73]:
\par Sachsen_Anhalt := Daten[84]:
\par Berlin := Daten[97]:
\par Nordrhein_Westfalen := Daten[162]:
\par Sachsen := Daten[180]:
\par Hessen := Daten[202]:
\par Thueringen := Daten[213]:
\par Rheinland_Pfalz := Daten[229]:
\par Bayern := Daten[274]:
\par Baden_Wuerttemberg := Daten[312]:
\par Saarland := Daten[317]:
\par \plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28 F\'fcr jedes Bundesland m\'fcssen wir die absoluten Zahlen f\'fcr die Zweitstimmen
\par relativieren, indem wir durch die Gesamtzahl der g\'fcltigen abgegebenen Zweit-
\par stimmen teilen. Diese stehen in der siebten Reihe. Die so erhaltenen Daten
\par stellen wir als Balkendiagramm dar. Damit wir unterhalb der Balken die zuge-
\par h\'f6rigen Parteien ablesen k\'f6nnen, erstellen wir eine Liste, in der Marken von
\par der Form \plain\f4\fs28\i Stelle = "String"\plain\f4\fs28 definiert werden. So werden Marken an der Stelle
\par \plain\f4\fs28\i t\plain\f4\fs28 erzeugt mit der durch die Zeichenkette gegebene Beschriftung.
\par
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Marken := [0.5 = "SPD", 1.5 = "CDU/CSU", 2.5 = "GR\'dcNE",
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 3.5 = "FDP", 4.5 = "PDS", 5.5 = "REP",
\par 6.5 = "NPD", 7.5 = "Schill", 8.5 = "\'dcbrige"]:
\par \plain\f5\fs22\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}for BL in Laender do
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 Zweitstimmen := [BL[2*i+1]/BL[7]*100 $ i = 4..12]:
\par plot(plot::Bars2d([Zweitstimmen],
\par Colors = [RGB::Red, RGB::Black, RGB::Green,
\par RGB::Yellow, RGB::VioletRed,
\par RGB::Brown, RGB::Grey,
\par RGB::LightGrey, RGB::White],
\par YGridVisible = TRUE,
\par Header = "Vergabe der Zweitstimmen in "
\par .expr2text(BL[1])),
\par XTicksAt = Marken,
\par XTicksNumber = None,
\par XTicksVisible = FALSE,
\par TicksLabelFont = [7])
\par end_for;
\par \pard\ri4\plain\f4\fs28
\par Jetzt k\'f6nnen wir schon genauere Unterschiede zwischen den Bundesl\'e4ndern
\par feststellen. W\'e4hrend die PDS in Bayern sehr schlecht abgeschnitten hat,
\par konnte sie in Mecklenburg-Vorpommern und Th\'fcringen mehrere Stimmen
\par f\'fcr sich gewinnen. Auch bei den beiden gro\'dfen Volksparteien SPD und
\par CDU/CSU kann man eine Verteilung der Stimmen erkenne. Die CDU/CSU
\par muss zwar in den L\'e4ndern Bremen und Brandenburg ihre gr\'f6\'dften Misserfolge
\par hinnehmen, hat daf\'fcr aber in Rheinland-Pfalz, Bayern und Baden-W\'fcrttemberg
\par die meisten W\'e4hler f\'fcr sich gewinnen k\'f6nnen. So kann man gro\'dfe Unterschiede
\par im Wahlverhalten bzgl. der Bundesl\'e4nder feststellen.
\par
\par Die Betrachtung dieser Balkendiagramme f\'fchrt zu der Frage, in welchem
\par Wahlkreis die jeweiligen Parteien ihren gr\'f6\'dften Erfolg feiern k\'f6nnen.
\par Dazu wollen wir erst einmal die Parteien mit Zahlen identifizieren, und zwar mit
\par der Nummer der Spalte, die die f\'fcr sie abgegebenen Zweitstimmen beinhaltet:
\par \plain\f5\fs28\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Parteien := ["SPD", "CDU/CSU", "GR\'dcNE", "FDP", "PDS",
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 "REP", "NPD", "Schill"]
\par \plain\f5\fs22\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Partei := proc(String)
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 begin
\par if String = "SPD" then return(9)
\par elif String = "CDU/CSU" then return(11)
\par elif String = "GR\'dcNE" then return(13)
\par elif String = "FDP" then return(15)
\par elif String = "PDS" then return(17)
\par elif String = "REP" then return(19)
\par elif String = "NPD" then return(21)
\par elif String = "Schill" then return(23)
\par end_if:
\par end_proc:
\par \pard\ri4\plain\f5\fs28\cf3
\par \plain\f8\fs28\cf0 Diese Prozedur wird uns behilflich sein, den Wahlkreis mit dem h\'f6chsten
\par Prozentsatz f\'fcr die jeweilige Partei zu ermitteln. Zun\'e4chst m\'fcssen wir wieder
\par die absoluten Stimmanzahlen durch die abgegebenen g\'fcltigen Stimmen teilen
\par und diese Daten dann nach ihrem Maximum durchsuchen.
\par Der Befehl \plain\f6\fs28\cf3 contains(Liste, Maximum)\plain\f8\fs28\cf0 liefert die Stelle zur\'fcck, an der das
\par Maximum steht. Wir wissen dann also in welcher Zeile sich das Maximum be-
\par findet und m\'fcssen nur den ersten Zeileneintrag zur\'fcckgeben. Denn dieser zeigt
\par uns den Wahlkreis an:
\par \plain\f9\fs22\cf0
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Wahlkreis := proc(daten, Name)
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 local Prozent, Prozentliste, Index;
\par begin
\par Zahl := Partei(Name);
\par Prozent := daten[i][Zahl]/daten[i][7]
\par $ i = 4..nops(Daten);
\par Prozentliste := [Prozent];
\par Index := contains(Prozentliste, max(Prozent));
\par print(Unquoted, "Die Partei " .Name.
\par " hat im Wahlkreis "
\par .expr2text(daten[Index][1]).
\par " ihr bestes Ergebnis von "
\par .expr2text(float(max(Prozent)*100)).
\par " Prozent erzielt.");
\par end_proc:
\par \plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28\cf0 Folgende Aufrufe liefern uns das gew\'fcnschte Ergebnis:
\par
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}TEXTWIDTH := 150:
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 for P in Parteien do
\par print(Wahlkreis(Daten, P))
\par end_for;
\par TEXTWIDTH := Alt:
\par \plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28\cf0 Eine weitere interessante Fragestellung besch\'e4ftigt sich mit der Wahlbe-
\par teiligung. Wir wollen wissen, wo die Wahlbeteiligung am h\'f6chsten und wo
\par am niedrigsten war. Dazu m\'fcssen wir die Anzahl der W\'e4hler durch die
\par Anzahl der Wahlberechtigten teilen. Die dazu ben\'f6tigten Daten stehen in
\par der zweiten und dritten Spalte.
\par \plain\f5\fs22\cf1
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}TEXTWIDTH := 100:
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 for BL in Laender do
\par Wahlbeteiligung[BL[1]] := float(BL[3]/BL[2]*100):
\par print(Unquoted, "In " .BL[1].
\par " liegt die Wahlbeteiligung bei "
\par .expr2text(Wahlbeteiligung[BL[1]]). " Prozent.");
\par end_for;
\par TEXTWIDTH := Alt:\plain\f5\fs22\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}map(op(Wahlbeteiligung), eq -> rhs(eq))
\par \pard\ri4\plain\f4\fs28\cf0
\par Dies ist noch nicht sehr anschaulich, daher stellen wir die Wahlbeteiligung als
\par Balkendiagramm dar. Auch hier erstellen wir erst wieder eine Liste, die die
\par Marken an die gew\'fcnschten Stellen setzt.
\par \plain\f5\fs22\cf1
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Marken_Laender := [0.2 = "SH", 1.6 = "MV", 2.7 = "HH",
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 4.0 = "NI", 5.4 = "HB", 6.5 = "BB",
\par 7.6 = "ST", 8.8 = "BE", 10.0 = "NW"\plain\f5\fs22\cf3 ,
\par \plain\f5\fs28\cf3 11.4 = "SN", 12.5 = "HE", 13.7 = "TH",
\par 14.8 = "RP", 16 = "BY", 17.4 = "BW",
\par 18.5 = "SL"]:
\par \plain\f5\fs22\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}Wahlbeteiligung[BL[1]] $ BL in Laender
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}plot(plot::Bars2d([[map(op(Wahlbeteiligung), eq -> rhs(eq))]],
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 Color = RGB::Blue,
\par YGridVisible = TRUE))
\par \plain\f5\fs22\cf3
\par \pard\ri4\plain\f4\fs28\cf0 An diesem Histogramm k\'f6nnen wir jetzt auf einen Blick ablesen, wo die Wahl-
\par beteiligung am h\'f6chsten und wo am niedrigsten war. Wir sehen, dass die
\par geringste Wahlbeteiligung in Sachsen-Anhalt war, gefolgt von Mecklenburg-
\par Vorpommern, Sachsen und Th\'fcringen. In Bayern gaben die meisten Wahl-
\par berechtigten ihre Stimme ab, dicht gefolgt von Baden-W\'fcrttemberg, Nieder-
\par sachsen und Schleswig-Holstein.
\par \plain\f5\fs22\cf1
\par \plain\f4\fs28\cf0 Wenden wir uns nun einer weiteren interessanten Fragestellung zu. Wir wollen
\par untersuchen, wie "einig" sich die W\'e4hler einer Partei sind. Dazu erstellen wir
\par Boxplots f\'fcr jede Partei und nehmen die Anzahl der abgegebenen Zweit-
\par stimmen pro Bundesland und teilen diese durch die Gesamtzahl der
\par abgegebenen Zweitstimmen.\plain\f5\fs22\cf1 \plain\f5\fs22\cf3
\par \plain\f5\fs28\cf3
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f5\fs28\cf3 {\pntext\f1\'b7\tab}L:= [[Bl[Partei(P)]/Bl[7]*100 $ Bl in Laender]
\par \pard\li600\ri1\fi-300\plain\f5\fs28\cf3 $ P in Parteien]:
\par plot(plot::Boxplot(L, Colors = [RGB::Red, RGB::Black,
\par RGB::Green, RGB::Yellow,
\par RGB::VioletRed, RGB::Brown,
\par RGB::Grey, RGB::LightGrey],
\par LineWidth = 0.5 * unit::mm),
\par XTicksVisible = FALSE,
\par GridVisible = TRUE)\plain\f5\fs22\cf3
\par
\par \pard\ri4\plain\f4\fs28\cf0 Was sagen uns diese Boxplots?
\par Als erstes f\'e4llt auf, dass die Boxen unterschiedliche Gr\'f6\'dfen haben. Eine
\par gro\'dfe Box bedeutet, dass die Daten gro\'dfen Schwankungen unterlegen
\par sind. Bei der PDS zum Beispiel k\'f6nnen wir beobachten, dass die f\'fcr sie
\par abgegebenen Stimmen im Bereich zwischen ca 2% und 15% liegen. Dies
\par bedeutet, dass es gro\'dfe regionale Unterschiede im Wahlverhalten bzgl.
\par der PDS gibt. Ganz anders sieht das bei der FDP aus. Die sehr kleine
\par Box zeigt, dass sich die W\'e4hler aus den jeweiligen Bundesl\'e4ndern \'e4hnlich
\par verhalten haben. Sie konnte also keine sehr gro\'dfen regionalen Siege, aber
\par ebenso keine starken Niederlagen f\'fcr sich verbuchen.
\par
\par Eine weitere Kenngr\'f6\'dfe ist der Median, den wir als waagerechte Linie
\par innerhalb der Box ablesen k\'f6nnen. Diese zeigt uns den Mittelwert der
\par abgegebenen Stimmen an. F\'fcr die PDS ist dieser Wert sehr gering,
\par d.h. in 50% der Bundesl\'e4nder lag der Stimmenanteil unter 2%. Wenn
\par die PDS also mehr als 2% der Stimmen in einem Bundesland be-
\par kommen hat, dann auch wesentlich mehr. Anders herum verh\'e4lt es
\par sich bei der SPD und der CDU/CSU.
\par Weiterhin k\'f6nnen wir f\'fcr die SPD, die CDU/CSU und die "\'dcbrigen"
\par einen Punkt ausserhalb dieser Box erkennen. Diese werden als Aus-
\par reisser bezeichnet und weichen sehr stark von dem Gro\'dfteil der
\par Daten ab. Bei der SPD und der CDU/CSU sind dies die Werte aus
\par Bayern. Dies zeigt, dass die Wahlergebnisse aus Bayern eine Sonder-
\par rolle innerhalb der Bundestagswahlergebnisse spielen.
\par
\par \plain\f5\fs20\cf0\b _____________________________________________________________________________
\par
\par \plain\f4\fs22\cf1\b Aufgaben:\plain\f5\fs20\cf0\b
\par \plain\f4\fs20\cf1\b 1. \plain\f4\fs20\cf1 Erstellen Sie Boxplots f\'fcr die Partei SPD, indem Sie die Stimmen aus den einzelnen Wahlkreisen
\par nehmen und diese zu dem jeweiligen Bundesland zusammenfassen. So erhalten sie 16 Boxplots f\'fcr
\par eine Partei. Vergleichen Sie diese und verfahren Sie analog f\'fcr beliebige andere Parteien.
\par \plain\f4\fs20\cf1\b 2.\plain\f4\fs20\cf1 Suchen Sie die Spalte, in der die Anzahl der ung\'fcltigen Stimmen stehen, aus der Tabelle heraus und
\par berechnen Sie, wo die Quote der ung\'fcltigen Stimmen am h\'f6chsten und wo am niedrigsten ist.
\par \plain\f5\fs20\cf0\b _____________________________________________________________________________
\par \plain\f4\fs22\cf0
\par \plain\f4\fs22\cf2\b Anmerkungen:
\par \plain\f4\fs20\cf2\b 1.\plain\f4\fs20\cf2 Weitere Anregungen finden Sie in der Buchreihe \plain\f4\fs20\cf3 Mathematik 1 x anders\plain\f4\fs20\cf2 . In dieser Reihe
\par wird eine Vielzahl unterschiedlichster mathematischer Probleme mit MuPAD gel\'f6st. Die
\par B\'fccher k\'f6nnen unter \plain\f7\fs20\cf1 www.schule.mupad.de/literatur \plain\f4\fs20\cf2 kostenfrei kopiert werden.
\par \plain\f4\fs20\cf2\b 2. \plain\f4\fs20\cf2 Quelle:\plain\f3\fs24\cf1 \plain\f3\fs24\cf1\ul http://www.bundeswahlleiter.de/bundestagswahl2002/deutsch/ergebnis2002/csv/kerg.csv\plain\f3\fs24
\par \pard\plain\f4\fs20 \plain\f4\fs20\cf2 Die Datei wurde so ver\'e4ndert, dass sie mit MuPAD eingelesen werden kann. Desweiteren wurden
\par \pard\ri4\plain\f4\fs20\cf2 die Wahlergebnisse von 1998 weggelassen und die Ergebnisse f\'fcr die CDU und die CSU sowie die
\par Ergebnisse f\'fcr die kleineren Parteien zusammengefasst.
\par 3. Um die Datei \plain\f4\fs20\cf1 bundestagswahlergebnisse.csv\plain\f4\fs20\cf3 \plain\f4\fs20\cf2 in Tabellenform\plain\f4\fs20\cf3 \plain\f4\fs20\cf2 darzustellen, \'f6ffnen Sie diese\plain\f4\fs20\cf3 \plain\f4\fs20\cf2 nicht
\par mit einem Doppelklick, sondern unter Excel mit der Option \'d6ffnen und geben Sie als Dateityp
\par Textdateien an.\plain\f4\fs20\cf1
\par \plain\f5\fs20\cf0\b _____________________________________________________________________________
\par
\par
\par }