MACD二启通达信大智慧飞狐版(源码+图例+说明)

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：MACD二启通达信大智慧飞狐版(源码+图例+说明)

软件名称：[B]MACD二启通达信大智慧飞狐版(源码+图例+说明)[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2012-01-16 04:39:54
软件简介:

这种二启信号见仁见智，我把MACD连续3天小于0再翻红算一次新的开始，跟原思路会有所不同！
预警条件中少了量比条件，需自己盘中观察！

这种信号只有在大盘回调或盘整后才能出现，若大盘没有再次走强，又因为是追涨买入，亏损程度会很大！！！

信号量可能会较多也可能会有其他一些问题，都等以后有空再优化，测试几天再说

{MACD二启通达信版预警去ST}
DIF:=(EMA(C,5)-EMA(C,21))/EMA(C,21)*100;
DEA:=EMA(DIF,8);
MACD:=2*(DIF-DEA);
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
ST:=(NAMELIKE('S') OR NAMELIKE('*S'))=0;{剔除ST}
XZ:=FROMOPEN>=1 AND FROMOPEN<=230 AND DYNAINFO(8)>=100;
B3:=B1 AND B2 and ST;{备选}
REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0 AND XZ;

{MACD二启通达信低版本预警，不去ST}
DIF:=(EMA(C,5)-EMA(C,21))/EMA(C,21)*100;
DEA:=EMA(DIF,8);
MACD:=2*(DIF-DEA);
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
XZ:=FROMOPEN>=1 AND FROMOPEN<=230 AND DYNAINFO(8)>=100;
B3:=B1 AND B2;{备选}
REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0 AND XZ;

{MACD二启大智慧飞狐版预警}
DIF:=(EMA(C,5)-EMA(C,21))/EMA(C,21)*100;
DEA:=EMA(DIF,8);
MACD:=2*(DIF-DEA);
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
ST:=STRFIND(STKNAME,'S',1)=0;{剔除ST}
XZ:=CURRENTTIME>=93000 AND CURRENTTIME<145000 AND DYNAINFO(8)>=100;
B3:=B1 AND B2 and ST;{备选}
REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0 AND XZ;

{MACD优，通达信版副图}
DIF:(EMA(C,5)-EMA(C,21))/EMA(C,21)*100,COLORF0F0F0;
DEA:EMA(DIF,8),COLOR00DCDC;
MACD:2*(DIF-DEA),COLORSTICK,COLOR0000DC;
STICKLINE(MACD>0,MACD,0,2,1),COLOR0000DC;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),MACD,0,2,1),COLOR00B400;
STICKLINE(MACD<=0,MACD,0,2,1),COLORGRAY;
STICKLINE(MACD<=0 AND MACD>REF(MACD,1),MACD,0,2,1),COLORC800C8;
X0:=BARSLAST((CROSS(MACD,REF(MACD,1)) AND MACD>0) OR CROSS(MACD,0));
X1:=BARSLAST(CROSS(0.5,COUNT(MACD>REF(MACD,1),X0+1)=X0+1));{回}
X2:=COUNT(MACD<REF(MACD,1),X1+1)=X1+1 AND COUNT(MACD<0,X1+1)<=2;
X3:=REF(X2,1) AND MACD>REF(MACD,1) AND C>O AND C>REF(C,1);
STICKLINE(X1=0 AND MACD>0,MACD,0,2,0),COLORDCDC00;
STICKLINE(X3,MACD,0,2,0),COLOR0854FF;
NOTEXTDIF:DIF,COLORWHITE;
NOTEXTDEA:DEA,COLORYELLOW;
NOTEXT:IF(DIF>=REF(DIF,1),DIF,DRAWNULL),COLORRED;
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
B3:=B1 AND B2;
B4:=REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0;
DRAWICON(B4,ABS(MACD)+1,1);

