二、MACD的一个公式,在大智慧软件的代码如下,可否编辑成通达信的
p:=26;s:=12;m:=9;
var1:="chzhshch
@kxian";
var2:="chzhshch
@bi";
var3:="chzhshch
@duan";
DIFF : EMA(CLOSE,s) - EMA(CLOSE,p);
DEA : EMA(DIFF,m);
MACD : 2*(DIFF-DEA), COLORSTICK;
a1:=barslast(abs(var3)=1);
a2:=ref(var3,a1);
a3:=if(a2=-1,if(macd>0,macd,0),if(macd<0,macd,0));
ss1:=if (a1<>0,sum(a3,a1),0);
ss2:ss1/12;
ss3:=ss1*(IF(c>1000,1,100));
drawtext(ref(ss1,1)>0 and ss1<=0 ,ref(ss2,1),''+ref(ss3,1)),colorred;
drawtext(ref(ss1,1)<0 and ss1>=0 ,ref(ss2,1),''+ref(abs(ss3),1)),colorgreen;
drawtext(barstatus=2 and ss3<0,ss2,''+abs(ss3)),align2,colorgreen;
drawtext(barstatus=2 and ss3>0,ss2,''+ss3),align2,colorred;