Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0026/meanq.doc
There are 2 other files named meanq.doc in the archive. Click here to see a list.
SUBROUTINE MEANQ

PURPOSE
   COMPUTE SUM OF SQUARES, DEGREES OF FREEDOM, AND MEAN SQUARE
   USING THE MEAN SQUARE OPERATOR.  THIS SUBROUTINE NORMALLY
   FOLLOWS CALLS TO AVDAT AND AVCAL SUBROUTINES IN THE PER-
   FORMANCE OF ANALYSIS OF VARIANCE FOR A COMPLETE FACTORIAL
   DESIGN.

USAGE
   CALL MEANQ (K,LEVEL,X,GMEAN,SUMSQ,NDF,SMEAN,MSTEP,KOUNT,
		LASTS)

DESCRIPTION OF PARAMETERS
   K	 - NUMBER OF VARIABLES (FACTORS). K MUST BE .GT. ONE.
   LEVEL - INPUT VECTOR OF LENGTH K CONTAINING LEVELS (CATE-
	   GORIES) WITHIN EACH VARIABLE.
   X	 - INPUT VECTOR CONTAINING THE RESULT OF THE SIGMA AND
	   DELTA OPERATORS. THE LENGTH OF X IS
	   (LEVEL(1)+1)*(LEVEL(2)+1)*...*(LEVEL(K)+1).
   GMEAN - OUTPUT VARIABLE CONTAINING GRAND MEAN.
   SUMSQ - OUTPUT VECTOR CONTAINING SUMS OF SQUARES.  THE
	   LENGTH OF SUMSQ IS 2 TO THE K-TH POWER MINUS ONE,
	   (2**K)-1.
   NDF	 - OUTPUT VECTOR CONTAINING DEGREES OF FREEDOM.  THE
	   LENGTH OF NDF IS 2 TO THE K-TH POWER MINUS ONE,
	   (2**K)-1.
   SMEAN - OUTPUT VECTOR CONTAINING MEAN SQUARES.  THE
	   LENGTH OF SMEAN IS 2 TO THE K-TH POWER MINUS ONE,
	   (2**K)-1.
   MSTEP - WORKING VECTOR OF LENGTH K.
   KOUNT - WORKING VECTOR OF LENGTH K.
   LASTS - WORKING VECTOR OF LENGTH K.

REMARKS
   THIS SUBROUTINE MUST FOLLOW SUBROUTINE AVCAL

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   NONE

METHOD
   THE METHOD IS BASED ON THE TECHNIQUE DISCUSSED BY H. O.
   HARTLEY IN 'MATHEMATICAL METHODS FOR DIGITAL COMPUTERS',
   EDITED BY A. RALSTON AND H. WILF, JOHN WILEY AND SONS,
   1962, CHAPTER 20.