// Downloaded From https://www.WiseStockTrader.com
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 

LL7 = C < Ref(C,-1) < Ref(C,-2) < Ref(C,-3) < Ref(C,-4) ;

HH7 = C>Ref(C,-1) > Ref(C,-2) > Ref(C,-3) > Ref(C,-4);


B1 = C>Ref(C,-1) AND Ref(C,-1)>Ref(C,-2) AND Ref(C,-2)>Ref(C,-3) AND Ref(C,-3)>Ref(C,-4) AND Ref(C,-4)>Ref(C,-5) AND Ref(C,-5)>Ref(C,-6) AND Ref(C,-6)>Ref(C,-7) AND Ref(C,-7)>Ref(C,-8)AND Ref(C,-8)>Ref(C,-9);
S1 = C<Ref(C,-1) AND Ref(C,-1)<Ref(C,-2) AND Ref(C,-2)<Ref(C,-3) AND Ref(C,-3)<Ref(C,-4) AND Ref(C,-4)<Ref(C,-5) AND Ref(C,-5)<Ref(C,-6) AND Ref(C,-6)<Ref(C,-7) AND Ref(C,-7)<Ref(C,-8)AND Ref(C,-8)<Ref(C,-9);;


Filter = B1 OR S1;
AddColumn(IIf(B1,1,0),"Look For Short From Tomorrow",1,colorBlack,IIf(B1,colorRed,colorWhite));
AddColumn(IIf(S1,1,0),"Look For Long From Tomorrow ",1,colorBlack,IIf(S1,colorGreen,colorWhite));


//PlotShapes(IIf(B1, shapeDownArrow, shapeNone),colorRed, 0, L, Offset=-90);
PlotShapes(IIf(B1, 10, shapeNone),colorRed, 0, H, Offset=-30);
PlotShapes(IIf(B1, 10, shapeNone),colorRed, 0, H, Offset=-40);
PlotShapes(IIf(B1, 6, shapeNone),colorRed, 0, H, Offset=-50);
PlotShapes(IIf(B1, 2, shapeNone),colorRed, 0, H, Offset=-58);


//PlotShapes(IIf(S1, shapeUpArrow, shapeNone),colorGreen, 0, H, Offset=-150);
PlotShapes(IIf(S1, 9, shapeNone),colorGreen, 0, L, Offset=-30);
PlotShapes(IIf(S1, 5, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(S1, 1, shapeNone),colorGreen, 0, L, Offset=-48);
//PlotShapes(IIf(S1, 35, shapeNone),colorGreen, 0, L, Offset=-65);