Google
 

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