Google
 

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