以下内容为程序代码:

1 runmode:1;
2
3 input:n(10,1,10,1),p(2,1,10,1),q(30,1,60);
4
5 direction:=close-ref(close,n);
6 xx:=abs(close-ref(close,1));
7 volatility:=sum(xx,n);
8 ef:=sum(abs(direction/volatility),1);
9 fastc:=2/(p+1);
10 slowc:=2/(q+1);
11 ssc:=ef*(fastc-slowc)+slowc;
12 constant:=ssc*ssc;
13 yy:=ref(close,1)+constant*(close-ref(close,1));
14 aa:=if(sum(1,0)=n+1,yy,yy);
15 bb:=barslast(aa);
16 ama:=ref(close,bb);
17 ama:=ref(ama,1)+constant*(close-ref(ama,1));
18 自适应均线:ama,colorblue,linethick2;
19