NewCoeffR

INPUTS: LENGTH(NUMERIC);

VARS: X(0), UPEQ(0), LOWEQ1(0), LOWEQ2(0), LOWEQT(0);



X = BARNUMBER;

UPEQ = SUMMATION(X * CLOSE, LENGTH) - (LENGTH * AVERAGE(X, LENGTH) * AVERAGE(CLOSE, LENGTH));

LOWEQ1 = SUMMATION(SQUARE(X), LENGTH) - (LENGTH * SQUARE(AVERAGE(X, LENGTH)));

LOWEQ2 = SUMMATION(SQUARE(CLOSE), LENGTH) - (LENGTH *SQUARE(AVERAGE(CLOSE, LENGTH)));

IF LOWEQ1 * LOWEQ2 > 0 THEN

	LOWEQT = SQUAREROOT(LOWEQ1 * LOWEQ2);



IF LOWEQT <> 0 THEN

	NEWCOEFFR = UPEQ / LOWEQT;





{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}