Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/res.lst
There are no other files named res.lst in the archive.
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