TITLE TEST OF SMOOTH MACRO 00000010 * NARROW 00000020 * NOSTATS 00000030 C SMTM=.1 00000040 A UNSMTH.K=SIN(6.28*TIME.K) 00000050 R UNSMTR.KL=UNSMTH.K 00000060 EXPND SMOOTH(SMTH,UNSMTR,SMTM) 00000070 PARM DT=.01 00000080 PARM START=0 00000090 PARM STOP=1 00000100 PARM PLTPER=.02 00000110 PLOT UNSMTH=U,SMTH=S 00000120