// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Winner");


m = Param("Periods", 10, 2, 5, 1 );
n = Param("Average", 5, 2, 5, 1 );

pa = (2*C+H+L)/4;
cost = pa*Volume;

scost5 = Sum(cost,n);
svolume5 = Sum(Volume,n);
pa5 = scost5/svolume5;

RSV = (pa5-LLV(pa5,m))/(HHV(pa5,m)-LLV(pa5,m))*100;

pak = WMA(rsv,n);
paD = WMA(paK,n);

UP=pak; 
DOWN=pad; 
Oo=IIf(up<down,up,down);
Hh=Oo;
Ll=IIf(up<down,down,up);
Cc=Ll;
barcolor2=IIf(up>down,5,colorRed);
PlotOHLC( Oo,hh,ll,Cc, "Winner ", barcolor2, styleCandle );


_SECTION_END();