_SECTION_BEGIN("Winner");

m = Param("Period", 10, 2, 10, 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,colorBlue,colorRed);
PlotOHLC(Oo, hh, ll, Cc, "Winner", barcolor2, styleCandle);

_SECTION_END();