//Histograma SMI50
//Establecemos indicador
indicator1 = SMI[50,5,13](CLOSE)
indicator2 = Average[5] (indicator1)
ALCISTA1 = indicator1 crosses over indicator2[1] AND indicator1 > indicator1[1]
BAJISTA1 = indicator1 crosses under indicator2[1] AND indicator1 < indicator1[1]
Signal = 0
IF BAJISTA1 THEN
//DRAWTEXT ("ABRIR CORTOS",barindex,high+40*pointsize, Dialog,Bold,10) coloured (255,0,0)
//DRAWARROWDOWN (barindex,high+1*pointsize) COLOURED(215,80,250)
Signal = 2
ENDIF
IF ALCISTA1 THEN
//DRAWTEXT("ABRIR LARGOS",barindex,low-40*pointsize,Dialog,Bold,10) COLOURED (0,0,0)
//DRAWARROWUP(barindex,low-1*pointsize) COLOURED(70,100,255)
Signal = 1
ENDIF
SCREENER[Signal](Signal AS "1=↑, 2=↓")