通达信macd{123 叉数字以上源码都可以用在飞狐kt交易师 大智慧}

{// 导入公式:[新MCAD] 修改日期:MON OCT 24 12:39:16 2016}{123 叉数字以上源码都可以用在飞狐。kt交易师  大智慧上}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK ;
STICKLINE(MACD>0,0,MACD,3,1),COLORMAGENTA;
STICKLINE(MACD<0,0,MACD,3,1),COLORFFFFFF ;
{STICKLINE(MACD>0,0.000001,MACD,8,0),COLORMAGENTA;}
{STICKLINE(MACD<0,-0.000001,MACD,8,0),COLORFFFFFF ; }

X_2:=BARSLAST(REF(MACD,1)<0 AND MACD>0);
X_3:=LLVBARS(MACD,X_2+20);
X_4:=IF(X_3>X_2,REF(MACD,X_3),0);
X_5:=MACD<0 AND MACD>X_4 AND LOW=LLV(LOW,X_2+20) AND X_4<0;
X_6:=REF(X_5,1)=1 AND MACD>REF(MACD,1) AND REF(DIF,X_3)<0 AND MACD<0;
低背:DRAWLINE(X_4=X_3,MACD,X_6,MACD,0),COLORRED,LINETHICK2;
DRAWICON(X_6,MACD*1.2,7);
X_7:=HHVBARS(MACD,X_2+20);
X_8:=IF(X_7>X_2,REF(MACD,X_7),0);
X_9:=MACD>0 AND MACD<X_8 AND HIGH=HHV(HIGH,X_2+20) AND X_8>0;
X_10:=REF(X_9,1)=1 AND MACD>REF(MACD,1) AND REF(DIF,X_7)>0;
顶背:DRAWLINE(X_8=X_7,MACD,X_10,MACD,0),COLORGREEN,LINETHICK2;
DRAWICON(X_10,MACD*1.2,8);
{99}
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD){ OR (ISLASTBAR AND MACD>0)},REF(VA1,1)+2),0.5);{前高}
VA2JL:=BARSLAST(VA2);
VA2J:=IF(VA2JL=0,MACD,REF(MACD,VA2JL));{前高}
{STICKLINE(VA2J>0,VA2J,VA2J,2,1),COLORMAGENTA;}{全都画线}
前高Q:DRAWLINE(VA2,MACD,ISLASTBAR,REF(MACD,BARSLAST(VA2)),0),COLORMAGENTA, LINETHICK1;
STICKLINE(MACD>VA2J,MACD,VA2J,3,0),COLORYELLOW;

高点:=IF(VA2JL=0,HIGH,REF(HIGH,VA2JL));
A前高:={C>高点 AND}  CROSS(MACD,VA2J )AND MACD>VA2J ;
STICKLINE(A前高,-0.0001,MACD,3,0),COLORWHITE;

