Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/capital.dat
There are no other files named capital.dat in the archive.
TITLE CAPITAL SECTOR IN NDTRAN VERSION TWO 00000010
* CHECK 00000050
* EULER 00000060
* SYMBOL 00000070
* NOSOURCE 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, L972 00000040
NOTE 00000090
NOTE INDUSTRIAL SUBSECTOR 00000100
NOTE 00000110
A IOPC.K=IO.K/POP.K 00000120
A IO.K=((IC.K)(1-FCAOR.K)(CUF.K))/ICOR.K 00000130
A ICOR.K=CLIP(ICOR2,ICOR1,TIME.K,PYEAR) 00000140
C ICOR1=3 00000150
C ICOR2=3 00000160
L IC.K=INTGRL(ICIR.JK-ICDR.JK) 00000170
N IC=ICI 00000180
C ICI=2.1E11 00000190
R ICDR.KL=IC.K/ALIC.K 00000200
A ALIC.K=CLIP(ALIC2,ALIC1,TIME.K,PYEAR) 00000210
C ALIC1=14 00000220
C ALIC2=14 00000230
R ICIR.KL=(IO.K)(FIOAI.K) 00000240
A FIOAI.K=(1-FIOAA.K-FIOAS.K-FIOAC.K) 00000250
A FIOAC.K=CLIP(FIOACV.K,FIOACC.K,TIME.K,IET) 00000260
C IET=4000 00000270
A FIOACC.K=CLIP(FIOAC2,FIOAC1,TIME.K,PYEAR) 00000280
C FIOAC1=.43 00000290
C FIOAC2=.43 00000300
A FIOACV.K=TABHL(FIOT,IOPC.K/IOPCD,0,2,.2) 00000310
T FIOT=.3,.32,.34,.36,.38,.43,.73,.77,.81,.82,.83 00000320
C IOPCD=400 00000330
NOTE 00000340
NOTE SERVICE SUBSECTOR 00000350
NOTE 00000360
A ISOPC.K=CLIP(ISOPC2.K,ISOPC1.K,TIME.K,PYEAR) 00000370
A ISOPC1.K=TABHL(IS1T,IOPC.K,0,1600,200) 00000380
T IS1T=40,300,640,1000,1220,1450,1650,1800,2000 00000390
A ISOPC2.K=TABHL(IS2T,IOPC.K,0,1600,200) 00000400
T IS2T=40,300,640,1000,1220,1450,1650,1800,2000 00000410
A FIOAS.K=CLIP(FIOAS2.K,FIOAS1.K,TIME.K,PYEAR) 00000420
A FIOAS1.K=TABHL(FIO1T,SOPC.K/ISOPC.K,0,2,.5) 00000430
T FIO1T=.3,.2,.1,.05,0 00000440
A FIOAS2.K=TABHL(FIO2T,SOPC.K/ISOPC.K,0,2,.5) 00000450
T FIO2T=.3,.2,.1,.05,0 00000460
R SCIR.KL=(IO.K)(FIOAS.K) 00000470
L SC.K=INTGRL(SCIR.JK-SCDR.JK) 00000480
N SC=SCI 00000490
C SCI=1.44E11 00000500
R SCDR.KL=SC.K/ALSC.K 00000510
A ALSC.K=CLIP(ALSC2,ALSC1,TIME.K,PYEAR) 00000520
C ALSC1=20 00000530
C ALSC2=20 00000540
A SO.K=(SC.K)(CUF.K)/SCOR.K 00000550
A SCOR.K=CLIP(SCOR2,SCOR1,TIME.K,PYEAR) 00000560
C SCOR1=1 00000570
C SCOR2=1 00000580
A SOPC.K=SO.K/POP.K 00000590
NOTE 00000600
NOTE JOB SUBSECTOR 00000610
NOTE 00000620
A PJIS.K=(IC.K)(JPICU.K) 00000630
A JPICU.K=(TABHL(JPICUT,IOPC.K,50,800,150))(1E-3) 00000640
T JPICUT=.37,.18,.12,.09,.07,.06 00000650
A JPH.K=TABHL(JPHT,AIPH.K,2,30,4) 00000660
T JPHT=2,.5,.4,.3,.27,.24,.2,.2 00000670
A PJAS.K=(JPH.K)(AL.K) 00000680
A PJSS.K=(SC.K)(JPSCU.K) 00000690
A JPSCU.K=(TABHL(JPSCUT,SOPC.K,50,800,150))(1E-3) 00000700
T JPSCUT=1.1,.6,.35,.2,.15,.15 00000710
C LFPF=.75 00000720
A LF.K=(P2.K+P3.K)*LFPF 00000730
A J.K=PJIS.K+PJAS.K+PJSS.K 00000740
R LUF.KL=J.K/LF.K 00000750
EXPND SMOOTH(LUFD,LUF,LUFDT) 00000760
C LUFDT=2 00000770
A CUF.K=TABHL(CUFT,LUFD.K,1,11,2) 00000780
T CUFT=1,.9,.7,.3,.1,.1 00000790
N CUF=1 00000800
NOTE 00000810
NOTE EXOGENOUS INPUTS TO THE CAPITAL SECTOR 00000820
NOTE 00000830
A AIPH.K=TABHL(AIPHT,TIME.K,1900,2100,20) 00000840
T AIPHT=5,11,21,34,58,86,123,61,23,8,3 00000850
A AL.K=(TABHL(ALT,TIME.K,1900,2100,20))(1E8) 00000860
T ALT=9,10,11,13,16,20,23,24,24,24,24 00000870
A POP.K=(TABHL(POPT,TIME.K,1900,2000,10))(1E9) 00000880
T POPT=1.65,1.73,1.8,2.1,2.3,2.55,3,3.65,4,4.6,5.15 00000890
C PYEAR=4000 00000900
A FCAOR.K=TABHL(FCAORT,TIME.K,1900,2000,10) 00000910
T FCAORT=.05,.05,.05,.05,.05,.05,.05,.05,.05,.05,.05 00000920
A FIOAA.K=TABHL(FIOAAT,TIME.K,1900,2000,10) 00000930
T FIOAAT=.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1 00000940
A P2.K=.25*POP.K 00000950
A P3.K=.25*POP.K 00000960
NOTE 00000970
NOTE CONTROL CARDS 00000980
NOTE 00000990
PARM DT=1 00001000
PARM START=1900 00001010
PARM STOP=2100 00001020
PARM PRTPER=5 00001030
PRINT IOPC,SOPC,IO,FIOAS,CUF 00001040