Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/funct.dat
There are no other files named funct.dat in the archive.
TITLE TO TEST OUT FUNCTIONS 00000010
* NOSTATS 00000020
* EULER 00000030
* NARROW 00000040
L LEVEL.K=INTGRL(RATE.JK) 00000050
N LEVEL=0 00000060
R RATE.KL=INCEXP.K 00000070
S ONE.K=SIN(TIME.K)**2+COS(TIME.K)**2 00000080
S TWO.K=RAMP(INCEXP.K,0)-LEVEL.K+2 00000090
S THREE.K=PULSE(3,3,3,3)-STEP(3,3)+STEP(3,6)-STEP(3,9)+3 00000094
S ABSVAL.K=ABS(SIN(TIME.K)) 00000100
S SQROOT.K=SQRT(TIME.K**2) 00000110
S LOGTIM.K=LOG(EXP(TIME.K)/10)+LOG(10) 00000120
S SAMPLE.K=SAMPLE(TIME.K/10,2.5) 00000130
S MAXNO.K=MAX(INCEXP.K,DECEXP.K) 00000140
S MINNO.K=MIN(INCEXP.K,DECEXP.K) 00000150
S NOISE.K=NOISE(23456789) 00000160
S NORMRN.K=NORMRN(23456789,15,12) 00000170
S SINTIM.K=SIN(TIME.K) 00000180
S ONETWO.K=SWITCH(ON,TW,SINTIM.K) 00000190
C ON=1 00000200
C TW=2 00000210
S CLIP.K=CLIP(ON,TW,SINTIM.K,ABSVAL.K) 00000220
A INCEXP.K=10*(1-EXP(-TIME.K/TAU)) 00000230
A DECEXP.K=10*EXP(-TIME.K/TAU) 00000240
C TAU=5 00000250
PARM DT=.25 00000260
PARM START=0 00000270
PARM STOP=10 00000280
PARM PRTPER=.5 00000290
PARM PLTPER=.25 00000300
PRINT ONE,TWO,THREE 00000305
PRINT MAXNO,MINNO,LOGTIM,ABSVAL 00000306
PRINT SQROOT,NOISE,NORMRN,ONETWO,CLIP 00000307
PLOT MAXNO(0,10),MINNO/ABSVAL(0,1),SAMPLE 00000310