?

?來源:程序化99

?請參考

?

?DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9),COLOR888888;
MACD:=(DIF-DEA)*2,COLORSTICK;
//IF(DIF>DEA,DIF,NULL),COLORRED;
//IF(DIF<DEA,DIF,NULL),COLORGREEN;
A:=IF(CROSS(0,DEA),1,0);
A11:=IF(DIF<0 AND CROSS(DIF,DEA),1,0);
SS:=IF(A,SUM(A11,0),0);
SSB:=HHV(SS,0),NODRAW;
SSS:=SUM(A11,0),NODRAW;
W底:=SSS-SSB=2 AND SSS>REF(SSS,1);
DRAWTEXT(W底,L,'底',COLORYELLOW,VALIGN0,FONTSIZE20;
W底,SOUND('';
AQ:=IF(CROSSDOWN(0,DEA),1,0);
AQ11:=IF(DIF>0 AND CROSSDOWN(DIF,DEA),1,0);
SSQ:=IF(AQ,SUM(AQ11,0),0);
SSBQ:=HHV(SSQ,0),NODRAW;
SSSQ:=SUM(AQ11,0),NODRAW;
W頂:=SSSQ-SSBQ=2 AND SSSQ>REF(SSSQ,1);
DRAWTEXT(W頂,H,'頂',COLORGREEN,FONTSIZE20;
W頂,SOUND('';?