DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
{此段為DIF線變色}
IF(DIF,DIF,DRAWNULL),COLORWHITE;
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED;
IF(DIF DEA1:DIF,COLORWHITE,CROSSDOT;
MACD:”MACD.MACD”,NODRAW;
W1:STICKLINE(MACD>0,MACD,0,0,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,0,1),COLORGREEN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORMAGENTA;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C)));
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(MACD BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
終點(diǎn):=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(終點(diǎn)=1 OR 終點(diǎn)=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORWHITE;
橫線:=CONST(REF(MACD,BARSLAST(ZZ)));
WW:=MACD>橫線;
起始點(diǎn):=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天數(shù):BARSLAST(起始點(diǎn)),COLORYELLOW,NODRAW;
上橫線:=DRAWLINE(起始點(diǎn),橫線,ZZ,橫線,0),COLORGREEN,DOTLINE;
下橫線:=DRAWLINE(BDZH,CONST(LLV(MACD,BD+1)),BDTJ=1,MACD,0),COLOR8080FF,DOTLINE;
DRAWNUMBER(BDTJ,CONST(LLV(MACD,BD+1))*0.9,BDTS);
DRAWNUMBER(ZZ,上橫線*1.1,天數(shù));
TJ:=IF(起始點(diǎn),BARSNEXT(ZZ),DRAWNULL);
紅柱數(shù)量:IF(天數(shù)>0 AND 天數(shù)<=REF(TJ,天數(shù)),SUM(MACD>0,天數(shù)),DRAWNULL),COLORWHITE,NODRAW;
橫線起始價(jià):REF(C,天數(shù)),NODRAW;
空間評(píng)估:(橫線起始價(jià)-C)/C*100,NODRAW;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND
MACD>(前高+本高)/2,MACD,前高,1,0),COLORYELLOW;
前高本高二分位:IF(MACD>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)
,DRAWNULL),COLORC0C000,DOTLINE;
AA:STRCAT(STRCAT(STRCAT(‘〖’,’上升空間’),’〗’),CON2STR(IF(空間評(píng)估,空間評(píng)估,
DRAWNULL),2)),NODRAW;
DRAWTEXT(WQG,MACD*1.1,’高成’),COLORWHITE;
DRAWTEXT(BDCL,MACD*1.1,’低成’),COLORWHITE;
STICKLINE(MACD>前高,MACD,前高,0,0),COLORYELLOW;
STICKLINE(WQG,MACD,0,1,0),COLORGREEN;
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,0,0),COLORBLUE;
B1:=IF(CROSS(MACD<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,1,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,1,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
MACD,前高,1,0),COLORRED;
{DRAWTEXT(VA2 AND VA2!=UU,(MACD/10)*9,’前’);}
DRAWTEXT(VA2 AND VA2!=UU,MACD/10,’高’);
{DRAWTEXT(ZZ,(MACD/10)*9,’本’),COLORWHITE;
DRAWTEXT(ZZ,MACD/10,’高’),COLORWHITE;}
DRAWTEXT(BDTJ,(MACD/10)*9,’低’),COLORRED;
{DRAWTEXT(BDTJ,MACD/10,’本’),COLORRED;}
IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE;
DRAWTEXT_FIX(1,0,0,0,’【黑馬拉升由兩個(gè)階段構(gòu)成：同步上漲階段（黃芯柱）
和慣性上漲階段（背離階段、紅芯柱）】’),COLORMAGENTA;