红绿柱面积公式_云出无心

http://blog.sina.com.cn/u/2173553324

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

红绿柱面积公式

(2011-04-12 17:32:00)

标签：

杂谈

{通达信红绿面积公式，全部复制代码粘贴就是了，不设参数但须在左上角“公式名称”栏起一公式名}
CCC:=CLOSE;
DIF:EMA(CCC,12)-EMA(CCC,26);
DEA:EMA(DIF,9);
ZERO:=0,CROSSDOT,COLORWHITE;
MACD:(DIF-DEA)*3.5,COLORSTICK;

RED_S:IF(MACD>0,SUM(MACD,BARSLAST(MACD<=0)),0),COLORRED,NODRAW;
GRE_S:IF(MACD<0,SUM(MACD,BARSLAST(MACD>=0)),0),COLORGREEN,NODRAW;
DRAWNUMBER(REFX(MACD,3)>0 AND REFX(MACD,4)<=0,HHV(MACD,5),REFX(RED_S,1)),COLOR0012AC;
DRAWNUMBER(REFX(MACD,3)<0 AND REFX(MACD,4)>=0,LLV(MACD,5),REFX(GRE_S,1)),COLORA0FA10;

-----------------------------------

{MACD红绿柱面积(飞狐版副图)参数默认值：p=26；s=12；m=9}
DIFF1:=EMA(CLOSE,s) - EMA(CLOSE,p);
DEA1:=EMA(DIFF1,m);
MACD:2*(DIFF1-DEA1){,COLORSTICK},LINETHICK0;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);

STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;

STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;

STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;

STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DIFF:DIFF1,Color0000FF;
DEA:DEA1,ColorFF0000;
红柱面积:IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color0000FF;
绿柱面积:IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,Color006000;
{平均面积: IF(MACD>0,10*红柱面积/BARSLAST(MACD<0),10*绿柱面积/BARSLAST(MACD>0)),LINETHICK0,ColorFF00FF;}
DRAWNUMBER(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4),ref(红柱面积,1),2),ALIGN1,pxup10,colorred;
{DRAWNUMBER(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4),ref(平均面积,1),2),ALIGN1,pxup35,ColorFF00FF;}
DRAWNUMBER(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),ref(abs(绿柱面积),1),2),ALIGN1,pxdn5,Color006000;
{DRAWNUMBER(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),ref(abs(平均面积),1),2),ALIGN1,pxdn30,ColorFF00FF;}
DRAWNUMBER(BARSTATUS=2 AND MACD<0,LLV(MACD,4),abs(绿柱面积),2),align2,pxdn5,Color006000;
{DRAWNUMBER(BARSTATUS=2 AND MACD<0,LLV(MACD,4),abs(平均面积),2),align2,pxdn30,ColorFF00FF;}
DRAWNUMBER(BARSTATUS=2 AND MACD>0,HHV(MACD,4),abs(红柱面积),2),align2,pxup10,colorred;
{DRAWNUMBER(BARSTATUS=2 AND MACD>0,HHV(MACD,4),abs(平均面积),2),align2,pxup35,ColorFF00FF;}
DRAWNUMBER(MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)) AND MACD>=REFX(MACD,1) AND MACD>=REFX(MACD,2),MACD,MACD,2),align0,pxup20,ColorFF0000;
DRAWNUMBER(MACD<0 AND MACD=LLV(MACD,BARSLAST(MACD>0)) AND MACD<=REFX(MACD,1) AND MACD<=REFX(MACD,2),MACD,MACD,2),align0,pxup10,ColorFF00FF;
0,Color000000;

