MACD Divergence TrendLine

[aaa 10]

// Author: aaa

// from: MARKPLEX Code Divergence

// http://markplex.com/tutorial4.php

// version: 1.0

// Date: 20100501

// added:

// divergence on top +

// Line.Color.Top + Line.Color.Bot + Line.Size + Plot.MACD in inputs

[/url]

 

 

PS : Stochastic Divergence TrendLine here

 

http://www.traderslaboratory.com/forums/f46/stochastic-divergence-trendline-7244.html

MACD DIVERGENCE TRENDLINE.ELD

MACD Divergence TrendLines.pla

MACD Divergence TrendLine.txt

[aaa 10]

TL_NEW

This reserved word adds the specified text string to a price chart

Text_New

This reserved word adds the specified text string to a price chart

 

I'm wondering if it's possible 2 draw divergences lines to an indicator ?

[Tams 20]

TL_NEW

This reserved word adds the specified text string to a price chart

Text_New

This reserved word adds the specified text string to a price chart

 

I'm wondering if it's possible 2 draw divergences lines to an indicator ?

 

 

do you mean trendline ?

 

TL_NEW

This reserved word adds the specified text string to a price chart

[Tams 20]

....

I'm wondering if it's possible 2 draw divergences lines to an indicator ?

 

sure, why not?

 

just duplicate everything...

make sure you name the variables with -1 and -2 suffix.

[aaa 10]

Hi TAMS

 

Always here 2 help absent-minded

 

Oups... I've forgot 2 attach my work in my last post...

 

do you mean trendline ?

 

Yes and I've tried also Text_New

 

make sure you name the variables with -1 and -2 suffix.

 

I've done it but w/o succes

 

I was wondering if it's allowed by EL 2 change iPrice by the iValue of an indicator ?

 

This reserved word adds a trendline with the specified starting and ending points to a price chart. It returns a numeric expression corresponding to the ID number of the trendline added to the chart.

 

Value1 = TL_New(iBarDate, iBarTime, iPrice, eBarDate, eBarTime, ePrice)

 

If U have Xtra time, Would U mind 2 have a look on my attachement ?

 

regards

 

aaa

MACD Divergence TrendLines Indicator.txt

[Tams 20]

I am not sure what you are trying to achieve...

[aaa 10]

only plot trendlines directly on the MACD indicator

[Tams 20]

only plot trendlines directly on the MACD indicator

 

LOL... you knew I was going to ask you to make a drawing... but...

 

 

to draw in subchart, you need TL_NEW_SELF.

 

this is a MultiCharts exclusive keyword.

 

 

in this case, you do not need to duplicate the variables and calculations...

[aaa 10]

So it's not possible in Easy Language but possible in Power Language

 

it's amazing that U know 110% of Power Language.

 

TAMS, U know what ?

 

U ARE THE BEST !!!

 

TL_New_self

Displays a trendline, with the specified starting and ending points, on the SubChart containing the study; returns a trendline-specific ID number, required to modify the trendline.

Usage

TL_New_self (sDate, sTime, sPriceValue, eDate, eTime, ePriceValue)

Edited May 6, 2010 by aaa

[aaa 10]

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

 

with a little help from our friend TAMS,

 

Here is the indicator ONLY 4 MULTICHARTS USERS

 

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

 

 

MACD Divergence TrendLines Indicator.txt

MACD Divergence TrendLines Indicator.pla

[lonew0lf 10]

Is it possible to apply the same principle of divergence to a StochRSI indicator (divergence drawn on both the price and the indicator)?

 

I tried playing with it on my end but getting a ton of errors. I'm not sure if the errors are due to the 2 lines in the stochrsi versus the single line in the MACD. Below is the code that i'm using for the stochrsi:

 

input:

 

RSILength(9),

StochLength(18),

KLength(6),

DLength(3),

oversold(20),

overbought(80),

overscolor(white),

overbcolor(white);

 

Vars:

DToscK(0),

DToscD(0);

 

value1 = FastKCustomEasy(RSI(C, RSILength),StochLength);

DToscK = average(value1,KLength);

DToscD = average(DToscK,DLength);

 

plot1(DToscK,"%K" );

plot2(DToscD,"%D" );

plot3( overbought, "OverBot" ) ;

plot4( oversold, "OverSld" ) ;

 

condition1 = value1 crosses over oversold ;

if condition1 then

Alert( "Indicator exiting oversold zone" )

else

begin

condition1 = value1 crosses under overbought ;

if condition1 then

Alert( "Indicator exiting overbought zone" ) ;

end;

Edited May 12, 2010 by lonew0lf

[Tams 20]

