//MM 7/ MM20 / MM50 / MM200 à la hausse
//CONSOLIDATION>5%
//capitalisation échangé>200 k€ par jour
//relance confirmée
//la valeur de Force est une extrapolation sur 1 an de ka hausse moyenne des MM7/MM20/MM50 et MM200
//la varaible JOUR permet de faire des backtest : choisir par exemple JOUR=5 pour voir les résultats de 5 jours de bourse (1 semaine) plus tôt

JOUR=0

critereMM7=average[7](close[JOUR])-average[7](close[JOUR+1])
critereMM7v=average[7](close[JOUR+1])-average[7](close[JOUR+2])
critereMM50=average[50](close[JOUR])-average[50](close[JOUR+1])
critereMM20=average[20](close[JOUR])-average[20](close[JOUR+1])
critereMM200=average[200](close[JOUR])-average[200](close[JOUR+1])
critererelance=close[JOUR]>close[JOUR+1]


maxicours=low[JOUR+1]
indicemaxi=1
for i=1 to 20
if high[JOUR+i+1]>maxicours then
maxicours=high[JOUR+i+1]
indicemaxi=i
endif
next

critereconso=low[JOUR+1]<0.95*maxicours

criterecap=close[JOUR]*volume[JOUR]>200000

Force=100*250*(+critereMM7+critereMM20+critereMM50+critereMM200)/(4*close[JOUR])

ACHAT=(critereMM7>0 or critereMM7>2*critereMM7v) and indicemaxi>2 and critereMM20>0 and critereMM50>0 and critereconso>0 and criterecap and critererelance

SCREENER [ACHAT] sort by Force