//IBD RS RANKING
_SECTION_BEGIN("IBD RS RANKING");
RSW = 0.4*ROC(C,65)+ 0.3*ROC(C,130) +0.3*ROC(C,250);
//RSW = 0.3*ROC(C,26)+ 0.3*ROC(C,65) +0.2*ROC(C,130)+ 0.2*ROC(C,250);
Plot(RSW,"RS:" ,colorBlack, styleOwnScale|styleThick|styleNoLabel) ;
Plot(
EMA(RSW,5),"RS-W" ,colordarkred, styleOwnScale|styleNoLine|styleNoLabel );
GfxSelectFont("Times New Roman", 13, 700, True );
GfxSetBkMode( colorBlack );
GfxSetTextColor(ParamColor("Color",colorGreen) );
GfxTextOut("RS IBD : "+ Prec(RSW,2), 1 , 100);
BuyIBD=RSW>
EMA(RSW,10);
SellIBD= RSW<
EMA(RSW,10);
Filter = (BuyIBD OR SellIBD);
AddColumn(IIf(BuyIBD,RSW,IIf(SellIBD,RSW,0)) ,"RS",1.0,colorWhite,IIf(BuyIBD,colorDarkGreen,IIf(SellIBD,colorRed,colorWhite)));
SetSortColumns(-3);
AddRankColumn();
AddColumn (
EMA(RSW,5), "RS-W", 1.0, colorWhite,IIf(RSW>(
EMA(RSW,5)),colorDarkGreen,IIf(RSW<(
EMA(RSW,5)),colorRed,colorWhite)));
AddColumn ( C , "Price" );
AddColumn (Ref(ROC(C,1),1),"% Today",1.2, IIf(Ref(ROC(C,1),1)>=0 ,colorLime, colorRed));
AddColumn(V,"Volume",1.0,IIf(V>Ref(V,-1),colorBlue,colorRed));
AddColumn(
EMA(V,20),"Volume EMA20",1.0,colorGreen);
_SECTION_END();
