// Downloaded From https://www.WiseStockTrader.com tf = Param( "TF", 70, 1, 100000, 1 ) ; tfs = tf * in1Minute ; TimeFrameSet( tfs ) ; GraphXSpace=5; SetChartOptions(0,chartShowArrows|chartShowDates); _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) )); Plot( C, "Close", colorBlack , styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); O1=Ref(O,-1);H1=Ref(H,-1);L1=Ref(L,-1);C1=Ref(C,-1); O2=Ref(O,-2);H2=Ref(H,-2);L2=Ref(L,-2);C2=Ref(C,-2); O3=Ref(O,-3);H3=Ref(H,-3);L3=Ref(L,-3);C3=Ref(C,-3); BT=H2<H3 AND L2<L3 AND H1<H2 AND L1<L2; ST=H2>H3 AND L2>L3 AND H1>H2 AND L1>L2; LDB=C1>O1;LDS=C1<O1; BULLHarami= O>C1 AND O<O1 AND C<O1 AND C>C1; //AND BT AND LDS; BEARHarami= O<C1 AND O>O1 AND C>O1 AND C<C1; //AND ST AND LDB ; Buy=BULLHARAMI; Sell=BEARHARAMI; //Short=Sell=bear; //Cover=0; //Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy); //Short=ExRem(Short,Cover);Cover=ExRem(Cover,Short); PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorGreen,0,L,Offset=-10); PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed,0,H,Offset=-10); //PlotShapes(IIf(Short, shapeHollowDownArrow , shapeNone), colorRed); //PlotShapes(IIf(Cover, shapeHollowUpArrow , shapeNone), colorGreen); TimeFrameRestore();