home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / mnandvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  372 b   |  20 lines
  1.  
  2. PROCEDURE MNANDVAR(VAR A:DATA_ARRAY;
  3.                N:INTEGER;
  4.            VAR VARIANCE,MEAN : REAL);
  5.         
  6.           VAR     SUMNSQD: REAL;
  7.                      SUMN: REAL;
  8.                         I: INTEGER;
  9.  
  10. BEGIN
  11.  SUMNSQD:=0;
  12.  SUMN:=0;
  13.  FOR I:=1 TO N DO BEGIN
  14.    SUMN:=SUMN+A[I];
  15.    SUMNSQD:=SUMNSQD+SQR(A[I]);
  16.    END;  
  17.  VARIANCE:=(SUMNSQD-(SQR(SUMN)/N))/(N-1);
  18.  MEAN:=SUMN/N;
  19. END;
  20.