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 . . . . . . . . . . . . . .