Befehle

In der Startmaske der Bevölkerungsprognose kann man vor und nach der Prognose und in Ergebnis/Bearbeiten/Blackbox Test Befehle vorgeben (die vom Perl-Rahmenprogramm ausgeführt werden).
Beginnt eine Zeile mit echo:
echo 'Hauptprognose ohne Wanderung';
so wird diese Meldung im "Miniprotokoll, d.h. im Protokoll, im Textfenster der Hauptmaske, in der Logdatei (Hauptmaske/Datei/Logdatei) und in Hauptmaske/Start/Eigene Scripts/Start/batch_all.pl ausgegeben.

Für die Prognose eine Verknüpfung für eine Eingabedatei erstellen:

shortcut 'zuvol_v1', 'zuvol';
shortcut '../generic/bgwr2000', 'bgwr2000';
shortcut 'H:/pool/fruc2000', 'fruc2000';
und nach der Prognose wieder zu löschen
remove qw(zuvol bgwr2000 fruc2000);
Bei kleinen Eingabedateien kann es bequemer sein, diese vor der Prognose zu erstellen:
fwrite 'eckreg.csv', <<e;
2010;3;2;0;1500
2010;3;2;1;1200
2010;3;2;2;1500
e
und nach der Prognose zu entfernen
remove 'eckreg';
Weiterhin kann man Plausibilitätschecks ergänzen, z.B.
echo "ndemo/D1: vergleiche neubaub mit bew Spalte 9 und 14";
my $n = filesum 'neubaub', 2010;
my $a = filesum 'bew', 2010,  8; # Summe über Binnenauszüge in Neubauten
my $e = filesum 'bew', 2010, 13; # Summe über Erstbezug
is $n, $a, 1, "neubaub $n gleich bew Binnenauszüge in Neubauten $a";
is $n, $e, 1, "neubaub $n gleich bew Erstbezug aus Untersuchungsgebiet $e";
chkbewgem 'bewgem', 2010, 1, 0;  # ist Endbevölkerung = Anfangsbev. + Bewegungen ?
# Vergleiche Summe pro Gebiet von eckgem und gem
my $eh = filehash 'eckgem', [2010, 1], 2;
my $gh = filehash 'gem2010', 2010, 1;
echo dump $eh, $gh; # Testausgabe
ishash $eh, $gh, 1, "eckgem = gem2010", 1;
Beispiel:
vor der Prognose:
echo 'Prognose mit hohem Außenzuzug';
purge;                         # lösche Versionsunterverzeichnis
shortcut qw(zuvol_hoch zuvol); # verwende zuvol_hoch
grnvzgr 'fruc2000';            # Geburtenraten nach Vorgabe TFR
srnvle  'strb200', 61, 1;      # Sterberaten nach Vorgabe Lebenserwarung
nach der Prognose:
indikator({aggGKZ => $_, dir => 'ind_'.$_) foreach(1, 2);
report($_) foreach(1, 2, 13);
zeitreihe($_, 'zr_ag_', q($i,$i,$i,$i,int($i)/20)) foreach qw(gem gebam);
xyplot 'zr_ag_gem';
matrix(fn => 'gstrom', shape => 4, size => 1000);
blackbox_test 1 1;
remove 'zuvol'; # lösche Verknüpfung zu zuvol_hoch
Im einzelnen gibt es folgende Funktionen: