Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/clip.dat
There are no other files named clip.dat in the archive.
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