JRT Pascal  User's Guide                         NOT FOR SALE   -176-



      D.   JSTAT


           JSTAT  is  an  external  procedure  which can be used to compute
      several basic statistics given an array of real numbers as input.  It
      computes the arithmetic mean, standard deviation, variance, skewness,
      kurtosis and the first four moments about the mean.

           The source code for JSTAT is provided on the  distribution  disk
      and  may be modified as necessary.  The procedure is restricted to an
      array of 1000 real  numbers,  but  this  can  be  easily  changed  by
      modifying   the   declaration   of  the  data  type  jstat_array  and
      recompiling the procedure.

           While jstat_array is declared as a 1000 element  array,  a  much
      smaller  array  may  be  used to hold the data values since the input
      array is used as a referenced parameter.

           JSTAT (in its distributed form) requires three parameters:

            n - number of data items in the input array

            x - array of up to 1000 real numbers

            r - output record containing computed statistic


           The following type declarations and  procedure  declaration  are
      required in the calling Pascal program:

            TYPE
            JSTAT_INTERFACE =
                  RECORD
                  MEAN, STANDARD_DEVIATION,
ceNy
Fs s s s s s s s s s s s s s s s i erI a calu
enohr Mte eIN l,
 s ot Sf _ls s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s s sesyiDF
t lrVAR R  : JSTAT_INTERFACE );
                        EXTERN;
















      Copy compliments of Merle Schnick                 APPENDIX D:   JSTAT


                             VAR X  : JSTAT_ARRAY;
                             VAR R  : JSTAT_INTERFACE );
                        EXTE          PROCEDURE LETTERS ( INPUT_STRIN