1PAGE 1 RESOURCE SECTOR IN NDTRAN VERSION TWO (C) 1978 UND * * * * * S O U R C E L I S T I N G * * * * * 0001 TITLE RESOURCE SECTOR IN NDTRAN VERSION TWO 00000010 0002 * EULER 00000050 0003 * CHECK 00000060 0004 * SYMBOL 00000070 0005 * NOSTATS 00000080 0006 NOTE LIMITS TO GROWTH BY DONELLA MEADOWS ET.AL. 00000020 0007 NOTE THIS IS THE VERSION USED IN THE TECHNICAL REPORT 00000030 0008 NOTE LAST REVISED DECEMBER 14, 1972 00000040 0009 NOTE 00000090 0010 L NR.K=INTGRL(-NRUR.JK) 00000100 0011 N NR=NRI 00000110 0012 C NRI=1E12 00000120 0013 R NRUR.KL=(POP.K)(PCRUM.K)(NRUF.K) 00000130 0014 A NRUF.K=CLIP(NRUF2,NRUF1,TIME.K,TYEAR) 00000140 0015 C NRUF1=1 00000150 0016 C NRUF2=.25 00000160 0017 C TYEAR=2500 00000170 0018 A PCRUM.K=TABHL(PCRUMT,IOPC.K,0,1600,200) 00000180 0019 T PCRUMT=0,.85,2.6,4.4,5.4,6.2,6.8,7,7 00000190 0020 A NRFR.K=NR.K/NRI 00000200 0021 A FCAOR.K=TABHL(FCAORT,NRFR.K,0,1,.1) 00000210 0022 T FCAORT=1,.9,.7,.5,.2,.1,.05,.05,.05,.05,.05 00000220 0023 A POP.K=CLIP(POP2,POP1.K,TIME.K,PYEAR) 00000230 0024 A POP1.K=POPI*EXP(GC*(TIME.K-1900)) 00000240 0025 C POPI=1.65E9 00000250 0026 C GC=.011 00000260 0027 C POP2=3.6E9 00000270 0028 C PYEAR=2500 00000280 0029 A IOPC.K=IO.K/POP.K 00000290 0030 A IO.K=(IC.K)(1-FCAOR.K)/ICOR 00000300 0031 C ICOR=3 00000310 0032 L IC.K=INTGRL(ICIR.JK-ICDR.JK) 00000320 0033 N IC=ICI 00000330 0034 C ICI=2.1E11 00000340 0035 R ICIR.KL=(IO.K)(1-FIOAA-FIOAS-FIOAC) 00000350 0036 C FIOAA=.12 00000360 0037 C FIOAS=.12 00000370 0038 C FIOAC=.43 00000380 0039 R ICDR.KL=IC.K/ALIC 00000390 0040 C ALIC=14 00000400 0041 PARM DT=1 00000410 0042 PARM START=1900 00000420 0043 PARM STOP=2100 00000430 0044 PARM PRTPER=5 00000440 0045 PRINT NRFR,FCAOR,IC,IO,POP 00000450 0046 PLOT NRFR(0,*),FCAOR(0,*),IC(0,*),IO(0,*),POP(0,*) 00000460 $ $ $ $ 1) ***** E R R O R ***** ND0716 2) ***** E R R O R ***** ND0716 3) ***** E R R O R ***** ND0716 4) ***** E R R O R ***** ND0716 1PAGE 2 RESOURCE SECTOR IN NDTRAN VERSION TWO (C) 1978 UND * * * * * * S Y M B O L T A B L E * * * * * * VARIABLE NAME VARIABLE TYPE OUTPUT REQUEST VARIABLE NUMBER ALIC CONSTANT 64 DT PARAMETER 11 FCAOR AUXILIARY PRINT AND PLOT 41 FCAORT TABLE 42 FIOAA CONSTANT 61 FIOAC CONSTANT 63 FIOAS CONSTANT 62 GC CONSTANT 47 IC LEVEL PRINT AND PLOT 49 ICDR RATE 52 ICI CONSTANT 60 ICIR RATE 51 ICOR CONSTANT 50 IO AUXILIARY PRINT AND PLOT 48 IOPC AUXILIARY 39 NR LEVEL 22 NRFR AUXILIARY PRINT AND PLOT 40 NRI CONSTANT 31 NRUF AUXILIARY 34 NRUF1 CONSTANT 36 NRUF2 CONSTANT 35 NRUR RATE 23 PCRUM AUXILIARY 33 PCRUMT TABLE 38 PLTPER PARAMETER 16 POP AUXILIARY PRINT AND PLOT 32 POPI CONSTANT 46 POP1 AUXILIARY 44 POP2 CONSTANT 43 PRTPER PARAMETER 15 PYEAR CONSTANT 45 START PARAMETER 14 STOP PARAMETER 13 TIME LEVEL 12 TYEAR CONSTANT 37 1PAGE 3 RESOURCE SECTOR IN NDTRAN VERSION TWO (C) 1978 UND TIME NRFR FCAOR IC IO POP E+03 E+00 E-03 E+12 E+12 E+09 1.9000 1.0000 50.00 0.210 0.0665 1.650 1.9050 0.9985 50.00 0.247 0.0782 1.743 1.9100 0.9967 50.00 0.291 0.0921 1.842 1.9150 0.9946 50.00 0.342 0.1083 1.946 1.9200 0.9922 50.00 0.403 0.1275 2.056 1.9250 0.9893 50.00 0.474 0.1500 2.172 1.9300 0.9859 50.00 0.557 0.1765 2.295 1.9350 0.9819 50.00 0.656 0.2077 2.425 1.9400 0.9771 50.00 0.772 0.2444 2.562 1.9450 0.9716 50.00 0.908 0.2875 2.707 1.9500 0.9651 50.00 1.068 0.3383 2.860 1.9550 0.9574 50.00 1.257 0.3981 3.022 1.9600 0.9483 50.00 1.479 0.4684 3.192 1.9650 0.9377 50.00 1.741 0.5512 3.373 1.9700 0.9252 50.00 2.048 0.6486 3.564 1.9750 0.9105 50.00 2.410 0.7631 3.765 1.9800 0.8921 50.00 2.836 0.8979 3.978 1.9850 0.8685 50.00 3.337 1.0566 4.203 1.9900 0.8384 50.00 3.926 1.2432 4.441 1.9950 0.8007 50.00 4.620 1.4629 4.692 2.0000 0.7539 50.00 5.436 1.7213 4.957 2.0050 0.6963 50.00 6.396 2.0254 5.237 2.0100 0.6257 50.00 7.526 2.3832 5.533 2.0150 0.5403 79.83 8.821 2.7057 5.846 2.0200 0.4448 155.24 10.085 2.8398 6.177 2.0250 0.3525 342.39 10.882 2.3855 6.526 2.0300 0.2917 516.56 10.451 1.6842 6.895 2.0350 0.2567 586.58 9.368 1.2910 7.285 2.0400 0.2320 636.00 8.118 0.9849 7.697 2.0450 0.2132 673.59 6.859 0.7463 8.132 2.0500 0.1990 702.05 5.685 0.5646 8.592 2.0550 0.1882 723.59 4.644 0.4279 9.077 2.0600 0.1800 739.93 3.751 0.3252 9.591 2.0650 0.1738 752.36 3.005 0.2481 10.133 2.0700 0.1691 761.86 2.392 0.1899 10.706 2.0750 0.1654 769.14 1.894 0.1458 11.311 2.0800 0.1626 774.73 1.495 0.1122 11.951 2.0850 0.1605 779.04 1.176 0.0866 12.626 2.0900 0.1588 782.37 0.923 0.0670 13.340 2.0950 0.1575 784.95 0.723 0.0518 14.094 2.1000 0.1565 786.94 0.566 0.0402 14.891