TroughDivergence

INPUTS: STRENGTH(NUMERICSIMPLE), OSC(NUMERICSERIES);

VARS:  IC(0), IH(0), IP(0), IL(0), LC(0), LP(0), LH(0), LL(0);



VALUE1=SWINGLOW(1,LOW,STRENGTH,STRENGTH+1);



IF VALUE1<>-1 THEN BEGIN

	LP=LC;

	LC=VALUE1;

	IP=IC;

	IC=OSC[STRENGTH];	

	LH=VALUE2;

	LL=VALUE3;

	VALUE2=HIGHEST(LOW,STRENGTH+1);

	VALUE3=LOWEST(LOW,STRENGTH+1);

	IH=VALUE4;

	IL=VALUE5;

	VALUE4=HIGHEST(OSC,STRENGTH+1);

	VALUE5=LOWEST(OSC,STRENGTH+1);

END;



IF LOW>VALUE2 THEN VALUE2=LOW;

IF LOWTHEN VALUE3=LOW;

IF OSC>VALUE4 THEN VALUE4=OSC;

IF OSCTHEN VALUE5=OSC;



IF (LH-LL)=0 OR (IH-IL)=0 THEN TROUGHDIVERGENCE=TROUGHDIVERGENCE[1]

	ELSE

TROUGHDIVERGENCE=50*(((IC-IP)/(IH-IL))-((LC-LP)/(LH-LL)));





{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}