Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-160/res.dat
There are no other files named res.dat in the archive.
TITLE  RESOURCE SECTOR IN NDTRAN VERSION TWO                            00000010
* EULER                                                                 00000050
* CHECK                                                                 00000060
* SYMBOL                                                                00000070
* NOSTATS                                                               00000080
NOTE LIMITS TO GROWTH BY DONELLA MEADOWS ET.AL.                         00000020
NOTE THIS IS THE VERSION USED IN THE TECHNICAL REPORT                   00000030
NOTE LAST REVISED DECEMBER 14, 1972                                     00000040
NOTE                                                                    00000090
L NR.K=INTGRL(-NRUR.JK)                                                 00000100
N NR=NRI                                                                00000110
C NRI=1E12                                                              00000120
R NRUR.KL=(POP.K)(PCRUM.K)(NRUF.K)                                      00000130
A NRUF.K=CLIP(NRUF2,NRUF1,TIME.K,TYEAR)                                 00000140
C NRUF1=1                                                               00000150
C NRUF2=.25                                                             00000160
C TYEAR=2500                                                            00000170
A PCRUM.K=TABHL(PCRUMT,IOPC.K,0,1600,200)                               00000180
T PCRUMT=0,.85,2.6,4.4,5.4,6.2,6.8,7,7                                  00000190
A NRFR.K=NR.K/NRI                                                       00000200
A FCAOR.K=TABHL(FCAORT,NRFR.K,0,1,.1)                                   00000210
T FCAORT=1,.9,.7,.5,.2,.1,.05,.05,.05,.05,.05                           00000220
A POP.K=CLIP(POP2,POP1.K,TIME.K,PYEAR)                                  00000230
A POP1.K=POPI*EXP(GC*(TIME.K-1900))                                     00000240
C POPI=1.65E9                                                           00000250
C GC=.011                                                               00000260
C POP2=3.6E9                                                            00000270
C PYEAR=2500                                                            00000280
A IOPC.K=IO.K/POP.K                                                     00000290
A IO.K=(IC.K)(1-FCAOR.K)/ICOR                                           00000300
C ICOR=3                                                                00000310
L IC.K=INTGRL(ICIR.JK-ICDR.JK)                                          00000320
N IC=ICI                                                                00000330
C ICI=2.1E11                                                            00000340
R ICIR.KL=(IO.K)(1-FIOAA-FIOAS-FIOAC)                                   00000350
C FIOAA=.12                                                             00000360
C FIOAS=.12                                                             00000370
C FIOAC=.43                                                             00000380
R ICDR.KL=IC.K/ALIC                                                     00000390
C ALIC=14                                                               00000400
PARM DT=1                                                               00000410
PARM START=1900                                                         00000420
PARM STOP=2100                                                          00000430
PARM PRTPER=5                                                           00000440
PRINT NRFR,FCAOR,IC,IO,POP                                              00000450
PLOT NRFR(0,*),FCAOR(0,*),IC(0,*),IO(0,*),POP(0,*)                      00000460