通达信AMA(X,A)自适应均线大智慧替代方法

股海网解答

{AMA(X,A)替代}
{"求自适应均线值。
用法:
 AMA(X,A),A为自适应系数,必须小于1。
算法:
 Y=Y'+A*(X-Y')。初值为X。"}

VARIABLE: r[6000]=0;

X:=C;
A:=0.6;
N:=10;
r[1]:=REF(X,N-1);
for i=2 to N do
 BEGIN
      r[i]:=r[i-1]+A*(REF(X,N-i)-r[i-1]);   {Y=Y'+A*(X-Y')}       
 END
AMA:r[N];