{MACD优，飞狐版副图}
DIF:(EMA(C,5)-EMA(C,21))/EMA(C,21)*100,ColorF0F0F0;
DEA:EMA(DIF,8),COLOR00DCDC;
MACD:2*(DIF-DEA),COLORSTICK,COLOR0000DC;
STICKLINE(MACD>0,MACD,0,8,1),COLOR0000DC;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),MACD,0,8,1),COLOR00B400;
STICKLINE(MACD<=0,MACD,0,8,1),COLORGRAY;
STICKLINE(MACD<=0 AND MACD>REF(MACD,1),MACD,0,8,1),COLORC800C8;
X0:=BARSLAST((CROSS(MACD,REF(MACD,1)) AND MACD>0) OR CROSS(MACD,0));
X1:=BARSLAST(CROSS(0.5,COUNT(MACD>REF(MACD,1),X0+1)=X0+1));{回}
X2:=COUNT(MACD<REF(MACD,1),X1+1)=X1+1 AND COUNT(MACD<0,X1+1)<=2;
X3:=REF(X2,1) AND MACD>REF(MACD,1) AND C>O AND C>REF(C,1);
STICKLINE(X1=0 AND MACD>0,MACD,0,8,0),ColorDCDC00;
STICKLINE(X3,MACD,0,8,0),Color0854FF;
POLYLINE(C>0,DIF),ColorF0F0F0;
POLYLINE(C>0,DEA),COLOR00DCDC;
PARTLINE(DIF>REF(DIF,1),DIF),COLORRED;
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
B3:=B1 AND B2;
B4:=REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0;
DRAWTEXT(B4,ABS(MACD)+1.5,'◆'),COLORYELLOW,,align0;

{MACD优，大智慧版副图}
DIF:(EMA(C,5)-EMA(C,21))/EMA(C,21)*100,ColorF0F0F0;
DEA:EMA(DIF,8),COLOR00DCDC;
MACD:2*(DIF-DEA),COLOR0000DC,LINETHICK0;
STICKLINE(MACD>0,MACD,0,8,1),COLOR0000DC;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),MACD,0,8,1),COLOR00B400;
STICKLINE(MACD<=0,MACD,0,8,1),COLORGRAY;
STICKLINE(MACD<=0 AND MACD>REF(MACD,1),MACD,0,8,1),COLORC800C8;
X0:=BARSLAST((CROSS(MACD,REF(MACD,1)) AND MACD>0) OR CROSS(MACD,0));
X1:=BARSLAST(CROSS(0.5,COUNT(MACD>REF(MACD,1),X0+1)=X0+1));{回}
X2:=COUNT(MACD<REF(MACD,1),X1+1)=X1+1 AND COUNT(MACD<0,X1+1)<=2;
X3:=REF(X2,1) AND MACD>REF(MACD,1) AND C>O AND C>REF(C,1);
STICKLINE(X1=0 AND MACD>0,MACD,0,8,0),ColorDCDC00;
STICKLINE(X3,MACD,0,8,0),Color0854FF;
POLYLINE(C>0,DIF),ColorF0F0F0;
POLYLINE(C>0,DEA),COLOR00DCDC;
PARTLINE(DIF,DIF>REF(DIF,1)),COLORRED,LAYER0;
ER:=VOL/CAPITAL*100;
ZD:=C/REF(C,1)*100-100;
A0:=BARSLAST(CROSS(0.5,COUNT(MACD<0,3)>=3) AND (MACD>=1 OR DIF>=2));
A1:=CROSS(0.5,COUNT(MACD>REF(MACD,1),A0+1)=A0+1);
A2:=REF(HHV(ER,A0+1),1)>=3 AND REF(HHV(ZD,A0+3),1)>=5;
B0:=BARSLAST(A1 AND A2);
B1:=COUNT(MACD<REF(MACD,1),B0+1)=B0+1;
B2:=COUNT(MACD<0,B0+1)<=2 AND (COUNT(C<O AND ZD<0,2)=2 OR B0>=1);
B3:=B1 AND B2;
B4:=REF(B3,1) AND MACD>REF(MACD,1) AND C>O AND ZD>0;
DRAWTEXT(B4,ABS(MACD)+1.5,'◆'),COLORYELLOW,align1;

[url=http://www.70822.com/soft/sort013/sort05/down-43245.html]MACD二启通达信大智慧飞狐版(源码+图例+说明)[/url]