分享

通达信版MACD面积

 Safari2010 2012-05-06

通达信版MACD面积

(2012-05-05 11:56:13)

通达信MACD面积公式:放大比例自行设置就行(缺省值设为1)。

通达信版MACD面积

通达信版MACD面积

{MACD面积}
P:=26;S:=12;M:=9;
DIFF:EMA(C,S*放大比例) - EMA(C,P*放大比例);
DEA:EMA(DIFF,M*放大比例);
MACDB:2*(DIFF-DEA),COLORSTICK;
BV:=SUM(MACDB,0);
BA:=IF(MAX(BV,REF(BV,2))<REF(BV,1) OR MIN(BV,REF(BV,2))>REF(BV,1),1,0);
BC:=BARSLAST(BA)+1;
SMACD:=BV-REF(BV,BC);
VAR3:=IF(MACDB>0,HHV(ABS(MACDB),BC),LLV(MACDB,BC));
VAR4:=(MACDB)/20;{图形比例缩小1/20,可修改}
面积1:=ROUND(SMACD*100),NODRAW;
面积:SMACD*100,NODRAW;

DRAWNUMBER(REF(VAR4,1)>0 AND VAR4<=0 ,REF(VAR3,1)*0.9,REF(面积1,1)),COLORGREEN;
DRAWNUMBER(REF(VAR4,1)<0 AND VAR4>=0 ,REF(VAR3,1)*0.9,REF(ABS(面积1),1)),COLORFF00FF;
DRAWNUMBER(ISLASTBAR AND VAR4<0,REF(VAR3,1)*0.9,ABS(面积1)),COLORFF00FF;
DRAWNUMBER(ISLASTBAR AND VAR4>0,REF(VAR3,1)*0.9,面积1),COLORGREEN;

M1:=REF(MACDB,1);
STICKLINE(MACDB>0 AND MACDB<=M1,0,MACDB,0,0),COLORYELLOW;
STICKLINE(MACDB<0 AND MACDB>=M1,0,MACDB,0,0),COLORWHITE;
IF(DIFF>=REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN,LINETHICK2;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约