PeakDivergence

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

VARS: HC(0), HP(0), HH(0), HL(0), IC(0), IH(0), IP(0), IL(0);



VALUE1=SWINGHIGH(1,HIGH,STRENGTH,STRENGTH+1);



IF VALUE1<>-1 THEN BEGIN

	HP=HC;

	HC=VALUE1;

	IP=IC;

	IC=OSC[STRENGTH];	

	HH=VALUE2;

	HL=VALUE3;

	VALUE2=HIGHEST(HIGH,STRENGTH+1);

	VALUE3=LOWEST(HIGH,STRENGTH+1);

	IH=VALUE4;

	IL=VALUE5;

	VALUE4=HIGHEST(OSC,STRENGTH+1);

	VALUE5=LOWEST(OSC,STRENGTH+1);

END;



IF HIGH>VALUE2 THEN VALUE2=HIGH;

IF HIGHTHEN VALUE3=HIGH;

IF OSC>VALUE4 THEN VALUE4=OSC;

IF OSCTHEN VALUE5=OSC;



IF (HH-HL)=0 OR (IH-IL)=0 THEN PEAKDIVERGENCE=PEAKDIVERGENCE[1]

	ELSE

PEAKDIVERGENCE=50*(((HC-HP)/(HH-HL))-((IC-IP)/(IH-IL)));





{COPYRIGHT C 1997, TECHNICAL ANALYSIS, INC.}