以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [原创]请老师改写MACD面积公式  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=73857)
--  作者：tom2046
--  发布时间：2015/1/2 18:12:42
--  [原创]请老师改写MACD面积公式
请老师把通达信MACD面积公式改成金字塔能用的，谢谢。

红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0)*10000,COLOR0000FF,NODRAW;
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0)*10000,COLORFFFF00,NODRAW;


AA:=ROUND(REF(绿面积,1));BB:=ROUND(REF(红面积,1));
DRAWNUMBER(CROSS(0,MACD),HHV(REF(MACD,1),5)+0.03,ABS(BB)),COLORMAGENTA;
DRAWNUMBER(CROSS(MACD,0),LLV(REF(MACD,1),5)-0.03,ABS(AA)),COLORGREEN;

[此贴子已经被作者于2015/1/2 18:13:14编辑过]
--  作者：jinzhe
--  发布时间：2015/1/4 10:40:48
--  

p:=26;

s:=12;

m:=9;

DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;

红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0)*10000,COLOR0000FF,NODRAW;
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0)*10000,COLORFFFF00,NODRAW;

 


AA:=ROUND(REF(绿面积,1));BB:=ROUND(REF(红面积,1));
DRAWNUMBER(CROSS(0,MACD),HHV(REF(MACD,1),5)+0.03,ABS(BB),7),COLORMAGENTA;
DRAWNUMBER(CROSS(MACD,0),LLV(REF(MACD,1),5)-0.03,ABS(AA),7),COLORGREEN;