#
  head 1 Generation of sine waves for testing different filters in MPLOT.
#
  tsim_param= e1  tstart=0.  tstop=16.  tout=.005  tstep=.005
#
  func   mul      timepi   time 6.28318531
#
  func   mul      dist.04    timepi .04
  func   cos     csin.04     dist.04 
  func   mul      sin.04    -csin.04   -1
  func   mul      sin_2_.04 -csin.04   -2
#
  func   mul      dist.08    timepi .08
  func   cos     csin.08     dist.08 
  func   mul      sin.08    -csin.08   -1
  func   mul      sin_2_.08 -csin.08   -2
#
  func   mul      dist.1     timepi .1
  func   cos     csin.1      dist.1
  func   mul      sin.1     -csin.1   -1
  func   mul      sin_2_.1  -csin.1   -2
#
  func   mul      dist.16    timepi .16
  func   cos     csin.16     dist.16 
  func   mul      sin.16    -csin.16   -1
  func   mul      sin_2_.16 -csin.16   -2
#
  func   mul      dist.25    timepi .25
  func   cos     csin.25     dist.25
  func   mul      sin.25    -csin.25  -1
  func   mul      sin_2_.25 -csin.25  -2
#
  func   mul      dist.315    timepi .316228
  func   cos     csin.315     dist.315
  func   mul      sin.315    -csin.315 -1
  func   mul      sin_2_.315 -csin.315 -2
#
  func   mul      dist.5     timepi .5
  func   cos     csin.5      dist.5
  func   mul      sin.5     -csin.5   -1
  func   mul      sin_2_.5  -csin.5   -2
#
  func   mul      dist.63    timepi .6309573
  func   cos     csin.63     dist.63
  func   mul      sin.63    -csin.63  -1
  func   mul      sin_2_.63 -csin.63  -2
#
  func   mul      dist1      timepi 1.
  func   cos     csin1       dist1
  func   mul      sin1      -csin1    -1
  func   mul      sin_2_1   -csin1    -2
#
  func   mul      dist2      timepi 2.
  func   cos     csin2       dist2
  func   mul      sin2      -csin2    -1
  func   mul      sin_2_2   -csin2    -2
#
  func   mul      dist4      timepi 4.
  func   cos     csin4       dist4
  func   mul      sin4      -csin4    -1
  func   mul      sin_2_4   -csin4    -2
#
  func   mul      dist8      timepi 8
  func   cos     csin8       dist8
  func   mul      sin8      -csin8    -1
  func   mul      sin_2_8   -csin8    -2
#
  func   mul      dist16     timepi 16
  func   cos     csin16      dist16
  func   mul      sin16     -csin16   -1
  func   mul      sin_2_16  -csin16   -2
#
  func oper sin_c= sin.25 - sin.5 + sin1 - sin2 + sin4 - sin8 + sin16
#
  s_var sngl sin.04	s_var sngl sin.08
  s_var sngl sin.1	s_var sngl sin.16
  s_var sngl sin.25     s_var sngl sin.315
  s_var sngl sin.5      s_var sngl sin.63
  s_var sngl sin1
  s_var sngl sin2
  s_var sngl sin4
  s_var sngl sin8
  s_var sngl sin16
#
  s_var sngl sin_2_.04	s_var sngl sin_2_.08
  s_var sngl sin_2_.1	s_var sngl sin_2_.16
  s_var sngl sin_2_.25  s_var sngl sin_2_.315
  s_var sngl sin_2_.5   s_var sngl sin_2_.63
  s_var sngl sin_2_1
  s_var sngl sin_2_2
  s_var sngl sin_2_4
  s_var sngl sin_2_8
  s_var sngl sin_2_16
#
  s_var sngl sin_c
#
  eof