Double top and double bottom SCREENER

Hi all,

This is a screener that detect double top and double bottom.

A double top or a double bottom, are chartists figures that announce a reversal of trend. In general, a double top is created in the context of a downward trend and therefore marks its end and a return of the bullish movement while a double bottom, is created in the context of a downward trend and therefore marks its end and a return of the bullish movement.

Base on my Leo Moving Average indicator, the following screener detects double bottom and double top.

I am looking forward to read your comments and improvements in the systems.

If you earn money with this methodology please share your luck with the people in the world who do not.

//LOCALS MINIMUMS AND MAXIMUMS USING LEO MOVING AVERAGE
//Autor: LEO

//VARIABLES TO BE OPTIMIZED

PERIOD=40    //Period for analysis


//Definition of what is a double top or double bottom
Kdouble=0.2 //Factor for defining what is double top or bottom

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

//Leo Moving Average, formula: LMA= WMA+(WMA-SMA)
LMA=2*weightedaverage[period](close)-average[period](close)

//Smoothed curve of Leo Moving Average
IF BARINDEX > period THEN
 smoothLMA=weightedaverage[period](LMA)
ELSE
 smoothLMA=undefined
ENDIF

// Direction or trend of the LMA


// << Storage of minimums and maximums >>
once mintemp=low
once posmintemp=1
once maxtemp=high
once posmaxtemp=1

IF BARINDEX>2 THEN
 // the value 0.7 is to ensure that the donchian channel is faster than the curves analysis (this value to be checked)
 IF low < lowest[round(0.7*period)](low[1]) THEN
  mintemp=low //minimum temporal
  posmintemp=BARINDEX //postition of minimum temporal
 ENDIF
 IF high > highest[round(0.7*period)](high[1]) then
  maxtemp=high //maximum temporal
  posmaxtemp=BARINDEX //position maximum temporal
 ENDIF
ENDIF

//  << Detecting and locating a local minimums >>
//  Where the LMA is crossing the smoothed LMA, there is a maximum or minimum nearby
//  If there is a new local min/max, the preivus one is stored in de varible B... (before)
once LEVMIN=low
once POSLEVMIN=1
once LEVMAX=high
once POSLEVMAX=1
once bullcross=0
once bearcross=0

IF BARINDEX > PERIOD THEN //For avoid computer errors
 bullcross=LMA crosses over smoothLMA
 bearcross=LMA crosses under smoothLMA
ENDIF


IF bullcross and POSLEVMIN<>posmintemp  THEN
 BLEVMIN=LEVMIN        //previus local minimum is saved
 BPOSLEVMIN=POSLEVMIN
 LEVMIN=mintemp
 POSLEVMIN=posmintemp
 support=LEVMIN
ENDIF

// --> Detecting and locating a local maximum
IF bearcross and POSLEVMAX<>posmaxtemp THEN
 BLEVMAX=LEVMAX       //previus local maximum is saved
 BPOSLEVMAX=POSLEVMAX
 LEVMAX=maxtemp
 POSLEVMAX=posmaxtemp
 resistance=LEVMAX
ENDIF

support=min(low,support)
resistance=max(high,resistance)


// << DETECTING DOUBLE TOP OR BOTTOMS  >>

once WidthDoubleTop = high-low
once WidthDoubleBottom = high-low
once Wpattern=0
once Mpattern=0


//  <<<<<<  Double bottoms   >>>>>>>>>

//looking for the top between two local minimums
IF bullcross THEN
 doublebottomtop=high[BARINDEX-POSLEVMIN+1] // we start looking for the top in between two local minimums
 //POSdoublebottomtop=BARINDEX-POSLEVMIN+1
 FOR i = (BARINDEX-POSLEVMIN+1) to (BARINDEX-BPOSLEVMIN-1) DO
  IF high[i] > doublebottomtop THEN
   doublebottomtop=high[i]
   //POSdoublebottomtop=BARINDEX-i
  ENDIF
 NEXT
 WidthDoubleBottom = doublebottomtop-(BLEVMIN+LEVMIN)/2 // (top betwen local minimums) - (average of the las two local minimums)
 IF abs(BLEVMIN-LEVMIN) < Kdouble*WidthDoubleBottom THEN
  // we have a double bottom
  Wpattern=1
 else
  Wpattern=0
 ENDIF
ENDIF

//   <<<<<<<<<<  Double tops    >>>>>>>

