$aggGKZ | aggGKZ | Spaltennummer reftyp für Aggregation |
$differenzierung | differenzierung | Untersuchungsgebiet, Gebiet, Typ Binnenwanderung, ... |
$typ | typ | Gebietskennzeichen/Typnummer |
$ftyp | ftyp | Gebietskennzeichen/Typnummer mit führender Null |
$g | g | laufende Nummer Gebiet/Typ (ab 0) |
$gname | gname | Gebietsname bei Differenzierung Gebiet, sonst leer |
$startjahr | startjahr | Starjahr Prognose |
$endjahr | endjahr | Endjahr Prognose |
$tab | tab | laufende Tabellennummer |
$abb | abb | laufende Abbildungsnummer |
Die Jahreszahlen der Bestände beziehen sich jeweils auf den 31.12.
${\tab1($g, 0, 'fein', 0, sprintf('Tab. %d: Insgesamt nach Altersgruppen', ++$tab), 1)}gleicher Tabellentyp, andere Parameter
${\tab1($g, 0, 'superfein', -2, sprintf('Tab. %d: Absolut', ++$tab), 1)}Abb. ${\++$abb}: Altersstruktur Jahr $startjahr und $endjahr im Vergleich
${\pyramid($g, 'Pyramide %unit% %key1%, Jahr %year1% Summe %sum1.0%, Jahr %year2% Summe %sum2.0%', [600, 800], 'A', 1)} ${\pyramid($g, 'Pyramide %unit% %key1%, Jahr %year1% - %year2%', [800, 1100], 'B', 1)}# Geschlechtspezifische Tabelle und Linienplot do{ my @ak = qw(fein superfein); # Altersklassen aus report.csv my $yrange = ''; # Y-Wertebereich Linienplot ('70:120', '*:*', '') my $dabs = 0; # Nachkommastellen Anzahl (-3: in Tausend) my $dproz = 4; # Nachkommastellen Prozent my $t1 = 'Tab. %d: Veränderung der Bevölkerung von Jahr %d bis Jahr %d nach Geschlecht und Altersgruppen %s'; my $t2 = "Bevölkerungsprognose $differenzierung $ftyp$gname"; my $t3 = "Abb. %d: Entwicklung der Altersgruppen von Tab. %d jeweils für"; my $size = [800, 350]; # Größe 600..800, 300..370 my $style = 'lines'; # 'lines' oder 'linespoints' my $grid = 0; # Gitter 0=nein, 1=ja my $key = 'outside right top'; # 'left top' oder 'outside right top' my $r; # berechnete Tabellen und Plots # Tabelle und Linienplots für die Altersklassen @ak # digstr(-3) : ' in 1000' # digstr( 2) : '' foreach my $a (@ak) { $r .= calcgg ($g, $a, 1); # aggregiere Altersklasse $r .= tab2 ($page, $g, $a, $dabs, $dproz, sprintf($t1, ++$tab, $startjahr, $endjahr, digstr($dabs)), 1); # Ausgabe Tabelle $r .= lineplot ($page, $g, $a, $yrange, $t2, sprintf($t3, ++$abb, $tab), $size, $style, $grid, $key, 1); # Ausgabe Linienplot } $r; } #}