1PAGE 1 THE USE OF THE CLIP FUNCTION (C) 1978 UND * * * * * S O U R C E L I S T I N G * * * * * 0001 TITLE THE USE OF THE CLIP FUNCTION 0002 * EULER 0003 * NARROW 0004 * NOSTATS 0005 L LEVEL.K=INTGRL(RATE.JK) 0006 N LEVEL=100 0007 R RATE.KL=LEVEL.K*FERT.K 0008 A FERT.K=CLIP(VALU1,VALU2,TIME.K,YEAR) 0009 C VALU1=.10 0010 C VALU2=.10 0011 C YEAR=10 0012 PARM DT=1 0013 PARM START=0 0014 PARM STOP=20 0015 PARM PRTPER=1 0016 PARM PLTPER=1 0017 PRINT LEVEL,FERT 0018 PRINT LEVEL.2,FERT.2 0019 PRINT LEVEL.* 0020 PLOT LEVEL/FERT 0021 PLOT LEVEL.2=L/FERT.2=F 0022 PLOT LEVEL.* 0023 RERUN 0024 C VALU1=.01 1PAGE 2 THE USE OF THE CLIP FUNCTION (C) 1978 UND TIME LEVEL FERT E+00 E+00 E-03 0.000 100.00 100.00 1.000 110.00 100.00 2.000 121.00 100.00 3.000 133.10 100.00 4.000 146.41 100.00 5.000 161.05 100.00 6.000 177.16 100.00 7.000 194.87 100.00 8.000 214.36 100.00 9.000 235.79 100.00 10.000 259.37 100.00 11.000 285.31 100.00 12.000 313.84 100.00 13.000 345.23 100.00 14.000 379.75 100.00 15.000 417.72 100.00 16.000 459.50 100.00 17.000 505.45 100.00 18.000 555.99 100.00 19.000 611.59 100.00 20.000 672.75 100.00 1PAGE 3 THE USE OF THE CLIP FUNCTION (C) 1978 UND TIME LEVEL.2 FERT.2 E+00 E+00 E-03 0.000 100.00 100.00 1.000 110.00 100.00 2.000 121.00 100.00 3.000 133.10 100.00 4.000 146.41 100.00 5.000 161.05 100.00 6.000 177.16 100.00 7.000 194.87 100.00 8.000 214.36 100.00 9.000 235.79 100.00 10.000 259.37 10.00 11.000 261.97 10.00 12.000 264.59 10.00 13.000 267.23 10.00 14.000 269.91 10.00 15.000 272.60 10.00 16.000 275.33 10.00 17.000 278.08 10.00 18.000 280.87 10.00 19.000 283.67 10.00 20.000 286.51 10.00 1PAGE 4 THE USE OF THE CLIP FUNCTION (C) 1978 UND TIME LEVEL.1 LEVEL.2 0.000 100.00 100.00 1.000 110.00 110.00 2.000 121.00 121.00 3.000 133.10 133.10 4.000 146.41 146.41 5.000 161.05 161.05 6.000 177.16 177.16 7.000 194.87 194.87 8.000 214.36 214.36 9.000 235.79 235.79 10.000 259.37 259.37 11.000 285.31 261.97 12.000 313.84 264.59 13.000 345.23 267.23 14.000 379.75 269.91 15.000 417.72 272.60 16.000 459.50 275.33 17.000 505.45 278.08 18.000 555.99 280.87 19.000 611.59 283.67 20.000 672.75 286.51 1PAGE 5 THE USE OF THE CLIP FUNCTION (C) 1978 UND L=LEVEL F=FERT L 100 245 390 535 680 F .08 .09 .1 .11 .12 0 L . . . . . . . . . . . . . F . . . . . . . . . . . . . . .L . F . . . L . F . . T . L . F . . I . L . F . . M . L . F . . E . L . F . . . L . F . . . L . F . . . L. F . . 10 . . . . . . . .L. . . . . . F . . . . . . . . . . . . . . . . L F . . . . L F . . . . L F . . . . LF . . . . F L . . . . F L . . . . F L . . . . F . L . . . F . L . 20 . . . . . . . . . . . . . . F . . . . . . . . . . . . .L. 1PAGE 6 THE USE OF THE CLIP FUNCTION (C) 1978 UND L=LEVEL.2 F=FERT.2 L 100 147.5 195 242.5 290 F .01 .0325 .055 .0775 .1 0 L . . . . . . . . . . . . . . . . . . . . . . . . . . . F . L . . . F . L . . . F T . L . . . F I . L . . F M . . L . . F E . . L . . F . . L . F . . . L . F . . . L . F 10 F . . . . . . . . . . . . . . . . . . . . . . .L. . . . . F . . . L . F . . . L . F . . . L . F . . . L . F . . . L . F . . . L . F . . . L . F . . . L . F . . . L . 20 F . . . . . . . . . . . . . . . . . . . . . . . . . . .L. 1PAGE 7 THE USE OF THE CLIP FUNCTION (C) 1978 UND 1=LEVEL.1 2=LEVEL.2 21 100 245 390 535 680 0 1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 12 .1 . . . . 12 . 1 . . . . 12 T . 1 . . . . 12 I . 1 . . . . 12 M . 1 . . . . 12 E . 1 . . . . 12 . 1 . . . . 12 . 1 . . . . 12 . 1. . . . 12 10 . . . . . . . .1. . . . . . . . . . . . . . . . . . . . . 12 . . 2 1 . . . . . 2 1 . . . . . 2 1 . . . . . 2 1. . . . . 2 . 1 . . . . 2 . 1 . . . . 2 . 1 . . . . 2 . . 1 . . . 2 . . 1 . 20 . . . . . . . . . 2 . . . . . . . . . . . . . . . . . .1.