//looking for the bottom between two local maximums
IF bearcross THEN
 doubletopbottom=low[BARINDEX-POSLEVMAX+1]
 //POSdoubletopbottom=BARINDEX-POSLEVMAX+1
 FOR i = (BARINDEX-POSLEVMAX+1) to (BARINDEX-BPOSLEVMAX-1) DO
  IF low[i] < doubletopbottom THEN
   doubletopbottom=low[i]
   //POSdoubletopbottom=BARINDEX-i
  ENDIF
 NEXT
 WidthDoubleTop=(BLEVMAX+LEVMAX)/2 -doubletopbottom
 IF abs(BLEVMAX-LEVMAX) < Kdouble*WidthDoubleTop THEN
  // we have a double top
  Mpattern=1
 else
  Mpattern=0
 ENDIF
ENDIF

//    <<<<<<<<<<  DOUBLE TOP AND DOUBLE BOTTOM FOR TRADING  >>>>>>>>


myATR=AverageTrueRange[2*period](close)

IF Wpattern=1 THEN
 IF close > (doublebottomtop+myATR) or close < (LEVMIN-0.5*myATR) THEN
  Wpattern=0 //  <<<< double bottom has been activated or it was cancelled >>>>>
 ELSE
 //       <<<<<<<  HERE WE HAVE A DOUBLE BOTTOM FOR TRADING  >>>>>
  exactness=abs(BLEVMIN-LEVMIN) / WidthDoubleBottom
 ENDIF
ENDIF

IF Mpattern=1 THEN
 IF close < (doubletopbottom-myATR) or close > (LEVMAX+0.5*myATR) THEN
  Mpattern=0 //double top has been activated or it was cancelled
 ELSE
 //       <<<<<<<  HERE WE HAVE A DOUBLE TOP FOR TRADING  >>>>>
  exactness= abs(BLEVMAX-LEVMAX) / WidthDoubleTop
 ENDIF
ENDIF


SCREENER[Wpattern=1 or Mpattern=1](exactness)

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

//LOCALS MINIMUMS AND MAXIMUMS USING LEO MOVING AVERAGE

//Autor: LEO

//VARIABLES TO BE OPTIMIZED

PERIOD=40 //Period for analysis

//Definition of what is a double top or double bottom

Kdouble=0.2 //Factor for defining what is double top or bottom

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

//Leo Moving Average, formula: LMA= WMA+(WMA-SMA)

LMA=2*weightedaverage[period](close)-average[period](close)

//Smoothed curve of Leo Moving Average

IF BARINDEX > period THEN

smoothLMA=weightedaverage[period](LMA)

ELSE

smoothLMA=undefined

ENDIF

// Direction or trend of the LMA

// << Storage of minimums and maximums >>

once mintemp=low

once posmintemp=1

once maxtemp=high

once posmaxtemp=1

IF BARINDEX>2 THEN

// the value 0.7 is to ensure that the donchian channel is faster than the curves analysis (this value to be checked)

IF low < lowest[round(0.7*period)](low[1]) THEN

mintemp=low //minimum temporal

posmintemp=BARINDEX //postition of minimum temporal

ENDIF

IF high > highest[round(0.7*period)](high[1]) then

maxtemp=high //maximum temporal

posmaxtemp=BARINDEX //position maximum temporal

ENDIF

// << Detecting and locating a local minimums >>

// Where the LMA is crossing the smoothed LMA, there is a maximum or minimum nearby

// If there is a new local min/max, the preivus one is stored in de varible B... (before)

once LEVMIN=low

once POSLEVMIN=1

once LEVMAX=high

once POSLEVMAX=1

once bullcross=0

once bearcross=0

IF BARINDEX > PERIOD THEN //For avoid computer errors

bullcross=LMA crosses over smoothLMA

bearcross=LMA crosses under smoothLMA

ENDIF

IF bullcross and POSLEVMIN<>posmintemp THEN

BLEVMIN=LEVMIN //previus local minimum is saved

BPOSLEVMIN=POSLEVMIN

LEVMIN=mintemp

POSLEVMIN=posmintemp

support=LEVMIN

ENDIF

// --> Detecting and locating a local maximum

IF bearcross and POSLEVMAX<>posmaxtemp THEN

BLEVMAX=LEVMAX //previus local maximum is saved

BPOSLEVMAX=POSLEVMAX

LEVMAX=maxtemp

POSLEVMAX=posmaxtemp

resistance=LEVMAX

ENDIF

support=min(low,support)

resistance=max(high,resistance)

// << DETECTING DOUBLE TOP OR BOTTOMS >>

once WidthDoubleTop = high-low

once WidthDoubleBottom = high-low

once Wpattern=0

once Mpattern=0

// <<<<<< Double bottoms >>>>>>>>>

//looking for the top between two local minimums

IF bullcross THEN

doublebottomtop=high[BARINDEX-POSLEVMIN+1] // we start looking for the top in between two local minimums