Is it possible to apply the same principle of divergence to a StochRSI indicator (divergence drawn on both the price and the indicator)?

 

I tried playing with it on my end but getting a ton of errors. I'm not sure if the errors are due to the 2 lines in the stochrsi versus the single line in the MACD. Below is the code that i'm using for the stochrsi:

 

...end;

 

mmm... let me check my crystal ball for your error messages....

[lonew0lf 10]

Man you work fast. Here's what I threw together:

 

//----------------------------------------------------

inputs:

//----------------------------------------------------

 

RSILength(9),

StochLength(18),

KLength(6),

DLength(3),

LeftStrength(3),

RightStrength(3),

Line.Color.Top(magenta),

Line.Color.Bot(magenta),

Line.Size(2),

Plot.stochrsi(1);

 

//----------------------------------------------------

variables:

//----------------------------------------------------

 

DToscK(0),

DToscD(0),

 

var0(0),

var1(0),

var2(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);

 

var0 = StochRSI( Close, RSILength, StochLength, KLength, DLength );

 

Condition1 = Pivot( var0, RSILength, LeftStrength, RightStrength, 1, -1, oPivotPrice1, oPivotBar1 ) <> -1

AND ( oPivotBar1 - RightStrength ) = 0 ;

 

Condition11 = Pivot( var0, RSILength, LeftStrength, RightStrength, 1, 1, oPivotPrice11, oPivotBar11 ) <> -1

AND ( oPivotBar11 - RightStrength ) = 0 ;

 

Condition2 = Pivot( var0, RSILength, LeftStrength, RightStrength, 2, -1, oPivotPrice2, oPivotBar2 ) <> -1;

 

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

 

If

Condition1 and Condition2 // added condition2 = referecne future data

AND L[oPivotBar2] >= L[oPivotBar1]

AND var0[oPivotBar2] < var0[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 );

End;

 

If

Condition11 and Condition12 // added condition12 referecne future data

AND H[oPivotBar12] <= H[oPivotBar11]

AND var0[oPivotBar12] > var0[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 );

End;

 

if Plot.stochrsi <> 0 then

begin

Plot1( var0 );

end;

Edited May 12, 2010 by lonew0lf

[Tams 20]

you should tag your codes with the # key... located on the top right of the message window.

[lonew0lf 10]

Should I repost to make it easier to follow or leave it as is?

[Tams 20]

Should I repost to make it easier to follow or leave it as is?

 

you can press the [Edit] key and tag them now

[lonew0lf 10]

Done, not sure if the tagging worked.

[Tams 20]

tagged code should look like this:

 

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

RSILength(9),
StochLength(18),
KLength(6),
DLength(3),
LeftStrength(3),
RightStrength(3),
Line.Color.Top(magenta),
Line.Color.Bot(magenta),
Line.Size(2), 
Plot.stochrsi(1);

 

 

just highlight the code (ie select the text),

then press the # key on the top of the message window.

[lonew0lf 10]

It appears that I can't modify my post any further, i'll just repost both codes.

[aaa 10]

Is it possible to apply the same principle of divergence to a StochRSI indicator (divergence drawn on both the price and the indicator)?

 

Hello

I will have a look this WE

rgds

aa

[aaa 10]

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

 

If someone else is interested with others indicators divergence trendline like

 

RSI

Mom

CCI

etc...

 

I could post one each WE

 

If U have a preferred one, please post it here

 

It should B fun 2 mix them on a chart ?!

 

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

Edited May 12, 2010 by aaa

[lonew0lf 10]

AAA - thanks for undertaking this endeavor. I've come to like the stochrsi as a good test against my signals. The ability to see divergence would be quite nice.

 

I'm running the MACD divergence on my charts right now and it looks good, hopefully the same will hold true for stochrsi.

[snowbird 10]

I'd be interested in the ability to add a moving average or linear moving average to define trend, and only show divergences in the direction of the trend.

 

Greatly cuts down on the signals... but increases the probability of continuation.

 

snowbird

[lonew0lf 10]

I was able to apply divergence to both the price and indicator. Thank you AAA for putting the original together. The below modification applies to the stochrsi:

 

// 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(red),
Line.Color.Bot(blue),
Line.Size(3),
Plot.stochrsi(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  );
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  );
End;

if Plot.stochrsi <> 0 then	
Plot1( DToscK );


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",      white );
plot2( 20,    "oversold", white);
plot3(80, "overbought", white);

StochRSI Divergence.pla

[Tams 20]

to keep things in order,

you should post your code in the stochastic-divergence thread

http://www.traderslaboratory.com/forums/f46/stochastic-divergence-trendline-7244.html