MACD值面积图

P:=12;

S:=26;

M:=9;

DIFF:EMA(C,P) - EMA(C,S);

DEA:EMA(DIFF,M);

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

BV:=SUM(MACD值,0);

BA:=IF(MAX(BV,REF(BV,2)) < REF(BV,1) OR MIN(BV,REF(BV,2)) > REF(BV,1),1,0);{买好股公式网WWW.BUYHAOGU.COM};

BC:=BARSLAST(BA)+1;

SMACD:=BV-REF(BV,BC);

VAR3:=IF(MACD值 > 0,HHV(ABS(MACD值),BC),LLV(MACD值,BC));

VAR4:=(MACD值)/20;

面积:SMACD,NODRAW;

DRAWNUMBER(REF(VAR4,1) > 0 AND VAR4 <=0 ,REF(VAR3,1),REF(面积,1)),COLORRED;

DRAWNUMBER(REF(VAR4,1) < 0 AND VAR4 >=0 ,REF(VAR3,1),REF(ABS(面积),1)),COLORGREEN;

DRAWNUMBER(ISLASTBAR AND VAR4 < 0,REF(VAR3,1),ABS(面积)),COLORRED;

DRAWNUMBER(ISLASTBAR AND VAR4 > 0,REF(VAR3,1),面积),COLORGREEN;