##
##	Input data file for program MPLOT evaluating continuous Ride Comfort
##	--------------------------------------------------------------------
 TRANS  sinv    ISOsin1  ISO8041L			# Filter the signal
#
 CREATE_SCALAR curve_vmax t_max time			# Pick up simulation time
 CREATE_SCALAR new        t_inc  2.
 CREATE_SCALAR new        time0 -t_inc			# Calculate interval for
 CREATE_SCALAR new        time1  0.			# Ride Comfort evaluation
#
 LOOP  # -----------------------------------------------------------------------
  no_warning func add time0= time0 t_inc
  no_warning func add time1= time1 t_inc
#
  no_warning STAT ISOsin1 Tstart= time0 time1		# Calculate Ride Comfort
#
  create_curve append_sngl ISO_xax values= time1	# Store the Ride Comfort
  create_curve append_sngl ISO_yax ISO_xax              # scalars in a vector
                           values= ISOsin1RMS
 UNTIL time1 .ge. t_max
## =============================================================================

 PAGE
  page_head 3 Continuous evaluation of ride comfort according to ISO8041L

  DIAGRAM 11
    CURVE yvar=sin1

  DIAGRAM 21
    x_left= 0
    CURVE yvar=ISO_yax
 EXEC