Datei:Sterbetafel.svg

Beschreibung, Quelle[Bearbeiten | Quelltext bearbeiten]

Datengrundlage:

Sterbetafel 2008/10 als xls-Datei

Quellcode:

#!/usr/bin/env python
# -*- coding: utf-8 -*-
import matplotlib
#matplotlib.rc('text', usetex=True)
import matplotlib.pyplot as plt
from matplotlib.ticker import MultipleLocator
# reading data
# file format (Quelle: Statistisches Bundesamt, Wiesbaden 2011):
# 0	0.00386398	0.99613602	0.00309496	0.99690504
# 1	0.00032621	0.99967379	0.00027864	0.99972136
# 2	0.00020848	0.99979152	0.00015994	0.99984006
# 3	0.00014144	0.99985856	0.00012629	0.99987371
inputFile = open("sterbetafel_20082010_destatis.txt", "r")
data = map(lambda x: x.split(), inputFile.readlines())
inputFile.close()
alter, maleMort, femaleMort = [], [], []
alter = [int(row[0]) for row in data]
maleMort = [float(row[1]) for row in data]
femaleMort = [float(row[3]) for row in data]
maleCumul, femaleCumul = [], []
for i in range(len(alter)):
	maleCumul.append(reduce(lambda x, y: x*y, map(lambda x: 1-x, maleMort[:i]), 1))
	femaleCumul.append(reduce(lambda x, y: x*y, map(lambda x: 1-x, femaleMort[:i]), 1))
# plotting data
fig = plt.figure()
plotPos = [0.12, 0.10, 0.76, 0.83]
ax1 = fig.add_subplot(111, position=plotPos)
ax2 = ax1.twinx()
ax2.plot(alter, femaleMort, lw=2, ls="--", color="red", zorder=-1)
ax2.plot(alter, maleMort, lw=2, ls="--", color="navy", zorder=-1)
ax1.plot(alter, femaleCumul, label="""$\mathrm{Frauen}$""", lw=2, color="red", zorder=-1)
ax1.plot(alter, maleCumul, label=r"""$\mathrm{M\"anner}$""", lw=2, color="navy", zorder=-1)
ax1.arrow(0.525, 0.85, -0.15, 0., transform=ax1.transAxes, width=.0075, head_width=0.0225, color="Silver")
ax1.xaxis.set_major_locator(MultipleLocator(10))
ax1.yaxis.set_major_locator(MultipleLocator(0.1))
ax2.set_ylim(0.,0.5)
ax2.yaxis.set_major_locator(MultipleLocator(0.05))
ax1.legend(loc=0, fancybox=True)
ax1.set_ylabel(r"""$\mathrm{kumulative\,\"Uberlebenswahrscheinlichkeit}$""", va = "top", y = 1, size="larger")
ax2.set_ylabel(r"""$\mathrm{j\"ahrliche\,Sterbewahrscheinlichkeit}$""", va = "top", y = 1, size="larger")
ax1.set_xlabel(r"""$\mathrm{Alter\,in\,Jahren}$""", ha = "center", x = 0.5, size="larger")
ax1.text(0.5, 1., r"$\mathrm{Quelle:\,Statistisches\,Bundesamt,\,Wiesbaden\,2011}$", ha = "center", va="bottom",\
 color="gray", transform=ax1.transAxes, zorder=1)
ax1.grid()
fig.savefig("sterbetafel.svg")
fig.clear()

Lizenz[Bearbeiten | Quelltext bearbeiten]

Der Urheberrechtsinhaber dieser Datei hat ein unentgeltliches, bedingungsloses Nutzungsrecht für jedermann ohne zeitliche, räumliche und inhaltliche Beschränkung eingeräumt. Bei der Einräumung dieses Nutzungsrechtes ist nur der wirkliche Wille des Urhebers und nicht der buchstäbliche Sinn des Ausdrucks erheblich. Daher wird dieses Nutzungsrecht insbesondere auch bei der rechtlich in Deutschland und Österreich nicht möglichen Übergabe durch den Urheber in die Gemeinfreiheit bzw. Public Domain angewendet. Bild-frei //de.wikipedia.org/wiki/Datei:Sterbetafel.svg