#
  page_head 3 = 'Test of percentiles'
#
  STAT sin_c fdsin frsin   Nintvl= 50  ptile= 1 25 50 75 99
  CREATE_SCALAR  new Ptile1    1
  CREATE_SCALAR  new Ptile2   25
  CREATE_SCALAR  new Ptile3   50
  CREATE_SCALAR  new Ptile4   75
  CREATE_SCALAR  new Ptile5   99
#
  PRINT scalar  Ptile1 fdsinP1  Ptile2 fdsinP2  Ptile3 fdsinP3
                Ptile4 fdsinP4  Ptile5 fdsinP5
  FUNC  operp fdsin100= fdsin * 100
# ======================================================================

  PAGE ----------------------------------
   xint/cm=.5
   DIAGRAM 11
    CURVE yvar=sin_c
  EXEC

  PAGE ----------------------------------
   DIAGRAM 11
    CURVE yvar=frsin
  EXEC

  PAGE ----------------------------------
   DIAGRAM 11
    CURVE yvar=fdsin100
    POINT yvar=Ptile1 xvar=fdsinP1
    POINT yvar=Ptile2 xvar=fdsinP2
    POINT yvar=Ptile3 xvar=fdsinP3
    POINT yvar=Ptile4 xvar=fdsinP4
    POINT yvar=Ptile5 xvar=fdsinP5
    POINT_LINE polygon all
  EXEC