通达信涨跌超前MACD指标公式

0COLORGRAY;
DIF12:=(EMA(CLOSE12)-EMA(CLOSE26))/((EMA(CLOSE12)+EMA(CLOSE26))/2)*1000;
DEA12:=EMA(DIF129);
KDIF12:=3*(DIF12-DEA12);
KDEA12:=SMA(KDIF1252);
微分DIF:=KDIF12*5COLORWHITELINETHICK1;
微分DEA:=KDEA12*5COLORYELLOWLINETHICK1;
MACD2:2*(微分DIF-微分DEA)COLORBLACK;
MAMACD:=MA(MACD23)COLORBLACK;
STICKLINE(MACD2>REF(MACD21) AND MACD2>00MACD210)COLORRED;
STICKLINE(MACD2<=REF(MACD21) AND MACD2>00MACD210)COLORYELLOW;
STICKLINE(MACD2<REF(MACD21) AND MACD2<00MACD210)COLORCYAN;
STICKLINE(MACD2>=REF(MACD21) AND MACD2<00MACD210)COLORMAGENTA;
STICKLINE(MAMACD<1*REF(MAMACD1) MAMACD MACD2 3 0)COLORBLUE;
STICKLINE(MAMACD>1*REF(MAMACD1) MAMACD MACD2 3 0)COLORLIRED;
微分DIF2:KDIF12*5COLORREDLINETHICK1;
微分DEA2:KDEA12*5COLORMAGENTALINETHICK1;
NOTEXT强:IF(微分DIF2<MA(微分DIF22)微分DIF2DRAWNULL)COLORGREEN;
NOTEXT弱:IF(微分DEA2<MAX(微分DEA2REF(微分DEA21))微分DEA2DRAWNULL)COLORYELLOW;
DIF:=(EMA(CLOSE12)-EMA(CLOSE26))*300COLORWHITEDOTLINE;
DEA:=EMA(DIF9)COLORYELLOWDOTLINE;
DIF普:=EMA(CLOSE12)-EMA(CLOSE26);
DEA普:=EMA(DIF9);
MACD:=(DIF普-DEA普)*2COLORSTICK;
A1:=BARSLAST(REF(CROSS("MACD.DIF""MACD.DEA")1));
B1:=REF(CA1+1)>C AND REF("MACD.DIF"A1+1)<"MACD.DIF" AND CROSS("MACD.DIF""MACD.DEA");
{DRAWTEXT(B1>0DIF*0.7'LMACD底背')COLORFF00FF; }
C1:=BARSLAST(REF(CROSS("MACD.DEA""MACD.DIF")1));
D1:=REF(CC1+1)<C AND REF("MACD.DIF"C1+1)>"MACD.DIF" AND CROSS("MACD.DEA""MACD.DIF");
{DRAWTEXT(D1>0DIF*1.2'LMACD顶离')COLORBLUE;}{MACD顶背离}
JC := DEA-DIF;
绿柱面积:=IF(MACD<0SUM(MACDBARSLAST(JC<0))0);
红柱面积:=IF(MACD>0SUM(MACDBARSLAST(JC>0))0);
本次最低价:=LLV(LBARSLAST(JC<0));
本次最高价:=HHV(HBARSLAST(JC>0));
X1:=IF (MACD<0BARSLAST(CROSS(DIFDEA))0);
前次绿柱面积:=REF(绿柱面积X1+1);
前次最低价:=REF(本次最低价X1+1);
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积)
AND 本次最低价<前次最低价 )10);
RS1:= MACD<0 AND REF(MACD1)<0 AND C<前次最低价
AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD1));
底背驰: IF (CROSS(DIFDEA)REF(Y11)0);
DRAWTEXT(底背驰DIF*0.8'L积底背')COLOR00FFFF;
X2:=IF (MACD>0BARSLAST(CROSS(DEADIF))0);
前次红柱面积:=REF(红柱面积X2+1);
前次最高价:=REF(本次最高价X2+1);
Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 )10);
RS2:= MACD>0 AND REF(MACD1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD1));
顶背驰:= IF (CROSS(DEADIF)REF(Y21)0);
DRAWTEXT(顶背驰DIF*0.8'L顶底背')COLORGREEN;
MACD高:=HHV(MACD5);
E:=REF(CC1+1)>C AND DEA>0 AND REF(MACD高C1+1)<MACD高 AND CROSS("MACD.DEA""MACD.DIF") ;
{DRAWTEXT(E>0DIF*1.1'L柱顶背')COLORRED;}
F:=REF(CA1+1)>C AND DEA<0 AND REF(MACD高A1+1)<MACD高 AND CROSS("MACD.DIF""MACD.DEA");
{DRAWTEXT(F>0DIF*0.9'L柱底背')COLORYELLOW;}