home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / NRPAS13 / AVEVAR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  478b  |  22 lines
  1. PROCEDURE avevar(data: glnparray; n: integer; VAR ave,svar: real);
  2. (* Programs using routine AVEVAR must define type
  3. TYPE
  4.    glnparray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. VAR
  7.    j: integer;
  8.    s: real;
  9. BEGIN
  10.    ave := 0.0;
  11.    svar := 0.0;
  12.    FOR j := 1 TO n DO BEGIN
  13.       ave := ave+data[j];
  14.    END;
  15.    ave := ave/n;
  16.    FOR j := 1 TO n DO BEGIN
  17.       s := data[j]-ave;
  18.       svar := svar+s*s
  19.    END;
  20.    svar := svar/(n-1)
  21. END;
  22.