###                                                                             
###      Headlines                                                              
###      ----------------------------------------------------------             
#
  head 1 "Generation of a sinus function with a frequency of $frequency Hz."


###                                                                             
###      Choose integrator, select start and stop time                          
###      ----------------------------------------------------------             
#
  idebug = 0
  tsim_param= e1
  tstart= 0.  tstop= 4
  tout= 0.010 tstep= 0.010

###                                                                             
###      Create a sine-wave with operlib                                        
###      ----------------------------------------------------------             
#
  func const ampl= 1.
  func const frequency= 2.
#
  func operlib_1 sine_oper.m            # Create a curve with file "sine_oper.m"
                1 sin2                  # Number of outputs and their names
                3 ampl frequency time   # Number of inputs and their names

###                                                                             
###      Filter the sine-wave with operlib                                      
###      ----------------------------------------------------------             
#
  func operlib_1call butter1_1call.m    # Initialize the filter in file butter1.m
#
  func operlib_1 butter1.m              # Filter according to the values defined in "butter1_1call.m"
                 1 sin2_butter1         # Number of outputs and their names
                 1 sin2                 # Number of inputs and their names
#
  s_var sngl sin2
  s_var sngl sin2_butter1
#
  eof