{// 导入公式:[新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 MACD0;
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(DUNDERC