MACD支撑线副图公式源码

M:=3;

DIFF:EMA(C,12*M)-EMA(C,26*M);

DEA:EMA(DIFF,9*M);

MACD:(DIFF-DEA)*2,COLORFFFF00,COLORSTICK;

A1:=BARSLAST(REF(CROSS(0, DEA),M));

A2:=BARSLAST(REF(DEA<0 AND CROSS(DIFF,DEA),M));

A3:=BARSLAST(REF(COUNT(DEA<0,A2+M)=A2+M AND CROSS(DIFF,DEA),M));

A4:=LLV(C,A3+M)<REF(LLV(C,A2+M),A3+M) AND LLV(DIFF,A3+M)>=REF(LLV(DIFF,A2+M),A3+M);

A5:=LLV(C,A2+M)<REF(LLV(C,A1+M),A2+M) AND LLV(DIFF,A2+M)>=REF(LLV(DIFF,A1+M),A2+M);

DIBL1:=(A4=1 OR A5=1) AND COUNT(DEA<0,A2+M)=A2+M AND DEA<0 AND CROSS(DIFF,DEA);

金叉:IF(CROSS(DIFF,DEA) AND DEA<=0 AND DIBL1=0,0,DEA),COLORYELLOW;

底背离:IF(DIBL1=1,0,DEA),COLORRED;

B1:=BARSLAST(REF(CROSS(DEA,0),M));

B2:=BARSLAST(REF(DEA>0 AND CROSS(DEA,DIFF),M));

B3:=BARSLAST(REF(COUNT(DEA>0,B2+M)=B2+M AND CROSS(DEA,DIFF),M));

B4:=HHV(C,B3+M)>REF(HHV(C,B2+M),B3+M) AND HHV(DIFF,B3+M)<=REF(HHV(DIFF,B2+M),B3+M);

B5:=HHV(C,B2+M)>REF(HHV(C,B1+M),B2+M) AND HHV(DIFF,B2+M)<=REF(HHV(DIFF,B1+M),B2+M);

DINGBL1:=(B4=1 OR B5=1) AND COUNT(DEA>=0,B2+M)=B2+M AND DEA>=0 AND CROSS(DEA,DIFF); 

死叉:IF(CROSS(DEA,DIFF) AND DEA>=0 AND DINGBL1=0,0,DEA),COLORWHITE;

顶背离:IF(DINGBL1=1,0,DEA),COLORGREEN; 

DIBJG:=(A4=1 OR A5=1) AND COUNT(DEA<0,A2+M)=A2+M AND DEA<0 AND DIFF>REF(DIFF,M) AND

 DIFF>REF(DIFF,8) AND DIFF<DEA ;

DINGBJG:=(B4=1 OR B5=1) AND COUNT(DEA>=0,B2+M)=B2+M AND DEA>=0 AND REF(DIFF,M)>DIFF AND

 REF(DIFF,8)>DIFF AND DIFF>DEA ;

STICKLINE(DIBJG =1 ,DEA,DIFF,2,0),COLORRED;

STICKLINE(DINGBJG =1 ,DEA,DIFF,2,0),COLORGREEN;

MB:=EMA(DIFF,20*M);

UB:=MB+1.9104*STD(DIFF,20*M);

LB:=MB-1.9104*STD(DIFF,20*M);

ZJS:=HHV(DEA,B1+M)/2;

ZJX:=LLV(DEA,A1+M)/2;

STICKLINE(DEA>DIFF  AND  DEA>0  AND  DEA>ZJS,ZJS,REF(ZJS,M),1,0),COLORRED;

STICKLINE(DEA<DIFF  AND  DEA<0  AND  DEA<ZJX,ZJX,REF(ZJX,M),1,0),COLORGREEN;