I 9 (-0)8062.5*EXP(-0.069047M*4)) 100 TAC( JI=PKW*PKWP(J) CC TO 500 60 DC 200 J=t.21 IF(J.LE.7)0D= IF(J.GT.7 )0=0 s= J- PKP ( J )=(010750*EXP(-0.278099*M)) 1 *( -0D)(206.5XP(-O.028 107*M) ) 200 TAC( J)=lPKk*PKWP(J GC TO 500 70 DC 300 J=1.21 M=J-l PKPI( J )-L0750*EXP(-0.125 37*M) 300 TAC(J)=PK 'PKWP(J) 500 CCNTINU. DC 101 1=1.41 N=I-L PR(2)-PRB*9'R *EXP(TU*N) 101 V.SCZI)=AONPR(Z) 00 102 1=141 PB( I =0.03604*EXP(TU*N 102 TPE(I)=EDIqaoB([) C THE FCLLC'ING SECTION COMPUTES THE NET PRESENT VALUE CP AN INVESTMENT C IN YEAR J. CC 110 J=1.21 K=J+20 DC 120 I=1.K L=J-I Pi(J)=PV(J)+(((I+RI**L)*(VRS(I)+TPE(l))) 120 CONTINUE PV(J)=PV(J)-TAC(J) 110 CONTINUE PR INT 103 108 FCFMAT(2Xl1HJ 6X.4HPKWP.9Xe3HTAC.9X2MHPV) 00 109 J=1.21 109 tRITE(6,11)t J.PKWP(J).TAC(J);PV(J) 111 FC;MAT(2X. 12o IXFIO.22ZX.FOe.2.2XeFIO.2s2X) PRItNT 112 112 FCFMAT(2X. HI e7X2HPR O1Xe.2HPB DO 113 1=1.41 113 w;ITE(6.l14) I. PR(I).PB(I) 114 FCRMATI2Xo.l2.IX.FIt.62XeF10.6) STCP EhO SENTRY GPSM 335.36 EOIR 15509.71 J PKWiD I 13750.( S2 8140.1 3 6163. 4 4667 .4 5 3534.; 6 2670.2 7 2026.! 8 1552.( 9 1494. 10 143. 1 11 13a4.J 12 1332 ( IJ 1232.7 14 123J41 15 11893. 16 1144. , 17 1131 3 . Is8 104U0.2 19 1020. 20 932.4 21 945.7 i PR I 0.0*09C 2 0.0646t J 0.0686< 4 0.07291 t 0.07741 6 .3 1220 7 0.0372; 8 0.026t ) 0 .9134 e,-Pc 32.10 ACN 74355.69 TAC )0 653871.30 3 495125.80 19 374920.10 3 283897.60 2! 214973.60 !4 162782.70 i0 123262.60 )3 ;4402.38 >0 90872.69 4 e7474.94 16 84204.25 60 81035.81 '8 7eo25.13 :1 75107.81 .4 7229~.50 !0 695;6. 19 12 b6;94.00 t4 644-39.12 i9 62077. a .1 59756.77 *0 57522.47 Po 10 0 031040 6. 0.013269 .5 0.040635 0 0.0411413 9 0.0458S16 16 0.043649 >0 0.051657 17 0 054591 9 0*058243 CKW. 23.93 AZ 760.32 PKW TAQ 60.83 89865.44 PV -545163.30 -374333.10 -240 15.50 -135547.70 -51027.31 18108.38 76030 .3J 124364.03 1500C0.60 176951.60 205683.30 236415.10 2693J13.43 304559.70 342346 .0 332682.10 426387.50 473099.80 523274.40 577183.50 635119.40