TITLE THE USE OF THE CLIP FUNCTION                                      00000010
* EULER                                                                 00000020
* NARROW                                                                00000030
* NOSTATS                                                               00000040
L LEVEL.K=INTGRL(RATE.JK)                                               00000050
N LEVEL=100                                                             00000060
R RATE.KL=LEVEL.K*FERT.K                                                00000070
A FERT.K=CLIP(VALU1,VALU2,TIME.K,YEAR)                                  00000080
C VALU1=.10                                                             00000090
C VALU2=.10                                                             00000100
C YEAR=10                                                               00000110
PARM DT=1                                                               00000120
PARM START=0                                                            00000130
PARM STOP=20                                                            00000140
PARM PRTPER=1                                                           00000150
PARM PLTPER=1                                                           00000160
PRINT LEVEL,FERT                                                        00000170
PRINT LEVEL.2,FERT.2                                                    00000180
PRINT LEVEL.*                                                           00000185
PLOT LEVEL/FERT                                                         00000190
PLOT LEVEL.2=L/FERT.2=F                                                 00000200
PLOT LEVEL.*                                                            00000205
RERUN                                                                   00000210
C VALU1=.01                                                             00000220