Following on the great work done by aaa on the divergence indicator; I wanted to know if someone could potentially help in creating an indicator which shows negative or reverse divergence.

The attached indicator is a slight tweak from aaa's, and shows regular divergence only. The attached images show the negative divergence.

// StochRSI Divergence TrendLine
// Author: MARKPLEX
// http://markplex.com/tutorial4.php
// version: 1.0

// Author: aaa
// version: 2.0
// Date: 20091129
// added: 
// divergence on top +
// Line.Color.Top + Line.Color.Bot + Line.Size + Plot.Sto in inputs

//----------------------------------------------------
	inputs:
//----------------------------------------------------


RSILength(9),
StochLength(18),
KLength(6),
DLength(3),
OverSold(20),
OverBought(80),
Length(20),
LeftStrength(3),
RightStrength(3),
Line.Color.Top(yellow),
Line.Color.Bot(white),
Line.Size(2),
Plot.stochrsi(1),
AlertOn.Off(1);

//---------------------------------------------------- 
	variables:
//----------------------------------------------------

DToscK(0), 
DToscD(0),

oPivotPrice1(0),
oPivotBar1(0),
oPivotPrice2(0),
oPivotBar2(0),

oPivotPrice11(0),
oPivotBar11(0),
oPivotPrice12(0),
oPivotBar12(0);

value1 = FastKCustomEasy(RSI(C, RSILength),StochLength);
DToscK =  average(value1,KLength);
DToscD = average(DToscK,DLength);

Condition1 = Pivot( DToscK, Length, LeftStrength, RightStrength, 1, -1, oPivotPrice1, oPivotBar1 ) <> -1 
		AND ( oPivotBar1 - RightStrength ) = 0 ;
		
Condition11 = Pivot( DToscK, Length, LeftStrength, RightStrength, 1, 1, oPivotPrice11, oPivotBar11 ) <> -1 
		AND ( oPivotBar11 - RightStrength ) = 0 ;
			 	
Condition2 = Pivot( DToscK, Length, LeftStrength, RightStrength, 2, -1, oPivotPrice2, oPivotBar2 ) <> -1;

Condition12 = Pivot( DToscK, Length, LeftStrength, RightStrength, 2, 1, oPivotPrice12, oPivotBar12 ) <> -1;

	If 
		Condition1 and Condition2 // added condition2 = referecne future data
		AND L[oPivotBar2] >= L[oPivotBar1] 
		AND DToscK[oPivotBar2] < DToscK[oPivotBar1] then 
	Begin
		Value2 = TL_New(D[oPivotBar2], T[oPivotBar2], L[oPivotBar2], D[oPivotBar1], T[oPivotBar1], L[oPivotBar1]); 
		TL_SetColor( Value2, Line.Color.Bot );
		TL_SetSize(  Value2, Line.Size  );
			if AlertOn.Off <> 0 then
				Alert( "Divergence in Bottom" );
	End;
	
	If 
		Condition11 and Condition12 // added condition12  referecne future data
		AND H[oPivotBar12] <= H[oPivotBar11] 
		AND DToscK[oPivotBar12] > DToscK[oPivotBar11] then 
	Begin
		Value12 = TL_New(D[oPivotBar12], T[oPivotBar12], H[oPivotBar12], D[oPivotBar11], T[oPivotBar11], H[oPivotBar11]); 
		TL_SetColor( Value12, Line.Color.Top );
		TL_SetSize(  Value12, Line.Size  );
			if AlertOn.Off <> 0 then
				Alert( "Divergence in Top" );
		
	End;
		
condition3 = Pivot( DToscK, Length, LeftStrength, RightStrength, 1, -1, oPivotPrice1, oPivotBar1 ) <> -1 
		AND ( oPivotBar1 - RightStrength ) = 0 ;
		
condition32 = Pivot( DToscK, Length, LeftStrength, RightStrength, 1, 1, oPivotPrice11, oPivotBar11 ) <> -1 
		AND ( oPivotBar11 - RightStrength ) = 0 ;
			 	
condition4 = Pivot( DToscK, Length, LeftStrength, RightStrength, 2, -1, oPivotPrice2, oPivotBar2 ) <> -1;

condition42 = Pivot( DToscK, Length, LeftStrength, RightStrength, 2, 1, oPivotPrice12, oPivotBar12 ) <> -1;

	If 
		Condition3 and condition4 
		AND L[oPivotBar2] >= L[oPivotBar1] 
		AND DToscK[oPivotBar2] < DToscK[oPivotBar1] then 
	Begin
		Value2 = TL_New_SELF(D[oPivotBar2], T[oPivotBar2], DToscK[oPivotBar2], D[oPivotBar1], T[oPivotBar1], DToscK[oPivotBar1]); 
		TL_SetColor( Value2, Line.Color.Bot );
		TL_SetSize(  Value2, Line.Size  );
	End;
	
	If 
		Condition32 and Condition42
		AND H[oPivotBar12] <= H[oPivotBar11] 
		AND DToscK[oPivotBar12] > DToscK[oPivotBar11] then 
	Begin
		Value12 = TL_New_SELF(D[oPivotBar12], T[oPivotBar12], DToscK[oPivotBar12], D[oPivotBar11], T[oPivotBar11], DToscK[oPivotBar11]); 
		TL_SetColor( Value12, Line.Color.Top );
		TL_SetSize(  Value12, Line.Size  );
	End;
		
	Plot1( DToscK, "stochrsi",      blue );
	plot2( 20,    "oversold", white);
	plot3(80, "overbought", white);

[lonew0lf]

I was being fictitious on the rightstrenth of 1.

Is it possible to have the indicator plot the divergence line, even though you have to wait the 3 bars for confirmation.

For example, TTM Trend for example will paint the current bar the anticipated colour before the bar closes. Would that be possible for this indicator where it plots the potential divergence as its happening rather than after the fact?

[snowbird]

What is the tradestation equivalent for TL_New ( I assume this is an array or variable for the new "reverse divergent" trendline to be plotted next... but is undefined and therefore unrecognized in TS.

snowbird

[Tams]

Originally Posted by snowbird »

What is the tradestation equivalent for TL_New ( I assume this is an array or variable for the new "reverse divergent" trendline to be plotted next... but is undefined and therefore unrecognized in TS.

snowbird

press the [F1] key and see...

TL_NEW is available in recent releases of tradestation, but not in the older version (eg. T2000).

[aaa]

Would that be possible for this indicator where it plots the potential divergence as its happening rather than after the fact?

With pivot function, I'm afraid that not less than 1 bar on the right side of the pivot bar...

The Pivot function returns the value of a pivot point and the number of bars ago the pivot occurred.

RightStrength = Sets the required number of bars on the right side of the pivot bar.

************************* *******

But keep "optimistic", as TAMS wrote

anything is POSSIBLE

if you can visualize it, quantify it, articulate it, you can code it.