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.