home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST324.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1005 b   |  47 lines
  1. ********************
  2.             
  3. FUNCTION Aaverage
  4.  
  5.    PARAMETER _warray, _begin, _end
  6.  
  7.    PRIVATE _totnum, _qaz, _totcount
  8.  
  9.    IF PCOUNT() = 1
  10.       IF TYPE("_warray") != "A"
  11.          RETURN(0)
  12.       ENDIF
  13.       _begin = 1
  14.       _end = LEN(_warray)
  15.    ELSEIF PCOUNT() = 2
  16.       IF TYPE("_warray") != "A"
  17.          RETURN(0)
  18.       ENDIF
  19.       _end = LEN(_warray)
  20.    ELSEIF EMPTY(PCOUNT())
  21.       RETURN(0)
  22.    ENDIF
  23.    
  24.    IF TYPE("_warray") + TYPE("_begin") + TYPE("_end") != "ANN" 
  25.       RETURN(0)
  26.    ENDIF
  27.  
  28.    _end   = IF((_end > LEN(_warray)), LEN(_warray), _end)
  29.    _begin = IF((_begin > _end .OR. _begin > LEN(_warray) .OR. _begin < 1), 1, _begin)
  30.  
  31.    _totnum = 0
  32.    _totcount = 0
  33.  
  34.    FOR _qaz = _begin TO _end
  35.       IF TYPE("_warray[_qaz]") = "N"      
  36.          _totnum = _totnum + _warray[_qaz]
  37.          _totcount = _totcount + 1
  38.       ENDIF
  39.    NEXT
  40.    IF _totcount = 0
  41.       RETURN(0)
  42.    ELSE
  43.       RETURN(_totnum / _totcount)
  44.    ENDIF
  45.  
  46. * End of File
  47.