1PAGE 1 TO TEST OUT FUNCTIONS (C) 1978 UND * * * * * S O U R C E L I S T I N G * * * * * 0001 TITLE TO TEST OUT FUNCTIONS 0002 * NOSTATS 0003 * EULER 0004 * NARROW 0005 L LEVEL.K=INTGRL(RATE.JK) 0006 N LEVEL=0 0007 R RATE.KL=INCEXP.K 0008 S ONE.K=SIN(TIME.K)**2+COS(TIME.K)**2 0009 S TWO.K=RAMP(INCEXP.K,0)-LEVEL.K+2 0010 S THREE.K=PULSE(3,3,3,3)-STEP(3,3)+STEP(3,6)-STEP(3,9)+3 0011 S ABSVAL.K=ABS(SIN(TIME.K)) 0012 S SQROOT.K=SQRT(TIME.K**2) 0013 S LOGTIM.K=LOG(EXP(TIME.K)/10)+LOG(10) 0014 S SAMPLE.K=SAMPLE(TIME.K/10,2.5) 0015 S MAXNO.K=MAX(INCEXP.K,DECEXP.K) 0016 S MINNO.K=MIN(INCEXP.K,DECEXP.K) 0017 S NOISE.K=NOISE(23456789) 0018 S NORMRN.K=NORMRN(23456789,15,12) 0019 S SINTIM.K=SIN(TIME.K) 0020 S ONETWO.K=SWITCH(ON,TW,SINTIM.K) 0021 C ON=1 0022 C TW=2 0023 S CLIP.K=CLIP(ON,TW,SINTIM.K,ABSVAL.K) 0024 A INCEXP.K=10*(1-EXP(-TIME.K/TAU)) 0025 A DECEXP.K=10*EXP(-TIME.K/TAU) 0026 C TAU=5 0027 PARM DT=.25 0028 PARM START=0 0029 PARM STOP=10 0030 PARM PRTPER=.5 0031 PARM PLTPER=.25 0032 PRINT ONE,TWO,THREE 0033 PRINT MAXNO,MINNO,LOGTIM,ABSVAL 0034 PRINT SQROOT,NOISE,NORMRN,ONETWO,CLIP 0035 PLOT MAXNO(0,10),MINNO/ABSVAL(0,1),SAMPLE 1PAGE 2 TO TEST OUT FUNCTIONS (C) 1978 UND TIME ONE TWO THREE 0.000 1.0000 2.0000 3.0000 0.500 1.0000 2.2379 3.0000 1.000 1.0000 2.4532 3.0000 1.500 1.0000 2.6480 3.0000 2.000 1.0000 2.8242 3.0000 2.500 1.0000 2.9837 3.0000 3.000 1.0000 3.1280 3.0000 3.500 1.0000 3.2585 3.0000 4.000 1.0000 3.3767 3.0000 4.500 1.0000 3.4836 3.0000 5.000 1.0000 3.5803 3.0000 5.500 1.0000 3.6678 3.0000 6.000 1.0000 3.7470 3.0000 6.500 1.0000 3.8187 3.0000 7.000 1.0000 3.8835 3.0000 7.500 1.0000 3.9422 3.0000 8.000 1.0000 3.9953 3.0000 8.500 1.0000 4.0433 3.0000 9.000 1.0000 4.0868 3.0000 9.500 1.0000 4.1261 3.0000 10.000 1.0000 4.1617 3.0000 1PAGE 3 TO TEST OUT FUNCTIONS (C) 1978 UND TIME MAXNO MINNO LOGTIM ABSVAL E+00 E+00 E+00 E+00 E-03 0.000 10.000 0.0000 0.000 0.00 0.500 9.048 0.9516 0.500 479.43 1.000 8.187 1.8127 1.000 841.47 1.500 7.408 2.5918 1.500 997.49 2.000 6.703 3.2968 2.000 909.30 2.500 6.065 3.9347 2.500 598.47 3.000 5.488 4.5119 3.000 141.12 3.500 5.034 4.9659 3.500 350.78 4.000 5.507 4.4933 4.000 756.80 4.500 5.934 4.0657 4.500 977.53 5.000 6.321 3.6788 5.000 958.92 5.500 6.671 3.3287 5.500 705.54 6.000 6.988 3.0119 6.000 279.42 6.500 7.275 2.7253 6.500 215.12 7.000 7.534 2.4660 7.000 656.99 7.500 7.769 2.2313 7.500 938.00 8.000 7.981 2.0190 8.000 989.36 8.500 8.173 1.8268 8.500 798.49 9.000 8.347 1.6530 9.000 412.12 9.500 8.504 1.4957 9.500 75.15 10.000 8.647 1.3534 10.000 544.02 1PAGE 4 TO TEST OUT FUNCTIONS (C) 1978 UND TIME SQROOT NOISE NORMRN ONETWO CLIP E+00 E+00 E-03 E+00 E+00 E+00 0.000 0.000 882.57 12.110 2.0000 1.0000 0.500 0.500 630.62 17.388 1.0000 1.0000 1.000 1.000 863.04 13.092 1.0000 1.0000 1.500 1.500 454.83 13.478 1.0000 1.0000 2.000 2.000 281.01 4.151 1.0000 1.0000 2.500 2.500 216.55 -.884 1.0000 1.0000 3.000 3.000 136.47 -.578 1.0000 1.0000 3.500 3.500 915.77 10.172 2.0000 2.0000 4.000 4.000 429.44 12.466 2.0000 2.0000 4.500 4.500 552.49 16.323 2.0000 2.0000 5.000 5.000 159.91 -.147 2.0000 2.0000 5.500 5.500 126.71 -.638 2.0000 2.0000 6.000 6.000 327.88 7.242 2.0000 2.0000 6.500 6.500 638.43 17.433 1.0000 1.0000 7.000 7.000 933.35 9.001 1.0000 1.0000 7.500 7.500 87.65 -14.167 1.0000 1.0000 8.000 8.000 976.32 5.687 1.0000 1.0000 8.500 8.500 474.37 14.180 1.0000 1.0000 9.000 9.000 456.79 13.551 1.0000 1.0000 9.500 9.500 798.58 15.570 2.0000 2.0000 10.000 10.000 374.76 9.893 2.0000 2.0000 1PAGE 5 TO TEST OUT FUNCTIONS (C) 1978 UND M=MAXNO A=MINNO B=ABSVAL S=SAMPLE AM 0 2.5 5 7.5 10 SB 0 .25 .5 .75 1 0 A . . . . . . . . . . . . . . . . . . . . . . . . . . . M ABS S A B . . M . S A . B. . M . T S A . . B . M . I S A . . . MB . M S A . . . M B . E S .A . M. B S . A . M . B. S . A . M . B . S . A . M . B . 2.5 S . . . . . . . . . . A . . . . . M . . . . . . . . . . . MB S . B A . M . . . B . S A . M . . . B . S A.M . . . . S B M . . MA . . S A . M B . . . . S A . M B . . . S A . M . B . . . S A . M . B. . . S A . M . B 5 . . . . . . . . .S. .A. . . . . . .M. . . . . . . . . B . . . S A . M . B . . . A . S M B . . . . A B S M . . . . BA . S M . . . B . A . S M . . . B .A . S M. . . .A B . S M. . . A . S B M . . A. . S .M B . 7.5 . . . . . . A . . . . . . . . .S. . . . . . M . . . .B. . . A . . S . M B . A . . . M B. MS . A . . . M B . MS . A . . . BM . BS . A . . B . SM . . A . B . . S M . . AB . . . S M . . B A . . . S M . . A . B . . S M . 10 . . . . A . . . . . . . . . . B . . . . . . .S. M . . . .