summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.bev
diff options
context:
space:
mode:
Diffstat (limited to 'lang/dynamo/1.8.7/src/dyn.bev')
-rw-r--r--lang/dynamo/1.8.7/src/dyn.bev50
1 files changed, 50 insertions, 0 deletions
diff --git a/lang/dynamo/1.8.7/src/dyn.bev b/lang/dynamo/1.8.7/src/dyn.bev
new file mode 100644
index 0000000..5b759d3
--- /dev/null
+++ b/lang/dynamo/1.8.7/src/dyn.bev
@@ -0,0 +1,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
+