Timeframe (daily)
MinPrice= close > 2 and close < 500
//MinVolume= average[23](Volume) > 2000
For i = 1 to 15 do
if high[i+1] > high[i] then
BO = high[i+1]
endif
Next
// LEFT HANDLE///////////////////////
LH = high[16]
For i = 16 to 30 do
if high[i+1] > LH then
LH = high[i+1]
indexLH = i+1
endif
Next
//BOTTOM HANDLE///////////////////////
BH = low[16]
For j = 16 to indexLH do
if low[j+1] < BH then
BH = low[j+1]
//IndexBH = j+1
endif
Next
//
//NLH=IndexLH-IndexBH
// BOTTOM CUP//////////////////////
BC = low[indexLH]
For k = indexLH to IndexLH+25 do
if low[k+1] > BC then
indexBC = indexBC
elsif low[k+1] < BC then
BC = low[k+1]
IndexBC = k+1
endif
Next
// identification d'un éventuel nouveau plus Haut entre LH et BC et sa condition dans le "return" LHTest <1.01*LH
LHTest = high[indexLH]
For q =IndexLH to IndexBC do
if high[q+1]> LHTest then
LHTest = high[q+1]
endif
Next
// LEFT CUP
LC = low[indexBC]
For m =IndexBC to IndexBC+135 do
if high[m+1]< LC then
LC = LC
elsif high[m+1]> LC then
LC = high[m+1]
IndexLC = m+1
endif
Next
// identification d'un éventuel nouveau plus bas et sa condition dans le "return" BCTest >0.9*BC
BCTest = low[indexBC]
For z =IndexBC to IndexLC do
if low[z+1]< BC then
BCTest = low[z+1]
//else
//BCTest = BCTest
endif
Next
// LEFT OF THE CUP
KC = low[indexLC]
For n= IndexLC to IndexLC + 50 do
if low[n+1]> KC then
KC = KC
elsif low[n+1] < KC then
KC = low[n+1]
endif
Next
Delta= LC/KC
AmplitudeMax = LC/BC<1.5
Alignement = LH < 1.01*LC and LH >0.99*LC
screener [ BO>LH AND BC<LC and BC<LH and delta>1 and MinPrice and AmplitudeMax and Alignement and BCTest >0.9*BC and LHTest <1.01*LH](IndexLH as "rang")//AND AND MinVolume(BH>0.8*LH+0.2*BC)and beta> 1 AND alpha > 1 <1.02 TestCup = 1AND BH<LH and BH>0.9*LH NLH > 2 AND and BH>BC
