//АМА Кауфмана
variable : AMA($data), cc($data);
n=inparam("Period dlya AMA",1,100,34);
n1=inparam("Period dlya medlennoy sredney",2,1000,30);
sdvig=inparam("Sdvig",0,100,0);
k1=2/(n1+1);
k2=2/3;
cc=c;
//cc=(h+l)/2;
if (cum(1)<=n) then AMA=mov(cc,n,e); else AMA=ref(AMA,-1);
dif=cc-ref(cc,-1);
dif_a=abs(dif);
difHL=cc-ref(cc,-n);
ER=abs(difHL)/Sum(dif_a,n);
AMA=AMA+pow((ER*(k2-k1)+k1),2)*(cc-ref(AMA,-1));
ref(AMA,-sdvig);