1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
NOTE EIN BEVÖLKERUNGSMODELL DER BUNDESREPUBLIK DEUTSCHLAND
NOTE
NOTE ANGABEN DER GEBURTENRATEN (GR) UND STERBEQUOTIENTEN (SQ)
NOTE AUS DEM STATISTISCHEN JAHRBUCH 1982
NOTE
FOR LJ=1,80 LEBENSJAHRE
FOR LJ2=2,80
L BEV.K(1)=BEV.J(1)+DT*(GB.J-A.J(1)-S.J(1)) BABIES
L BEV.K(LJ2)=BEV.J(LJ2)+DT*(A.J(LJ2-1)-A.J(LJ2)-S.J(LJ2)) BEVÖLKERUNG
A A.K(LJ)=(1-SQ(LJ))*BEV.K(LJ)
A S.K(LJ)=SQ(LJ)*BEV.K(LJ)
A GB.K=SCLPRD(BEV.K,15,44,GR,1)/2 Geburten
A GBEV.K=SUM(BEV.K) Gesamtbevölkerung
A ZBEV.K=SUMV(BEV.K,16,59) zahlende Bevölkerung (in Rentenversicherung)
A PRENT.K=SUMV(BEV.K,60,80) potentielle Rentner
NOTE
N BEV(LJ)=IBEV(LJ)*1E3
T IBEV=
X 584/585/590/609/652/728/780/843/927/980/
X 1014/1032/1045/1049/1024/1003/986/959/929/903/
X 884/857/850/845/841/844/854/872/854/810/
X 756/676/722/826/829/905/1029/1062/1026/968/
X 934/919/884/783/711/725/763/784/784/768/
X 742/744/724/700/716/751/765/673/488/385/
X 397/479/613/690/698/681/664/666/654/630/
X 603/573/546/510/476/445/402/359/320/1681
NOTE
T SQ=
X .01965/.00123/.00082/.00082/.00082/.00055/.00055/.00055/.00055/.00055/
X .00033/.00033/.00033/.00033/.00033/.00064/.00064/.00064/.00064/.00064/
X .00183/.00183/.00183/.00183/.00183/.00131/.00131/.00131/.00131/.00131/
X .00152/.00152/.00152/.00152/.00152/.00193/.00193/.00193/.00193/.00193/
X .00302/.00302/.00302/.00302/.00302/.00497/.00497/.00497/.00497/.00497/
X .00750/.00750/.00750/.00750/.00750/.01220/.01220/.01220/.01220/.01220/
X .01868/.01868/.01868/.01868/.01868/.03146/.03146/.03146/.03146/.03146/
X .05206/.05206/.05206/.05206/.05206/.08241/.08241/.08241/.08241/.175
NOTE
T GR=
X .0008/.0041/.0138/.0274/.0453/.0597/.0745/.0861/.0933/.1025/
X .1067/.1074/.1050/.0963/.0872/.0753/.0642/.0531/.0430/.0360/
X .0297/.0225/.0184/.0144/.0114/.0087/.0063/.0044/.0031/.0020
NOTE
C DT=1
C PLTPER=1
C PRTPER=1
N TIME=1982
C LENGTH=2000
NOTE PRINT GB,A(1),S(1),BEV(1),BEV(2),GR(1),GR(15),GR(30)
PRINT GBEV,BEV(1),BEV(40),BEV(60),BEV(63),BEV(65),ZBEV,PRENT
|