//POSdoublebottomtop=BARINDEX-POSLEVMIN+1

FOR i = (BARINDEX-POSLEVMIN+1) to (BARINDEX-BPOSLEVMIN-1) DO

IF high[i] > doublebottomtop THEN

doublebottomtop=high[i]

//POSdoublebottomtop=BARINDEX-i

ENDIF

WidthDoubleBottom = doublebottomtop-(BLEVMIN+LEVMIN)/2 // (top betwen local minimums) - (average of the las two local minimums)

IF abs(BLEVMIN-LEVMIN) < Kdouble*WidthDoubleBottom THEN

// we have a double bottom

Wpattern=1

else

Wpattern=0

ENDIF

// <<<<<<<<<< Double tops >>>>>>>

//looking for the bottom between two local maximums

IF bearcross THEN

doubletopbottom=low[BARINDEX-POSLEVMAX+1]

//POSdoubletopbottom=BARINDEX-POSLEVMAX+1

FOR i = (BARINDEX-POSLEVMAX+1) to (BARINDEX-BPOSLEVMAX-1) DO

IF low[i] < doubletopbottom THEN

doubletopbottom=low[i]

//POSdoubletopbottom=BARINDEX-i

ENDIF

WidthDoubleTop=(BLEVMAX+LEVMAX)/2 -doubletopbottom

IF abs(BLEVMAX-LEVMAX) < Kdouble*WidthDoubleTop THEN

// we have a double top

Mpattern=1

else

Mpattern=0

ENDIF

// <<<<<<<<<< DOUBLE TOP AND DOUBLE BOTTOM FOR TRADING >>>>>>>>

myATR=AverageTrueRange[2*period](close)

IF Wpattern=1 THEN

IF close > (doublebottomtop+myATR) or close < (LEVMIN-0.5*myATR) THEN

Wpattern=0 // <<<< double bottom has been activated or it was cancelled >>>>>

ELSE

// <<<<<<< HERE WE HAVE A DOUBLE BOTTOM FOR TRADING >>>>>

exactness=abs(BLEVMIN-LEVMIN) / WidthDoubleBottom

ENDIF

IF Mpattern=1 THEN

IF close < (doubletopbottom-myATR) or close > (LEVMAX+0.5*myATR) THEN

Mpattern=0 //double top has been activated or it was cancelled

ELSE

// <<<<<<< HERE WE HAVE A DOUBLE TOP FOR TRADING >>>>>

exactness= abs(BLEVMAX-LEVMAX) / WidthDoubleTop

ENDIF

SCREENER[Wpattern=1 or Mpattern=1](exactness)

double bottom double top M pattern patterns trend reversal W pattern

Risk disclosure:

No information on this site is investment advice or a solicitation to buy or sell any financial instrument. Past performance is not indicative of future results. Trading may expose you to risk of loss greater than your deposits and is only suitable for experienced investors who have sufficient financial means to bear such risk.

ProRealTime ITF files and other attachments :

Filename : download the ITF files

How to import ITF files into ProRealTime platform?

Find other exclusive trading pro-tools on

PRC is also on YouTube, subscribe to our channel for exclusive content and tutorials


bolsatonimora2 • 10/31/2017 #
many thanks Leo!!! Great!!

Nicolas • 10/31/2017 #
Great addition Leo, many thanks for your work on this project and for sharing the code with us! 😉

Leo • 10/31/2017 #
Thanks for your time invested here as well. I hope we all find a way to made a very profitable strategy out of it

cantillon • 10/31/2017 #
Thanks Leo, great piece of code !

ali zidouri • 10/31/2017 #
please help i dont know how to convert code to indicator

ALE • 10/31/2017 #
Thanks Very Much Leo, could you help us with an example of trading strategy using these signal?

ALE • 10/31/2017 #
the indicator is here: https://www.prorealcode.com/prorealtime-indicators/double-top-double-bottom-detector/

Sapo • 10/31/2017 #
Merci beaucoup pour le partage à bientôt Leo.

Leo • 10/31/2017 #
Hi all,
We are adding all our ideas and improvements here :
https://www.prorealcode.com/topic/dobule-bottom-or-double-top/

djtaktik • 10/31/2017 #
Nice Screener ! Is it possible to screen when a green or red arrow appears ? thks in advance.
- Leo • 10/31/2017 #
  I do not focus so much in screeners. You can see our progress in the forum.
  Cheers

ludo6977 • 10/31/2017 #
it’s very good job léo

Mick3y • 10/31/2017 #
Is there a way to sort the results by price? Let’s say just return stocks under X price? Thanks

