_SECTION_BEGIN("Price");
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 ) ) ));
upbar=Optimize("UpBar",13,1,21,1);
dnbar=Optimize("DnBar",13,1,21,1);
TrendUp = C > Ref(HHV(H,upbar),-1);
TrendDn = C < Ref(LLV(L,dnbar),-1);
TrendUp = ExRem(TrendUp,TrendDn);
TrendDn = ExRem(TrendDn,TrendUp);
Plot(Ref(HHV(H,upbar),-1),"\n 8H Hi", colorBlue);
Plot(Ref(LLV(L,dnbar),-1),"8H Lo", colorRed);
up=Ref(((Ref(HHV(H,upbar),-3))+(Ref(LLV(L,dnbar),-3)))/2,-1)<((Ref(HHV(H,upbar),-3))+(Ref(LLV(L,dnbar),-3)))/2;
dn=Ref(((Ref(HHV(H,upbar),-3))+(Ref(LLV(L,dnbar),-3)))/2,-1)>((Ref(HHV(H,upbar),-3))+(Ref(LLV(L,dnbar),-3)))/2;
Vcolor=IIf( BarsSince(up) < BarsSince(dn),colorBrightGreen ,colorOrange);
Plot(((Ref(HHV(H,upbar),-3))+(Ref(LLV(L,dnbar),-3)))/2,"\n8H Piv 3 back shifted", Vcolor);
_SECTION_BEGIN("Chart");
D=IIf( C > Ref(HHV(H,upbar),-1), colorBlue ,IIf( C < Ref(LLV(L,dnbar),-1), colorRed ,0 ));
Vcolor1=IIf( (trendup),colorBlue,IIf((trenddn), colorRed,D));//
GraphXSpace = 5;
PlotOHLC( Open, High, Low, Close, "", vcolor1, styleCandle | styleThick );
PlotShapes(IIf(trenddn, shapeDownArrow, shapeNone), colorRed, 0,High, Offset=-20);
PlotShapes(IIf(trendup, shapeUpArrow , shapeNone), colorGreen, 0,Low, Offset=-20);
_SECTION_END();
// for back testing, 15 pt SL, target 70 pt
SetPositionSize( 50, spsShares ); // 50 shares by default
Buy=Cover= C > Ref(HHV(H,upbar),-1) ;
Sell=Short = C < Ref(LLV(L,dnbar),-1) ;