1PAGE 1 TEST OF SMOOTH MACRO (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE TEST OF SMOOTH MACRO
0002 * NARROW
0003 * NOSTATS
0004 C SMTM=.1
0005 A UNSMTH.K=SIN(6.28*TIME.K)
0006 R UNSMTR.KL=UNSMTH.K
0007 EXPND SMOOTH(SMTH,UNSMTR,SMTM)
0008+ L $L11.K=INTGRL(UNSMTR.JK-$R11.JK)
0009+ N $L11=UNSMTR*SMTM
0010+ A SMTH.K=$L11.K/SMTM
0011+ R $R11.KL=SMTH.K
0012+ MEND
0013 PARM DT=.01
0014 PARM START=0
0015 PARM STOP=1
0016 PARM PLTPER=.02
0017 PLOT UNSMTH=U,SMTH=S
1PAGE 2 TEST OF SMOOTH MACRO (C) 1978 UND
U=UNSMTH S=SMTH
SU -1 -.5 0 .5 1
0 . . . . . . . . . . . . . . U . . . . . . . . . . . . . . US
. . S U . .
. . .S U . .
T . . . S U . .
I . . . S U. .
M . . . S . U .
E . . . S . U .
. . . S . U .
. . . S. U .
. . . .S U .
.2 . . . . . . . . . . . . . . . . . . . . . . .S. . . . .U.
. . . . S U
. . . . S U
. . . . S U
. . . . S U
. . . . S U.
. . . . SU .
. . . . U . US
. . . . U S .
. . . . U S .
.4 . . . . . . . . . . . . . . . . . . . . . . U . . S . . .
. . . U S .
. . . U . S .
. . . U . S .
. . . U .S .
. . U S. .
. . U . S . .
. . U . S . .
. . U . S . .
. .U .S . .
.6 . . . . . . U . . . . . . S . . . . . . . . . . . . . . .
. U . S . . .
. U . S . . .
. U . S . . .
. U .S . . .
.U S. . . .
.U S . . . .
U S . . . .
U S . . . .
U S . . . .
.8 .U. .S. . . . . . . . . . . . . . . . . . . . . . . . . .
. US . . . .
. U . . . . US
. S U . . . .
. S U . . . .
. S U . . . .
. S U . . .
. S . U . . .
. S . U . . .
. S. U . . .
1 . . . . . . . .S. . . . . . U . . . . . . . . . . . . . .