ID_Scan = ParamToggle("Scan INSIDE DAY?", "No|Yes", 1);
NR4_Scan = ParamToggle("Scan NR4?", "No|Yes", 1);
NR7_Scan = ParamToggle("Scan NR7?", "No|Yes", 1);
MinVR = Param("Min Volatility_Ratio", 0.1, 0.1, 1, 0.1);
x = Param("ATR VALUE",8,1,10,1);
//NR1 = Inside() OR (Ref(H, -1)==H AND Ref(L, -1)<L) OR (Ref(H, -1)>H AND Ref(L, -1)==L);
NR4=IIf(((H - L) < Ref(LLV(H-L,3),-1)),shapeDigit4,shapeNone);
PlotShapes(nr4,colorRed,0,L);
NR7=IIf(((H - L) < Ref(LLV(H-L,6),-1)),shapeDigit7+shapePositionAbove,shapeNone);
PlotShapes(nr7,colorGreen,0,H);
InsideBar = Inside();
ID=IIf(InsideBar, shapeDigit1,shapeNone);
//PlotShapes(ID,colorBrown,0,H+20);
stretch = MA(Min(abs(O-H), abs(O-L)), 10);
Volatility_Ratio = StDev(log(C/Ref(C,-1)),5)/StDev(log(C/Ref(C,-1)),99);
Filter = Volatility_Ratio>=MinVR AND (ID OR NR4 OR NR7);
//Filter = Volatility_Ratio>=MinVR AND (NR7 OR NR4 OR NR1) AND (H<Ref(H,-1) AND L>Ref(L,-1));
//Filter = Volatility_Ratio>=MinVR AND (NR7 OR NR4 OR NR1) AND (O<Ref(O,-1) AND C>Ref(C,-1));
Buy = Filter;
if (ID_Scan) AddTextColumn(WriteIf(ID, "Yes", "No"), "INSIDE DAY", 1.0, colorDefault,colorDefault, 80);
if (NR4_Scan) AddTextColumn(WriteIf(NR4, "Yes", "No"), "NR4", 1.0, colorDefault,colorDefault, 80);
if (NR7_Scan) AddTextColumn(WriteIf(NR7, "Yes", "No"), "NR7", 1.0, colorDefault,colorDefault, 80);
AddColumn( Volatility_Ratio, "Vol Ratio",1.4, colorDefault,colorDefault, 80 );
AddColumn(H,"BUY STOP",1.4, colorDefault,colorDefault, 80 );
AddColumn(L,"SELL STOP",1.4, colorDefault,colorDefault, 80 );
AddColumn(H + ATR(x),"UPP TARGET",1.4, colorDefault,colorDefault, 80 );
AddColumn(L - ATR(x),"LOWER TARGET",1.4, colorDefault,colorDefault, 80 );
AddColumn(stretch,"STRETCH",1.4, colorDefault,colorDefault, 80 );
GraphXSpace = 5;