JOUR=0

critereMM20=average[20](close[JOUR])-average[20](close[JOUR+1])
critereMM50=average[50](close[JOUR])-average[50](close[JOUR+1])
critereMM7=average[7](close[JOUR])-average[7](close[JOUR+1])
criterecap=(volume[JOUR]*close[JOUR]>10000) and (volume[JOUR]>5000) and (close[JOUR]>0.1)
criterepinbar=low[JOUR]<average[7](close[JOUR]) and low[JOUR]>average[20](close[JOUR]) and ABS(close[JOUR]-open[JOUR])<0.4*(high[JOUR]-low[JOUR]) and MIN(open[JOUR],close[JOUR])>(low[JOUR]+High[JOUR])/2

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

ACHAT=critereMM7>0 and  critereMM50>0 and critereMM20>0 and criterecap>0 and criterepinbar>0

SCREENER[ACHAT]sort by Force