{88}
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0) {OR (BARSTATUS=2 AND MCD<0)},REF(VA3,1)+2),0.5);
VA4JL:=BARSLAST(VA4);
前低:=IF(BARSLAST(VA4)=0,MACD,REF(MACD,VA4JL));{MACD的前低}
低点:=IF(VA4JL=0,L,REF(L,VA4JL));{股价的前低}
 {//VA4J:=前低;
//STICKLINE(1,VA4J,VA4J,3,1),COLORYELLOW;{全都画线}
前低Q:DRAWLINE(VA4,MACD,ISLASTBAR,REF(MACD,BARSLAST(VA4)),0),COLOR0000FF ,LINETHICK1;{ 现价<前低MACD画线 }
A前低:=CROSS(前低, MACD )AND  MACD<前低;
P前低:=C<低点 AND  CROSS(前低, MACD ) ;
STICKLINE(MACD<前低 ,MACD,前低,3,0),COLORBLUE;
STICKLINE(A前低,-0.0001,MACD,3,0),COLORMAGENTA;
DRAWICON(P前低,MACD*1.2,12);

{123 金叉数字}
DONCROSS:=IF(CROSS(DIF,DEA) AND DEA>0,1,0); {0上金叉}
DUNDERCROSS:=IF(CROSS(DIF,DEA) AND DIF<0,1,0); {0下金叉}
KONCROSS:=IF(CROSS(DEA,DIF) AND DIF>0,1,0); {0上死叉}
KUNDERCROSS:=IF(CROSS(DEA,DIF) AND DEA<0,1,0); {0下死叉}

A7:=VAR2STR(COUNT(DUNDERCROSS,BARSLAST(DIF>0)+1),0),NODRAW;

DRAWTEXT(DONCROSS,DEA,VAR2STR(COUNT(DONCROSS,BARSLAST(DIF<0)+1),0)),COLORRED;
DRAWTEXT(DUNDERCROSS,DEA,A7),COLORYELLOW;
DRAWTEXT(KONCROSS,DIF,VAR2STR(COUNT(KONCROSS,BARSLAST(DIF<0)+1),0)),COLORCYAN;
DRAWTEXT(KUNDERCROSS,DIF,VAR2STR(COUNT(KUNDERCROSS,BARSLAST(DIF>0)+1),0)),COLORGREEN;

Ｍ周▲:DRAWTEXT(CROSS("MACD.DIF#WEEK" ,"MACD.DEA#WEEK"),0,'▲M周'),COLORRED;
Ｍ月个:DRAWTEXT(CROSS("MACD.DIF#MONTH" ,"MACD.DEA#MONTH"),0,'▲M月'),COLORMAGENTA;

{PPP}

X_3A:=DIF;
X_4A:=DEA;
X_5A:=MACD;

X_8A:=HHVBARS(X_3A,BARSLAST(X_5A<0)+1);
X_9A:=CROSS(BACKSET(CROSS(0,X_5A),REF(X_8A,1)+2),0.5);
X_10A:=X_9A;
X_11A:=BACKSET(ISLASTBAR,BARSLAST(X_10A)+1);
X_12A:=X_11A>REF(X_11A,1);
X_13A:=REF(X_3A,BARSLAST(X_12A));
DRAWICON(CROSS(X_3A,X_13A),X_3A,41);

X_14A:=CONST(IF(CURRBARSCOUNT<=81,HHV(MAX(X_5A,MAX(X_3A,X_4A)),BARSLAST(CURRBARSCOUNT=81)),0));
X_15A:=CONST(IF(CURRBARSCOUNT<=81,LLV(MIN(X_5A,MIN(X_3A,X_4A)),BARSLAST(CURRBARSCOUNT=81)),0));

X_16A:=FILTERX(CROSS(X_3A,X_4A),BARSSINCE(CLOSE));
X_17A:=SUM(CROSS(X_3A,X_4A),BARSSINCE(CLOSE));
X_18A:=CROSS(REFX(X_17A,BARSNEXT(X_16A))=X_17A+1,0.5);

STICKLINE(BARSLAST(X_18A)>=0 AND CROSS(X_3A,X_4A),X_14A,X_15A,0,(-1)),COLORGREEN;
STICKLINE(BARSLAST(X_18A)>=0 AND CROSS(X_3A,X_4A) AND X_3A>=0,X_14A,X_15A,0,(-1)),COLORRED;

X_23:=LLVBARS(X_5A,BARSLAST(X_5A>0)+1);
X_24:=CROSS(BACKSET(CROSS(X_5A,0),REF(X_23,1)+2),0.5);
X_25:=BARSLAST(FILTERX(CROSS(0,X_5A),BARSCOUNT(CLOSE)));
X_26:=DRAWLINE(X_24,X_5A,REF(X_24,1),REF(X_5A,1),1);

X_76:=BARSLAST(REF(CROSS(X_3A,X_4A),1));
X_77:=CROSS(X_3A,X_4A) AND X_3A>REF(X_3A,X_76+1) AND X_76<100 AND X_3A>0 AND LOW>REF(LOW,X_76+1);

X_78:=BARSLASTCOUNT(X_3A>X_4A);
DRAWNUMBER(ISLASTBAR,X_26,X_78),COLORGREEN,LINETHICK9;
DRAWICON(CROSS(X_3A,X_13A),X_3A,41);