_SECTION_BEGIN("bharathy target 1");
SetChartOptions(0,chartShowArrows|chartShowDates);
e1=EMA(C,9);
e2=EMA(C,16);
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 );
_SECTION_END();

_SECTION_BEGIN("WMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
Plot( WMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
_SECTION_END();
_SECTION_BEGIN("FDS SWING");
no=20;
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
supres=IIf(avn==1,sup,res);

Plot(supres,"Swing SL",colorBlue,styleThick);
_SECTION_END();