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