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