rama • 10/31/2017 #
I am using the this code to buy or sell in a program which is not working

rama • 10/31/2017 #
I am using

if [Wpattern=1 and (exactness) then
buy at market
endif

however system is not accepting the code for buy orders , what is the correct for buy?

Breeze • 10/31/2017 #
Hi Leo. I am not an IT person so I need help to know how I can run this code. I am a trader in South Africa.
- Nicolas • 10/31/2017 #
  Download the itf file on this page, import it into your platform and run it through the ProScreener module.

sally31120 • 10/31/2017 #
Bonjour,
J’ai deux questions concernant Double top and double bottom detector – M&W patterns
a) A partir de quand les flèches dessinées sur le graphique sont-elles définitives, car :
https://www.prorealcode.com/prorealtime-indicators/double-top-double-bottom-detector/
« lokbuscas • 25/10/2017 #
Salut les signaux que la peinture est fantastique. Mais j’ai un doute. L’indicateur repeint-il? ? Dans le passé marque très bien des hauts et des bas Mais dans le présent je n’ai pas de stock que l’indicateur montre les signaux merci »
« Nicolas • 25/10/2017 #
Je ne pense pas que cet indicateur “repeigne” la façon dont vous pensez. Il donne des signaux après, mais il ne doit pas supprimer un signal donné une fois la barre fermée. »

b) Peut-on screener uniquement les flèches en fin de journée et quel en serait le code ?

Merci par avance pour vos réponses

Dadoo • 10/31/2017 #
Incredible workLeo. Thankyou to share you time and knowledge

tommygtb • 10/31/2017 #
what does the criteria mean in the box on the screen is it the time frame the screener searches ie 01.1hour TF , 0.2 2hour? thanks tom

Saberi2023 • 132 days ago #
Hello dear
Can you please write it also in java script?

idunnomuch IS this working in the latest version of prorealtime? I get the indicator, but not over my c...

bernardmorel egalement apparait en dessous du graphique mais vide

bernardmorel Bonjour est t il possible de remettre en ligne the strat car il y a une indication qui d...

bibifricotin

bibifricotin Je pense avoir compris dans la première colonne exemple 92 le 9 indique la période et le 2 ...

Leo_da_Pisa It seems to work very well. Good for confirmation. Thanks for sharing Vivien.

joguemon Buenas, he instalado el screener pero no me aparecen los números que indicas...tengo que mon...

enriquem Hola, No, los numeros no aparecen, Proscreener no permite rotular, Lo que devuelve el sc...

PeytoLake Hi Enriquem, How do I change the timeframe from 'Daily' to "5 min"? Thank you.

quibe56 Bonjour, à priori les couleurs pour le Katana ne fonctionnent pas ( départ haussier ou élan...

swapping Bonjour quibe56, n'ayant pas rencontré ce défaut je continu néanmoins à structurer le code p...

ckat55 Thank you Nicolas, is there any way that an alert can be set for when the dot appears?

Nicolas yes, change the last line with: RETURN wrb,qh and set an alarm with the alert tool for ea...

ckat55 Thank you Nicolas, I will try it.

JohnScher After a small error crept in, a correct itf.file has been uploaded.

dougie80 Great Indicator, Is there a way to use this as an alert ?

JohnScher I created the screener with some help here from PRT. It is surely somewhere in one of the fo...

Geronima Ortiz I watched the video three times, but I can not put the npips parameter as a variable. I do...

Geronima Ortiz I think the video is for an old version of prorealtime, the images do not correspond at all ...

Nicolas indicator1 = CALL “PRC_StopReversal”[npips, 1] and define npips in the optimization window ...

Nicolas Screeners dont plot anything on charts.

jobswaps Hola puedes agragar marcos temporales como minimo y maximo en temporalidad del triangulo par...

p3sc4d0r c3 = Average[40](close*volume) > 3000000 Hi to everyone. I need some help with this co...

Vonasi Thanks for your thanks Real Pro and yes everyone should import the itf file to make sure tha...

Pepsmile Good job, which could be applied for a spectrum of another indicators.

Pepsmile As to better understand which parameters are better for an indicators in a specific period (...

Gregg Hi all, is there anyone who is using this pattern? It's been 3 days I'm trying it and I'm ...

Violet Hi Gregg, TP and SL? There are no variables by those names. The signal appears/disapp...

Marcus Quartus Aurius Thanks great job !

parthapersonal Great job Leo. Dear Zen83, how do you, "return them into the very last line"?

steve_ Hi! This thread is quite old, but let’s try… I’m new with Prorealcode and I’ve just di...

steve_ Hi! I've created a topic in french (translatable with Google function) here : https://www.p...

Share this

Likes