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 );