CREATE_SCALAR curve_vmax t_max time
 CREATE_SCALAR new        t_inc  1.
 CREATE_SCALAR new        t_wz0 -t_inc
 CREATE_SCALAR new        t_wz1  0.

##
##  Calculate Ride Index Wz for every interval t_inc until t_max
##
 LOOP
  no_warning func add t_wz0= t_wz0 t_inc
  no_warning func add t_wz1= t_wz1 t_inc
  no_warning ftwz sin1 ityp=lpv tstart=t_wz0 tstop=t_wz1 wzscal=wz_value
  create_curve append_sngl wz_xax        values= t_wz1
  create_curve append_sngl wz_yax wz_xax values= wz_value
 UNTIL t_wz1 .ge. t_max

## ============================================================

 PAGE
  page_head 3 Continuously calculation of Ride Index according to Wz

  DIAGRAM 11
    CURVE yvar=sin1

  DIAGRAM 21
    x_left= 0
    CURVE yvar=wz_yax
 EXEC