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