Restituisce 4 valori (oltre allo zero, in caso non ci sia nessun segnale):

• Inside BAR ribassista = 1
• Inside BAR rialzista = 2
• Inside BAR ribassista FALLITA = 3
• Inside BAR rialzista FALLITA = 4

//Inside Bar Breakout Failure indicator

//atr = averagetruerange[10](close)*0.5

bullcandle=open<close
bearcandle=open>close

Risultato = 0

insidebarbear= bearcandle and high[0]<high[1] and low[0]>low[1]
if insidebarbear then
//DRAWTEXT("IB", barindex, high[1]+atr*0.5, Dialog, Standard, 12) COLOURED(0,0,0)
////DRAWARROWDOWN(barindex,high[1]) COLOURED(0,0,0)
//DRAWCANDLE(open,high,low,close) COLOURED(0,0,0) BORDERCOLOR(255,0,0)
Risultato = 1
endif
insidebarbull= bullcandle and high[0]<high[1] and low[0]>low[1]
if insidebarbull then
//DRAWTEXT("IB", barindex, high[1]+atr*0.5, Dialog, Standard, 12) COLOURED(0,0,0)
////DRAWARROWDOWN(barindex,high[1]) COLOURED(0,0,0)
//DRAWCANDLE(open,high,low,close) COLOURED(0,0,0) BORDERCOLOR(0,255,0)
Risultato = 2
endif

insidebarFailureBull=bullcandle and (low[1]<Low[0] or high[1]>high[0]) and(insidebarbull[1] and close[0]<close[1] and close[0]>open[1]) or insidebarbear[1] and close[0]<open[1] and close[0]>close[1] //

if insidebarFailureBull and not (insidebarbear or insidebarbull) then
//DRAWTEXT("BO failure", barindex, high[1]+atr*-2.5, Dialog, Standard, 12) COLOURED(0,0,0)
//DRAWCANDLE(open,high,low,close) COLOURED(255,255,255) BORDERCOLOR(0,255,0)
////DRAWARROWUP(barindex,low[0]) COLOURED(0,255,0)
Risultato = 4
endif
//================

insidebarFailureBear=bearcandle and (low[1]<Low[0] or high[1]>high[0]) and(insidebarbear[1] and close[0]>close[1] and close[0]<open[1]) or insidebarbull[1] and close[0]>open[1] and close[0]<close[1]

if insidebarFailureBear and not (insidebarbear or insidebarbull) then
//DRAWTEXT("BO failure", barindex, high[1]+atr*-2.5, Dialog, Standard, 12) COLOURED(0,0,0)
//DRAWCANDLE(open,high,low,close) COLOURED(255,255,255) BORDERCOLOR(255,0,0)
////DRAWARROWUP(barindex,low[0]) COLOURED(255,0,0)
Risultato = 3
endif

SCREENER[Risultato](Risultato AS "Criterio")