Double Bottom screener

• 05/22/2019 at 1:55 PM #99165
  prevailution

  Hi,

  I am looking for a double bottom screener with minimum volume 1 million and minimum price 20 dollars

  My search online found Leo’s double top and bottom screener, but I am wondering if it is possible to:

  1. Exclude double tops
  2. Add minimum volume
  3. Add minimum price

  His screener code is. I’m not sure how to exclude double tops and add minimum conditions without ruining the code.

  Leo code

  //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)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 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)

   

  

  prevailution

  Participant

  Topics: 4

  Replies: 7

  Been thanked: 0 times
  05/22/2019 at 5:02 PM #99193
  Nicolas

  It is not necessary to delete the double top part, just add a condition that there is no double top. I added a minimum price and volume condition at the end of the code, you can change it there.

  //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 minprice = close>10 minvol = volume>100000 SCREENER[Wpattern=1 and not Mpattern and minprice and minvol](exactness)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 157 158

  //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   minprice = close>10 minvol = volume>100000 SCREENER[Wpattern=1 and not Mpattern and minprice and minvol](exactness)

   

  1 user thanked author for this post.

  prevailution

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  05/22/2019 at 6:09 PM #99199
  prevailution

  Thank you!

  

  prevailution

  Participant

  Topics: 4

  Replies: 7

  Been thanked: 0 times
• Author
  Posts