sredn=inparam("Выбор счета средней:",1,10,1);
sr1=inparam("Период быстрой средней:",1,1000,5);
aa1=inparam("Сглаживание быстрой",0,1000,5);
sr2=inparam("Период медленной средней:",1,1000,65);
aa2=inparam("Сглаживание медленной",0,1000,22);
rr=inparam("Сглаживание RAVI",0,1000,1);
if sredn=1 then ss=(o+c+h+l)/4;
if sredn=2 then ss=(c+h+l)/3;
/* if sredn=... тут можно выдумывать любые вычисления средних.. какие только душа пожелает! */
mov1=ref(Mov(ss,sr1,s),-1); //Чтобы независеть от текущей свечи.
srb=mov(mov1,aa1,s);
mov2=ref(Mov(ss,sr2,s),-1);
srm=mov(mov2,aa2,s);
RAVIS1=(srb-srm)/srm;
RAVIS=10000*Mov(RAVIS1,rr,s);
RAVI_Storozh=RAVIS-ref(RAVIS,-1);
RAVI_Storozh;
0;