//TMACD 同梁MACD
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
2*(DIFF-DEA),COLORSTICK;
MACD:2*(DIFF-DEA),COLORSTICK;
//MACDVA鱼
MACDV:=MACD>REF(MACD,1) AND REF(MACD,2)>REF(MACD,1);
MACDA:=MACD<REF(MACD,1) AND REF(MACD,2)<REF(MACD,1);
LEN:=CONDBARS(CROSSUP(DIFF,DEA),CROSSDOWN(DIFF,DEA));
DDAI:=C>REF(C,LEN) AND CROSSDOWN(DIFF,DEA); //MACD多带鱼
KDAI:=C<REF(C,LEN) AND CROSSUP(DIFF,DEA); //MACD空带鱼
DDUAN:=C<=REF(C,LEN) AND CROSSDOWN(DIFF,DEA); //MACD空带鱼
KDUAN:=C>=REF(C,LEN) AND CROSSUP(DIFF,DEA); //MACD空短鱼
DDAICS:=-1*COUNT(DDAI,0);
DDK := IF(BARSLAST(DDAI)<BARSLAST(KDAI), 1, -1);
//MACD标记
DRAWTEXT(DDAI ,DIFF,'空'),VALIGN2,FONTSIZE24,COLORRED;
DRAWTEXT(DDUAN ,DIFF ,'空'),VALIGN2,FONTSIZE16,COLORGREEN;
DRAWTEXT(KDAI ,DEA,'多'),VALIGN0,FONTSIZE24,COLORRED;
DRAWTEXT(KDUAN ,DEA,'多'),VALIGN0,FONTSIZE16,COLORGREEN;
////////////////////////////////////////////////////////////////////////////
//MACD柱VA鱼
DYT:=MACDV;
KYT:=MACDA;
FBPK := DYT AND COUNT(DYT, BARSLAST(KYT))=1;
FSPK := KYT AND COUNT(KYT, BARSLAST(DYT))=1;
BPKC := IF(FBPK , C, REF(C, BARSLAST(FBPK)));
SPKC := IF(FSPK , C, REF(C, BARSLAST(FSPK)));
LEN1 := CONDBARS(FBPK, FSPK);
DDAI1 := C>REF(C,LEN1) AND FSPK;
KDAI1 := C<REF(C,LEN1) AND FBPK;
DDUAN1 := C<=REF(C,LEN1) AND FSPK;
KDUAN1 := C>=REF(C,LEN1) AND FBPK;
DRAWTEXT(DDAI1 ,MACD ,'A'),ALIGN2,FONTSIZE24,COLORRED;//VA鱼多带
DRAWTEXT(DDUAN1 ,MACD ,'A'),ALIGN2,FONTSIZE16,COLORGREEN;//VA鱼多短
DRAWTEXT(KDAI1 ,MACD,'V'),ALIGN2,FONTSIZE24,COLORRED;//VA鱼空带
DRAWTEXT(KDUAN1 ,MACD ,'V'),ALIGN2,FONTSIZE16,COLORGREEN;//VA鱼空短
|