Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/world3.lst
There are no other files named world3.lst in the archive.
1PAGE 1 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD 00000010
0002 * EULER 00000020
0003 NOTE LIMITS TO GROWTH BY DONELLA MEADOWS ET.AL. 00000030
0004 NOTE THIS IS THE VERSION USED IN THE TECHNICAL REPORT 00000040
0005 NOTE LAST REVISED DECEMBER 14,1972 00000050
0006 NOTE 00000060
0007 NOTE POPULATION SECTOR 00000070
0008 NOTE 00000080
0009 A POP.K=P1.K+P2.K+P3.K+P4.K 00000090
0010 L P1.K=INTGRL(B.JK-D1.JK-MAT1.JK) 00000100
0011 N P1=P1I 00000110
0012 C P1I=65E7 00000120
0013 R D1.KL=P1.K*M1.K 00000130
0014 A M1.K=TABHL(M1T,LE.K,20,80,10) 00000140
0015 T M1T=.0567,.0366,.0243,.0155,.0032,.0023,.001 00000150
0016 R MAT1.KL=(P1.K)(1-M1.K)/15 00000160
0017 L P2.K=INTGRL(MAT1.JK-D2.JK-MAT2.JK) 00000170
0018 N P2=P2I 00000180
0019 C P2I=70E7 00000190
0020 R D2.KL=P2.K*M2.K 00000200
0021 A M2.K=TABHL(M2T,LE.K,20,80,10) 00000210
0022 T M2T=.0266,.0171,.0110,.0065,.0040,.0016,.0008 00000220
0023 R MAT2.KL=(P2.K)(1-M2.K)/30 00000230
0024 L P3.K=INTGRL(MAT2.JK-D3.JK-MAT3.JK) 00000240
0025 N P3=P3I 00000250
0026 C P3I=19E7 00000260
0027 R D3.KL=P3.K*M3.K 00000270
0028 A M3.K=TABHL(M3T,LE.K,20,80,10) 00000280
0029 T M3T=.0562,.0373,.0252,.0171,.0118,.0083,.006 00000290
0030 R MAT3.KL=(P3.K)(1-M3.K)/20 00000300
0031 L P4.K=INTGRL(MAT3.JK-D4.JK) 00000310
0032 N P4=P4I 00000320
0033 C P4I=6E7 00000330
0034 R D4.KL=P4.K*M4.K 00000340
0035 A M4.K=TABHL(M4T,LE.K,20,80,10) 00000350
0036 T M4T=.13,.11,.09,.07,.06,.05,.04 00000360
0037 NOTE 00000370
0038 NOTE DEATH RATE SUBSECTOR 00000380
0039 NOTE 00000390
0040 A D.K=(P1.K*M1.K)+(P2.K*M2.K)+(P3.K*M3.K)+(P4.K*M4.K) 00000400
0041 S CDR.K=1000*D.K/POP.K 00000410
$
1) ***** W A R N I N G ***** ND0588
0042 A LE.K=LEN*LMF.K*LMHS.K*LMP.K*LMC.K 00000420
0043 C LEN=28 00000430
0044 A LMF.K=TABHL(LMFT,FPC.K/SFPC,0,5,1) 00000440
0045 T LMFT=0,1,1.2,1.3,1.35,1.4 00000450
0046 A LMHS.K=CLIP(LMHS2.K,LMHS1.K,TIME.K,1940) 00000460
0047 A LMHS1.K=TABHL(LMHS1T,EHSPC.K,0,100,20) 00000470
0048 T LMHS1T=1,1.1,1.4,1.6,1.7,1.8 00000480
0049 A LMHS2.K=TABHL(LMHS2T,EHSPC.K,0,100,20) 00000490
0050 T LMHS2T=1,1.4,1.6,1.8,1.95,2.0 00000500
0051 A EHSPC.K=NEW6.K 00000510
0052 N NEW6=7.0810 00000520
1PAGE 2 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0053 L NEW6.K=INTGRL(NE6RAT.JK) 00000530
0054 R NE6RAT.KL=(HSAPC.K-NEW6.K)/HSID 00000540
0055 C HSID=20 00000550
0056 A HSAPC.K=TABHL(HSAPCT,SOPC.K,0,2000,250) 00000560
0057 T HSAPCT=0,20,50,95,140,175,200,220,230 00000570
0058 A FPU.K=TABHL(FPUT,POP.K,0,16E9,2E9) 00000580
0059 T FPUT=0,.2,.4,.58,.65,.72,.78,.80 00000590
0060 A CMI.K=TABHL(CMIT,IOPC.K,0,1600,200) 00000600
0061 T CMIT=.5,.05,-.1,-.08,-.02,.05,.1,.15,.2 00000610
0062 A LMC.K=1-(CMI.K*FPU.K) 00000620
0063 A LMP.K=TABHL(LMPT,PPOLX.K,0,100,10) 00000630
0064 T LMPT=1.0,.99,.97,.95,.90,.85,.75,.65,.55,.40,.20 00000640
0065 NOTE 00000650
0066 NOTE BIRTH RATE SECTOR 00000660
0067 NOTE 00000670
0068 R B.KL=CLIP(D.K,(TF.K*P2.K*0.5/RLT),TIME.K,PET) 00000680
0069 C RLT=30 00000690
0070 C PET=4000 00000700
0071 S CBR.K=1000*B.JK/POP.K 00000710
$
1) ***** W A R N I N G ***** ND0588
0072 A TF.K=MIN(MTF.K,(MTF.K*(1-FCE.K)+DTF.K*FCE.K)) 00000720
0073 A MTF.K=MTFN*FM.K 00000730
0074 C MTFN=12 00000740
0075 A FM.K=TABHL(FMT,LE.K,0,80,10) 00000750
0076 T FMT=0,.2,.4,.6,.8,.9,1,1.05,1.1 00000760
0077 A DTF.K=DCFS.K*CMPLE.K 00000770
0078 A DCFS.K=CLIP(2.0,DCFSN*FRSN.K*SFSN.K,TIME.K,ZPGT) 00000780
0079 C ZPGT=4000 00000790
0080 C DCFSN=4 00000800
0081 A FRSN.K=TABHL(FRSNT,FIE.K,-.2,.2,.1) 00000810
0082 T FRSNT=.5,.6,.7,.85,1 00000820
0083 A FIE.K=(IOPC.K-AIOPC.K)/AIOPC.K 00000830
0084 A AIOPC.K=NEW5.K 00000840
0085 N NEW5=40.876 00000850
0086 L NEW5.K=INTGRL(NE5RAT.JK) 00000860
0087 R NE5RAT.KL=(IOPC.K-NEW5.K)/IEAT 00000870
0088 C IEAT=3 00000880
0089 A SFSN.K=TABHL(SFSNT,DIOPC.K,0,800,200) 00000890
0090 T SFSNT=1.25,1,.9,.8,.75 00000900
0091 A DIOPC.K=O3.K 00000910
0092 N O1=40.876 00000920
0093 N O2=40.876 00000930
0094 N O3=40.876 00000940
0095 L O1.K=INTGRL(RO1.JK) 00000950
0096 L O2.K=INTGRL(RO2.JK) 00000960
0097 L O3.K=INTGRL(RO3.JK) 00000970
0098 R RO1.KL=(IOPC.K-O1.K)/(SAD/3) 00000980
0099 R RO2.KL=(O1.K-O2.K)/(SAD/3) 00000990
0100 R RO3.KL=(O2.K-O3.K)/(SAD/3) 00001000
0101 C SAD=20 00001010
0102 A CMPLE.K=TABHL(CMPLET,PLE.K,0,80,10) 00001020
0103 T CMPLET=3,2.1,1.6,1.4,1.3,1.2,1.1,1.05,1 00001030
0104 A PLE.K=N3.K 00001040
0105 N N1=28.351 00001050
0106 L N1.K=INTGRL(RN1.JK) 00001060
1PAGE 3 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0107 R RN1.KL=(LE.K-N1.K)/(LPD/3) 00001070
0108 N N2=28.351 00001080
0109 L N2.K=INTGRL(RN2.JK) 00001090
0110 R RN2.KL=(N1.K-N2.K)/(LPD/3) 00001100
0111 N N3=28.351 00001110
0112 L N3.K=INTGRL(RN3.JK) 00001120
0113 R RN3.KL=(N2.K-N3.K)/(LPD/3) 00001130
0114 C LPD=20 00001140
0115 A FCE.K=CLIP(1.0,(TABHL(FCET,FCFPC.K,0,3,.5)),TIME.K,FCEST) 00001150
0116 C FCEST=4000 00001160
0117 T FCET=.75,.85,.9,.95,.98,.99,1 00001170
0118 A FCFPC.K=N6.K 00001180
0119 N N4=.098140 00001190
0120 N N5=.098140 00001200
0121 N N6=.098140 00001210
0122 L N4.K=INTGRL(RN4.JK) 00001220
0123 L N5.K=INTGRL(RN5.JK) 00001230
0124 L N6.K=INTGRL(RN6.JK) 00001240
0125 R RN4.KL=(LE.K-N4.K)/(LPD/3) 00001250
0126 R RN5.KL=(N4.K-N5.K)/(LPD/3) 00001260
0127 R RN6.KL=(N5.K-N6.K)/(LPD/3) 00001270
0128 A FCAPC.K=FSAFC.K*SOPC.K 00001280
$
1) ***** W A R N I N G ***** ND0588
0129 A FSAFC.K=TABHL(FSAFCT,NFC.K,0,10,2) 00001290
0130 T FSAFCT=0,.005,.015,.025,.03,.035 00001300
0131 A NFC.K=(MTF.K/DTF.K)-1 00001310
0132 NOTE 00001320
0133 NOTE CAPITAL SECTOR 00001330
0134 NOTE 00001340
0135 NOTE INDUSTRIAL SUBSECTOR 00001350
0136 NOTE 00001360
0137 A IOPC.K=IO.K/POP.K 00001370
0138 A IO.K=(IC.K)(1-FCAOR.K)(CUF.K)/ICOR.K 00001380
0139 A ICOR.K=CLIP(ICOR2,ICOR1,TIME.K,PYEAR) 00001390
0140 C ICOR1=3 00001400
0141 C ICOR2=3 00001410
0142 L IC.K=INTGRL(ICIR.JK-ICDR.JK) 00001420
0143 N IC=ICI 00001430
0144 C ICI=2.1E11 00001440
0145 R ICDR.KL=IC.K/ALIC.K 00001450
0146 A ALIC.K=CLIP(ALIC2,ALIC1,TIME.K,PYEAR) 00001460
0147 C ALIC1=14 00001470
0148 C ALIC2=14 00001480
0149 R ICIR.KL=(IO.K)(FIOAI.K) 00001490
0150 A FIOAI.K=(1-FIOAA.K-FIOAS.K-FIOAC.K) 00001500
0151 A FIOAC.K=CLIP(FIOACV.K,FIOACC.K,TIME.K,IET) 00001510
0152 C IET=4000 00001520
0153 A FIOACC.K=CLIP(FIOAC2,FIOAC1,TIME.K,PYEAR) 00001530
0154 C FIOAC1=.43 00001540
0155 C FIOAC2=.43 00001550
0156 A FIOACV.K=TABHL(FIOACT,IOPC.K/IOPCD,0,2,.2) 00001560
0157 T FIOACT=.3,.32,.34,.36,.38,.43,.73,.77,.81,.82,.83 00001570
0158 C IOPCD=400 00001580
0159 NOTE 00001590
0160 NOTE SERVICE SUBSECTOR 00001600
1PAGE 4 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0161 NOTE 00001610
0162 A ISOPC.K=CLIP(ISOPC2.K,ISOPC1.K,TIME.K,PYEAR) 00001620
0163 A ISOPC1.K=TABHL(ISPCIT,IOPC.K,0,1600,200) 00001630
0164 T ISPCIT=40,300,640,1000,1220,1450,1650,1800,2000 00001640
0165 A ISOPC2.K=TABHL(ISPC2T,IOPC.K,0,1600,200) 00001650
0166 T ISPC2T=40,300,640,1000,1220,1450,1650,1800,2000 00001660
0167 A FIOAS.K=CLIP(FIOAS2.K,FIOAS1.K,TIME.K,PYEAR) 00001670
0168 A FIOAS1.K=TABHL(FIAS1T,SOPC.K/ISOPC.K,0,2,.5) 00001680
0169 T FIAS1T=.3,.2,.1,.05,0 00001690
0170 A FIOAS2.K=TABHL(FIAS2T,SOPC.K/ISOPC.K,0,2,.5) 00001700
0171 T FIAS2T=.3,.2,.1,.05,0 00001710
0172 R SCIR.KL=(IC.K)(FIOAS.K) 00001720
0173 L SC.K=INTGRL(SCIR.JK-SCDR.JK) 00001730
0174 N SC=SCI 00001740
0175 C SCI=1.44E11 00001750
0176 R SCDR.KL=SC.K/ALSC.K 00001760
0177 A ALSC.K=CLIP(ALSC2,ALSC1,TIME.K,PYEAR) 00001770
0178 C ALSC1=20 00001780
0179 C ALSC2=20 00001790
0180 A SO.K=(SC.K*CUF.K)/(SCOR.K) 00001800
0181 A SOPC.K=SO.K/POP.K 00001810
0182 A SCOR.K=CLIP(SCOR2,SCOR1,TIME.K,PYEAR) 00001820
0183 C SCOR1=1 00001830
0184 C SCOR2=1 00001840
0185 NOTE 00001850
0186 NOTE JOB SECTOR 00001860
0187 NOTE 00001870
0188 A J.K=PJIS.K+PJAS.K+PJSS.K 00001880
0189 A PJIS.K=(IC.K)(JPICU.K) 00001890
0190 A JPICU.K=(TABHL(JPICUT,IOPC.K,50,800,50))*.001 00001900
0191 T JPICUT=.37,.25,.2,.18,.16,.13,.12,.11,.1,.09,.08,.07,.07,.07,.07,.07 00001910
0192 A PJSS.K=(SC.K)(JPSCU.K) 00001920
0193 A JPSCU.K=(TABHL(JPSCUT,SOPC.K,50,800,50))*.001 00001930
0194 T JPSCUT=101,.9,.7,.6,.5,.4,.35,.25,.2,.2,.2,.2,.15,.15,.15,.15 00001940
0195 A PJAS.K=(JPH.K)(AL.K) 00001950
0196 A JPH.K=TABHL(JPHT,AIPH.K,2,30,4) 00001960
0197 T JPHT=2,.5,.4,.3,.27,.24,.2,.2 00001970
0198 A LF.K=(P2.K+P3.K)*LFPF 00001980
0199 C LFPF=.75 00001990
0200 A LUF.K=J.K/LF.K 00002000
0201 A LUFD.K=NEW2.K 00002010
0202 N NEW2=.97478 00002020
0203 L NEW2.K=INTGRL(NEWRAT.JK) 00002030
0204 R NEWRAT.KL=(LUF.K-NEW2.K)/LUFDT 00002040
0205 C LUFDT=2 00002050
0206 A CUF.K=TABHL(CUFT,LUFD.K,1,11,2) 00002060
0207 T CUFT=1,.9,.7,.3,.1,.1 00002070
0208 NOTE 00002080
0209 NOTE AGRICULTURAL SECTOR 00002090
0210 NOTE 00002100
0211 NOTE LOOP 1 - FOOD FROM INVESTMENT IN LAND DEVELOPMENT 00002110
0212 NOTE 00002120
0213 L AL.K=INTGRL(LDR.JK-LER.JK-LRUI.JK) 00002130
0214 N AL=ALI 00002140
0215 C ALI=.9E9 00002150
0216 L PAL.K=INTGRL(-LDR.JK) 00002160
0217 N PAL=PALI 00002170
1PAGE 5 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0218 C PALI=2.3E9 00002180
0219 A LFC.K=AL.K/PALT 00002190
$
1) ***** W A R N I N G ***** ND0588
0220 C PALT=3.2E9 00002200
0221 A F.K=LY.K*AL.K*LFH*(1-PL) 00002210
0222 C LFH=.7 00002220
0223 C PL=.1 00002230
0224 A FPC.K=F.K/POP.K 00002240
0225 A IFPC.K=CLIP(IFPC2.K,IFPC1.K,TIME.K,PYEAR) 00002250
0226 A IFPC1.K=TABHL(IFPC1T,IOPC.K,0,1600,200) 00002260
0227 T IFPC1T=230,480,690,850,970,1070,1150,1210,1250 00002270
0228 A IFPC2.K=TABHL(IFPC2T,IOPC.K,0,1600,200) 00002280
0229 T IFPC2T=230,480,690,850,970,1070,1150,1210,1250 00002290
0230 A TAI.K=IO.K*FIOAA.K 00002300
0231 A FIOAA.K=CLIP(FIOAA2.K,FIOAA1.K,TIME.K,PYEAR) 00002310
0232 A FIOAA1.K=TABHL(FIAA1T,FPC.K/IFPC.K,0,2.5,.5) 00002320
0233 T FIAA1T=.4,.2,.1,.025,0,0 00002330
0234 A FIOAA2.K=TABHL(FIAA2T,FPC.K/IFPC.K,0,2.5,.5) 00002340
0235 T FIAA2T=.4,.2,.1,.025,.0,0 00002350
0236 R LDR.KL=TAI.K*FIALD.K/DCPH.K 00002360
0237 A DCPH.K=TABHL(DCPHT,PAL.K/PALT,0,1,.1) 00002370
0238 T DCPHT=1E5,7400,5200,3500,2400,1500,750,300,150,75,50 00002380
0239 NOTE 00002390
0240 NOTE LOOP2 - FOOD FROM INVESTMENT IN AGRICULTURAL INPUTS 00002400
0241 NOTE 00002410
0242 A CAI.K=TAI.K*(1-FIALD.K) 00002420
0243 A AI.K=NEW3.K 00002430
0244 N NEW3=5477E6 00002440
0245 L NEW3.K=INTGRL(NEWRAT.JK) 00002450
0246 R NE3RAT.KL=(CAI.K-NEW3.K)/ALAI.K 00002460
$
1) ***** W A R N I N G ***** ND0588
0247 A ALAI.K=CLIP(ALAI2,ALAI1,TIME.K,PYEAR) 00002470
0248 C ALAI1=2 00002480
0249 C ALAI2=2 00002490
0250 A AIPH.K=AI.K*(1-FALM.K)/AL.K 00002500
0251 A LYMC.K=TABHL(LYMCT,AIPH.K,0,1000,40) 00002510
0252 T LYMCT=1,3,3.8,4.4,4.9,5.4,5.7,6.0,6.3,6.6,6.9,7.2, 00002520
X 7.4,7.6,7.8,8,8.2,8.4,8.6,8.8,9.0,9.2,9.4,9.6,9.8,10 00002530
0253 A LY.K=LYF.K*LFERT.K*LYMC.K*LYMAP.K 00002540
0254 A LYF.K=CLIP(LYF2,LYF1,TIME.K,PYEAR) 00002550
0255 C LYF1=1 00002560
0256 C LYF2=1 00002570
0257 A LYMAP.K=CLIP(LYMAP2.K,LYMAP1.K,TIME.K,PYEAR) 00002580
0258 A LYMAP1.K=TABHL(LYMP1T,IO.K/IO70,0,30,10) 00002590
0259 T LYMP1T=1,1,.7,.4 00002600
0260 A LYMAP2.K=TABHL(LYMP2T,IO.K/IO70,0,30,10) 00002610
0261 T LYMP2T=1,1,.7,.4 00002620
0262 C IO70=7.9E11 00002630
0263 NOTE 00002640
0264 NOTE LOOPS 1 & 2 - THE INVESTMENT ALLOCATION DECISON 00002650
0265 NOTE 00002660
0266 A FIALD.K=TABHL(FIALDT,(MPLD.K/MPAI.K),0,2,.25) 00002670
0267 T FIALDT=0,.05,.15,.30,.50,.70,.85,.95,1 00002680
1PAGE 6 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0268 A MPLD.K=LY.K/(DCPH.K*SD) 00002690
0269 C SD=.07 00002700
0270 A MPAI.K=ALAI.K*LY.K*MLYMC.K/LYMC.K 00002710
0271 A MLYMC.K=TABHL(MLYMCT,AIPH.K,0,600,40) 00002720
0272 T MLYMCT=.075,.03,.015,.011,.009,.003,.007,.006,.005,.005,.005,.005, 00002730
X .005,.005,.005,.005 00002740
0273 NOTE 00002750
0274 A ALL.K=ALLN*LLMY.K 00002760
0275 C ALLN=6000 00002770
0276 A LLMY.K=CLIP(LLMY2.K,LLMY1.K,TIME.K,PYEAR) 00002780
0277 A LLMY1.K=TABHL(LLMY1T,LY.K/ILF,0,9,1) 00002790
0278 T LLMY1T=1.2,1,.63,.36,.16,.055,.04,.025,.015,.01 00002800
0279 A LLMY2.K=TABHL(LLMY2T,LY.K/ILF,0,9,1) 00002810
0280 T LLMY2T=1.2,1,.63,.36,.16,.055,.04,.025,.015,.01 00002820
0281 R LER.KL=AL.K/ALL.K 00002830
0282 A UILPC.K=TABHL(UILPCT,IOPC.K,0,1600,200) 00002840
0283 T UILPCT=.005,.0081,015,.025,.04,.055,.07,.08,.09 00002850
0284 A UILR.K=UILPC.K*POP.K 00002860
0285 R LRUI.KL=MAX(0,(UILR.K,UIL.K)/UILDT) 00002870
0286 C UILDT=10 00002880
0287 L UIL.K=INTGRL(LRUI.JK) 00002890
0288 N UIL=UILI 00002900
0289 C UILI=8.2E6 00002910
0290 NOTE 00002920
0291 NOTE LOOP 4- LAND AND FERTILITY DEGRADATION 00002930
0292 NOTE 00002940
0293 L LFERT.K=INTGRL(LFR.JK-LFD.JK) 00002950
0294 N LFERT=LFERTI 00002960
0295 C LFERTI=600 00002970
0296 A LFDR.K=TABHL(LFDRT,PPOLX.K,0,30,10) 00002980
0297 T LFDRT=0,.1,.3,.5 00002990
0298 R LFD.KL=LFERT.K*LFDR.K 00003000
0299 NOTE 00003010
0300 NOTE LOOP 5 - LAND FERTILITY REGENERATION 00003020
0301 NOTE 00003030
0302 R LFR.KL=(ILF-LFERT.K)/LFRT.K 00003040
0303 C ILF=600 00003050
0304 A LFRT.K=TABHL(LFRTT,FALM.K,0,.10,.02) 00003060
0305 T LFRTT=20,13,8,4,2,2 00003070
0306 NOTE 00003080
0307 NOTE LOOP 6- DISCONTINUING LAND MAINTENANCE 00003090
0308 NOTE 00003100
0309 A FALM.K=TABHL(FALMT,PFR.K,0,4,1) 00003110
0310 T FALMT=0,.04,.07,.09,1 00003120
0311 A FR.K=FPC.K/SFPC 00003130
0312 C SFPC=230 00003140
0313 A PFR.K=NEW4.K 00003150
0314 N NEW4=1.2290 00003160
0315 L NEW4.K=INTGRL(NE4RAT.JK) 00003170
0316 R NE4RAT.KL=(FR.K-NEW4.K)/FSPD 00003180
0317 C FSPD=2 00003190
0318 NOTE 00003200
0319 NOTE NONRENEWABLE RESOURCE SECTOR 00003210
0320 NOTE 00003220
0321 L NR.K=INTGRL(-NRUR.JK) 00003230
0322 N NR=NRI 00003240
0323 C NRI=1E12 00003250
1PAGE 7 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0324 R NRUR.KL=(POP.K)(PCRUM.K)(NRUF.K) 00003260
0325 A NRUF.K=CLIP(NRUF2,NRUF1,TIME.K,PYEAR) 00003270
0326 C NRUF1=1 00003280
0327 C NRUF2=1 00003290
0328 A PCRUM.K=TABHL(PCRUMT,IOPC.K,0,1600,200) 00003300
0329 T PCRUMT=0,.85,2.6,4.4,5.4,6.2,6.8,7,7 00003310
0330 A NRFR.K=NR.K/NRI 00003320
0331 A FCAOR.K=CLIP(FCAOR2.K,FCAOR1.K,TIME.K,PYEAR) 00003330
0332 A FCAOR1.K=TABHL(FCAR1T,NRFR.K,0,1,.1) 00003340
0333 T FCAR1T=1,.9,.7,.5,.2,.1,.05,.05,.05,.05,.05 00003350
0334 A FCAOR2.K=TABHL(FCAR2T,NRFR.K,0,1,.1) 00003360
0335 T FCAR2T=1,.9,.7,.5,.2,.1,.05,.05,.05,.05,.05 00003370
0336 NOTE 00003380
0337 NOTE PERSISTENT POLLUTION SECTOR 00003390
0338 NOTE 00003400
0339 R PPGR.KL=(PPGIO.K+PPGAO.K)*(PPGF.K) 00003410
0340 A PPGF.K=CLIP(PPGF2,PPGF1,TIME.K,PYEAR) 00003420
0341 C PPGF1=1 00003430
0342 C PPGF2=1 00003440
0343 A PPGIO.K=PCRUM.K*POP.K*FRPM*IMEF*IMTI 00003450
0344 C FRPM=.02 00003460
0345 C IMEF=.1 00003470
0346 C IMTI=10 00003480
0347 A PPGAO.K=AIPH.K*AL.K*FIPM*AMTI 00003490
0348 C FIPM=.001 00003500
0349 C AMTI=1 00003510
0350 R PPAPR.KL=DP3.K/(PPTD/3) 00003520
0351 N DP1=(11.489E6)(PPTD/3) 00003530
0352 N DP2=(11.489E6)(PPTD/3) 00003540
0353 N DP3=(11.489E6)(PPTD/3) 00003550
0354 L DP1.K=INTGRL(PPGR.JK-RP1.JK) 00003560
0355 L DP2.K=INTGRL(RP1.JK-RP2.JK) 00003570
0356 L DP3.K=INTGRL(RP2.JK-RP3.JK) 00003580
0357 R RP1.KL=DP1.K/(PPTD/3) 00003590
0358 R RP2.KL=DP2.K/(PPTD/3) 00003600
0359 R RP3.KL=DP3.K/(PPTD/3) 00003610
0360 C PPTD=20 00003620
0361 L PPOL.K=INTGRL(PPAPR.JK-PPASR.JK) 00003630
0362 N PPOL=2.5E7 00003640
0363 A PPOLX.K=PPOL.K/PPOL70 00003650
0364 C PPOL70=1.36E8 00003660
0365 A AHLM.K=TABHL(AHLMT,PPOLX.K,1,1001,250) 00003670
0366 T AHLMT=1,11,21,31,41 00003680
0367 A AHL.K=AHL70*AHLM.K 00003690
0368 C AHL70=1.5 00003700
0369 R PPASR.KL=PPOL.K/(AHL.K*1.4) 00003710
0370 NOTE 00003720
0371 NOTE SUPPLEMENTARY EQUATIONS 00003730
0372 NOTE 00003740
0373 S FCA.K=(.22)(F.K)/(.22*F.K+SO.K+IO.K) 00003750
$
1) ***** W A R N I N G ***** ND0588
0374 S FCI.K=IO.K/(.22*F.K+SO.K+IO.K) 00003760
$
1) ***** W A R N I N G ***** ND0588
1PAGE 8 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
0375 S FCS.K=SO.K/(.22*F.K+SO.K+IO.K) 00003770
$
1) ***** W A R N I N G ***** ND0588
0376 NOTE 00003780
0377 NOTE CONTROL CARDS FOR SIMULATION 00003790
0378 NOTE 00003800
0379 PARM DT=1 00003810
0380 PARM START=1900 00003820
0381 PARM STOP=1975 00003830
0382 PARM PRTPER=1 00003840
0383 PARM PLTPER=1 00003845
0384 C PYEAR=1975 00003850
0385 PRINT POP,IC,IO,IOPC,AL,NR 00003860
0386 PLOT POP/IC/IO/IOPC/AL/NR 00003870
1PAGE 9 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
* * * S T A T S A N D O P T I O N S * * *
386 SOURCE STATEMENTS
8 DIAGNOSTIC MESSAGES
8 WARNINGS
CARD TYPE OCCURRENCE
T 46
C 63
PARM 5
N 29
L 29
A 111
R 38
S 5
X 2
* 1
NOTE 56
PRINT 1
PLOT 1
TITLE 1
OPTIONS IN EFFECT:
NOCHECK NOSYSTEM NODOCUMENT WIDE
STATS GO NOSYMBOL NOXREF
WARN NOOBJECT SOURCE NOTIME
INTEGRATION METHOD:
EULER LOWER SUM
1PAGE 10 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
TIME POP IC IO IOPC AL NR
E+03 E+09 E+09 E+09 E+00 E+06 E+12
1.9000 1.6000 210.00 66.500 41.563 900.00 1.0000
1.9010 1.6097 218.67 61.008 37.901 894.62 0.9997
1.9020 1.6126 225.08 48.205 29.893 888.89 0.9995
1.9030 1.6077 226.18 7.162 4.455 882.46 0.9993
1.9040 1.6016 211.76 6.706 4.187 874.44 0.9992
1.9050 1.5938 198.35 6.281 3.941 866.45 0.9992
1.9060 1.5842 185.85 5.885 3.715 858.49 0.9992
1.9070 1.5726 174.20 5.516 3.508 850.57 0.9991
1.9080 1.5596 163.32 5.172 3.316 842.70 0.9991
1.9090 1.5463 153.16 4.850 3.137 834.89 0.9991
1.9100 1.5331 143.67 4.549 2.967 827.13 0.9991
1.9110 1.5201 134.78 4.268 2.808 819.44 0.9991
1.9120 1.5073 126.46 4.005 2.657 811.80 0.9990
1.9130 1.4945 118.67 3.758 2.515 804.22 0.9990
1.9140 1.4817 111.37 3.527 2.380 796.70 0.9990
1.9150 1.4690 104.53 3.310 2.253 789.24 0.9990
1.9160 1.4564 98.12 3.107 2.133 781.83 0.9990
1.9170 1.4437 92.10 2.916 2.020 774.49 0.9990
1.9180 1.4314 86.45 2.738 1.913 767.21 0.9990
1.9190 1.4198 81.16 2.570 1.810 759.98 0.9989
1.9200 1.4088 76.18 2.413 1.712 752.81 0.9989
1.9210 1.3980 71.52 2.265 1.620 745.69 0.9989
1.9220 1.3874 67.13 2.126 1.532 738.62 0.9989
1.9230 1.3769 63.02 1.996 1.449 731.60 0.9989
1.9240 1.3665 59.16 1.873 1.371 724.64 0.9989
1.9250 1.3560 55.53 1.758 1.297 717.72 0.9989
1.9260 1.3455 52.12 1.650 1.227 710.85 0.9989
1.9270 1.3351 48.92 1.549 1.160 704.04 0.9989
1.9280 1.3246 45.91 1.454 1.098 697.27 0.9989
1.9290 1.3142 43.09 1.364 1.038 690.56 0.9989
1.9300 1.3037 40.43 1.280 0.982 683.89 0.9989
1.9310 1.2933 37.94 1.202 0.929 677.28 0.9988
1.9320 1.2829 35.60 1.127 0.879 670.72 0.9988
1.9330 1.2725 33.41 1.058 0.831 664.21 0.9988
1.9340 1.2621 31.34 0.993 0.786 657.75 0.9988
1.9350 1.2518 29.41 0.931 0.744 651.34 0.9988
1.9360 1.2415 27.59 0.874 0.704 644.98 0.9988
1.9370 1.2313 25.88 0.820 0.666 638.67 0.9988
1.9380 1.2211 24.28 0.769 0.630 632.42 0.9988
1.9390 1.2110 22.77 0.721 0.595 626.21 0.9988
1.9400 1.2009 21.36 0.676 0.563 620.06 0.9988
1.9410 1.1929 20.03 0.634 0.532 613.95 0.9988
1.9420 1.1847 18.78 0.595 0.502 607.89 0.9988
1.9430 1.1764 17.61 0.558 0.474 601.86 0.9988
1.9440 1.1681 16.52 0.523 0.448 595.88 0.9988
1.9450 1.1597 15.48 0.490 0.423 589.94 0.9988
1.9460 1.1513 14.52 0.460 0.399 584.04 0.9988
1.9470 1.1428 13.61 0.431 0.377 578.18 0.9988
1.9480 1.1344 12.76 0.404 0.356 572.37 0.9988
1.9490 1.1259 11.96 0.379 0.336 566.60 0.9988
1.9500 1.1174 11.21 0.355 0.318 560.87 0.9988
1.9510 1.1090 10.50 0.333 0.300 555.18 0.9988
1.9520 1.1005 9.84 0.312 0.283 549.53 0.9988
1.9530 1.0921 9.23 0.292 0.268 543.93 0.9988
1.9540 1.0836 8.64 0.274 0.253 538.37 0.9988
1PAGE 11 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
TIME POP IC IO IOPC AL NR
E+03 E+09 E+09 E+09 E+00 E+06 E+12
1.9550 1.0752 8.10 0.257 0.239 532.85 0.9988
1.9560 1.0668 7.59 0.240 0.225 527.38 0.9988
1.9570 1.0584 7.11 0.225 0.213 521.95 0.9988
1.9580 1.0501 6.66 0.211 0.201 516.56 0.9988
1.9590 1.0417 6.24 0.198 0.190 511.21 0.9988
1.9600 1.0335 5.85 0.185 0.179 505.90 0.9988
1.9610 1.0252 5.48 0.173 0.169 500.64 0.9988
1.9620 1.0170 5.13 0.162 0.160 495.42 0.9988
1.9630 1.0088 4.80 0.152 0.151 490.24 0.9988
1.9640 1.0007 4.50 0.142 0.142 485.10 0.9988
1.9650 0.9926 4.21 0.133 0.134 480.00 0.9988
1.9660 0.9846 3.95 0.125 0.127 474.94 0.9988
1.9670 0.9766 3.70 0.117 0.120 469.92 0.9988
1.9680 0.9686 3.46 0.110 0.113 464.95 0.9988
1.9690 0.9608 3.24 0.103 0.107 460.01 0.9988
1.9700 0.9529 3.03 0.096 0.101 455.11 0.9988
1.9710 0.9451 2.84 0.090 0.095 450.26 0.9988
1.9720 0.9374 2.66 0.084 0.090 445.44 0.9988
1.9730 0.9297 2.49 0.079 0.085 440.66 0.9988
1.9740 0.9221 2.33 0.074 0.080 435.92 0.9988
1.9750 0.9146 2.18 0.069 0.076 431.22 0.9988
1PAGE 12 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
P=POP I=IC A=IO B=IOPC C=AL N=NR
P 9.1E+8 1.1075E+9 1.305E+9 1.5025E+9 1.7E+9
I 2.1E+9 5.9075E+10 1.1605E+11 1.7303E+11 2.3E+11
A 6.9E+7 1.6802E+10 3.3535E+10 5.0267E+10 6.7E+10
B .075 10.556 21.038 31.519 42
C 4.3E+8 5.475E+8 6.65E+8 7.825E+8 9E+8
N 9.9E+11 9.925E+11 9.95E+11 9.975E+11 1E+12
1900 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .P. I . . .AC AB,CN
. . . . PBA I NC.
. . . A . P N I . IC,AB
T . A . . . P N C I. AB
I . A . . . P I C . IN,AB
M . A . . . P NC . PI,AB
E . A . . . I P CN . AB
. A . . I P CN . AB
. A . . I . P C N . AB
. A . . I . P C N . AB
1910 . . . A . . . . . . . . . . . . . . . . . . . . . . . .I. . . . . . .P. . C . . N . . . . AB
. A . . I . P C N . AB
. A . . I .P C N . AB
. A . .I P. C N . AB
. A . I . P . C N . AB
. AB . I . P .C N .
. A . I . P C N . AB
. A . I . P C. N . AB
. A . I . P C . N . AB
. AB . I . P C . N .
1920 . .A. . . . . . . . . . . . .I. . . . . . . . . . . . . P . C . . . . . . . . .N. . . . . AB
. A . I . P C . N . AB
. A . I . P C . N . AB
. A . I . P C . N . AB
. AB I . P C . N .
. AB I. . P C . N .
. A I . . P C . N . AB
. A I . . P C . N . AB
. A I . . P C . N . AB
. A I . .P C . N . AB
1930 . A . . . . . .I. . . . . . . . . . . . . . P . C . . . . . . . . . . . . . . N . . . . . AB
.AB I . P. C . N .
.AB I . P .C . N .
.AB I . P C . N .
.A I . P C. . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
1940 .A. . .I. . . . . . . . . . . . P . C . . . . . . . . . . . . . . . . . . . . N . . . . . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
.A I . P C . . N . AB
AB I . P C . . N .
AB I . P C . . N .
AB I . P C . . N .
1PAGE 13 WORLD3 - THE DYNAMICS OF GROWTH IN A FINITE WORLD (C) 1978 UND
P=POP I=IC A=IO B=IOPC C=AL N=NR
P 9.1E+8 1.1075E+9 1.305E+9 1.5025E+9 1.7E+9
I 2.1E+9 5.9075E+10 1.1605E+11 1.7303E+11 2.3E+11
A 6.9E+7 1.6802E+10 3.3535E+10 5.0267E+10 6.7E+10
B .075 10.556 21.038 31.519 42
C 4.3E+8 5.475E+8 6.65E+8 7.825E+8 9E+8
N 9.9E+11 9.925E+11 9.95E+11 9.975E+11 1E+12
1950 AB. I . . . . . . . . .P.C. . . . . . . . . . . . . . . . . . . . . . . . . .N. . . . . .
A I PC . . N . AB
A I PC . . N . AB
A I PC. . . N . AB
A I PC . . . N . AB
A I PC . . . N . AB
A I PC . . . N . AB
A I P . . . N . PC,AB
A I P . . . N . PC,AB
A I P . . . N . PC,AB
1960 AI. . . . . . P . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .N. . . . . . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
AI P . . . N . PC,AB
I P . . . N . PC,IAB
1970 I . .P. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .N. . . . . . PC,IAB
I P . . . N . PC,IAB
I P . . . N . PC,IAB
I P . . . N . PC,IAB
IP . . . N . PC,IAB
1975 IP. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .N. . . . . . IABC