Код индикатора RSI для Rumus2

n = inparam("Период RSI", 1, 100, 14);
i=0;
D=0;
U=0;
dc=c-ref(c,-1);
while (i begin
i=i+1;
rdc=ref(dc,-i+1);
if (rdc >=0) then D=D+rdc; else U=U+(rdc*-1);
end;
MyRSI=100/(1+U/D);
MyRSI;