MACD优化大智慧版副图

{MACD优化，二次启动大智慧版副图}

{周DIFf:(EMA(C,20)-EMA(C,84))/EMA(C,84)*100,LINETHICK2;

周DEA:=EMA(周DIfF,32);

FILLRGN(周DIFF,周DEA,周DIFF>周DEA,RGB(100,000,000),周DIFF<周DEA,RGB(0,100,100));

PARTLINE(周DIFf,周DIFf>=REF(周DIFf,1),RGB(250,0,0),周DIFf<REF(周DIFf,1)

,RGB(0,128,255)),LINETHICK2; }

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>ref(MACD,1)and MACD>0,0,MACD,3,0),COLOR0000FF;{0轴上长}

STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,3,0),COLOR909090;{0轴上短0779e2}

STICKLINE(MACD<ref(MACD,1)and MACD<0,0,MACD,3,0),colorff7700;{0轴下长}

STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,3,0),color008800;{0轴下短}

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,3,0),ColorDCDC00;}

STICKLINE(X3,MACD,0,5,1),Color00ffff;{二次启动}

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;};