SetChartOptions(0,chartShowArrows|chartShowDates);
e1=EMA(C,3);
e2=EMA(C,15);
Plot(e1,"",colorWhite,styleThick);
Plot(e2,"",colorYellow,styleThick );
Buy=Cross(e1,e2);
Sell=Cross(e2,e1);
Buysetup=Flip(Buy,Sell);
Shortsetup=Flip(Sell,Buy);
SHtrend=IIf(BarsSince(Buysetup)<BarsSince(Shortsetup ),1,0);
Buy = ExRem(Buy, Sell);
Sell = ExRem(Sell, Buy);
Buyt=ValueWhen(Buy,H,1);
Sellt=ValueWhen(Sell,L,1);
Buyt=IIf(SHtrend==1,Buyt,0);
Sellt=IIf(SHtrend==0,Sellt,0);
Buytt=Cross(H,Buyt)AND SHtrend==1;
selltt=Cross(Sellt,L)AND SHtrend==0;
Buytt = ExRem(Buytt, Selltt);
Selltt = ExRem(Selltt, Buytt);
PlotShapes(IIf(Buytt, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buytt, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buytt, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Selltt, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Selltt, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Selltt, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);
Col=IIf(SHtrend==1,colorGreen,4);
SetBarFillColor(Col);
Plot(C,"Close",Col,64);
ribboncol= IIf( BarsSince(Buysetup)<BarsSince(Shortsetup),colorGreen, colorRed ); //315 Trend
Plot(3, "SH315", ribboncol, styleArea | styleOwnScale | styleNoLabel, 0, 100 );
Title = EncodeColor(colorWhite)+ "SH 315" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +"\n" +EncodeColor(colorWhite) +"Open-"+O+" "+"High-"+H+" "+"Low-"+L+" "+EncodeColor(colorYellow)+"Close-"+C+" " +EncodeColor(colorWhite)+ "Vol= "+ WriteVal(V)+EncodeColor(colorLime) +" EMA1 : "+e1+" "+EncodeColor(colorOrange) +" EMA2 : "+e2+" ";