{MACD红绿柱面积(大智慧L2版副图)参数默认值：p=26；s=12；m=9}
DIFF:EMA(CLOSE,s) - EMA(CLOSE,p);
DEA:EMA(DIFF,m);
MACD:2*(DIFF-DEA){,COLORSTICK},LINETHICK0;
MACDhs:=IF(MACD>0 AND MACD>REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color0000DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color0033DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3355EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color6677EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color8888FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color9999FF;

STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color11BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color22CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color33DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color44EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color55FFFF;

STICKLINE(MACDlx<0,MACD,0,9,0),ColorBB0000;
STICKLINE(MACDlx<0,MACD,0,8,0),ColorCC0000;
STICKLINE(MACDlx<0,MACD,0,7,0),ColorCC2200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorDD4400;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorDD6611;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorEE8822;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorEEAA33;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorFFBB44;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFFCC55;

STICKLINE(MACDls<0,MACD,0,9,0),Color007700;
STICKLINE(MACDls<0,MACD,0,8,0),Color009900;
STICKLINE(MACDls<0,MACD,0,7,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,6,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,5,0),Color11CC11;
STICKLINE(MACDls<0,MACD,0,4,0),Color22DD22;
STICKLINE(MACDls<0,MACD,0,3,0),Color33FF33;
STICKLINE(MACDls<0,MACD,0,2,0),Color44EF44;
STICKLINE(MACDls<0,MACD,0,1,0),Color55FF55;

绿柱面积:10*IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,Color00ff00;
红柱面积:10*IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,colorred;
DRAWTEXT(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,8),''+ref(红柱面积,1)),ALIGN1,VALIGN1,colorred;
DRAWTEXT(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),''+ref(abs(绿柱面积),1)),ALIGN1,Color00ff00;
DRAWTEXT(BARSTATUS=2 AND MACD<0,LLV(MACD,8),''+abs(绿柱面积)),align2,Color004A00;
DRAWTEXT(BARSTATUS=2 AND MACD>0,HHV(MACD,4),''+abs(红柱面积)),align2,VALIGN1,colorred;

--------------------------------

通达信的：
{MACD红绿柱面积(秋叶正红通达信版)参数：P=26；S=12；M=9}
DIFF:EMA(CLOSE,S) - EMA(CLOSE,P);
DEA:EMA(DIFF,M);
MACD:2*(DIFF-DEA){,COLORSTICK},LINETHICK0;
MACDHS:=IF(MACD>0 AND MACD>REF(MACD,1),MACD,0);
MACDHX:=IF(MACD>0 AND MACD<REF(MACD,1),MACD,0);
MACDLX:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDLS:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDHS>0,0,MACD,7,0),COLOR0000EE;
STICKLINE(MACDHS>0,0,MACD,6,0),COLOR0000FF;
STICKLINE(MACDHS>0,0,MACD,5,0),COLOR0033FF;
STICKLINE(MACDHS>0,0,MACD,4,0),COLOR3355FF;
STICKLINE(MACDHS>0,0,MACD,3,0),COLOR6677FF;
STICKLINE(MACDHS>0,0,MACD,2,0),COLOR8888FF;
STICKLINE(MACDHS>0,0,MACD,1,0),COLOR9999FF;

STICKLINE(MACDHX>0,0,MACD,7,0),COLOR0099CC;
STICKLINE(MACDHX>0,0,MACD,6,0),COLOR00AADD;
STICKLINE(MACDHX>0,0,MACD,5,0),COLOR00BBDD;
STICKLINE(MACDHX>0,0,MACD,4,0),COLOR00CCEE;
STICKLINE(MACDHX>0,0,MACD,3,0),COLOR00DDEE;
STICKLINE(MACDHX>0,0,MACD,2,0),COLOR00EEFF;
STICKLINE(MACDHX>0,0,MACD,1,0),COLOR00FFFF;

STICKLINE(MACDLX<0,MACD,0,7,0),COLOR990000;
STICKLINE(MACDLX<0,MACD,0,6,0),COLORAA2200;
STICKLINE(MACDLX<0,MACD,0,5,0),COLORBB4400;
STICKLINE(MACDLX<0,MACD,0,4,0),COLORCC7700;
STICKLINE(MACDLX<0,MACD,0,3,0),COLORDD9900;
STICKLINE(MACDLX<0,MACD,0,2,0),COLOREEBB00;
STICKLINE(MACDLX<0,MACD,0,1,0),COLORFFCC00;

STICKLINE(MACDLS<0,MACD,0,7,0),COLOR005500;
STICKLINE(MACDLS<0,MACD,0,6,0),COLOR007700;
STICKLINE(MACDLS<0,MACD,0,5,0),COLOR009900;
STICKLINE(MACDLS<0,MACD,0,4,0),COLOR00BB00;
STICKLINE(MACDLS<0,MACD,0,3,0),COLOR00DD00;
STICKLINE(MACDLS<0,MACD,0,2,0),COLOR00EE00;
STICKLINE(MACDLS<0,MACD,0,1,0),COLOR00FF00;

------------------------------------

评论这张

转发至微博

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：涨停板战法研究(二十二)——卖点与止损

后一篇：大智慧L2版5/10均线面积主图公式源码

新浪BLOG意见反馈留言板　欢迎批评指正