那位编程高手将大智慧MACD变色改为通达信公式，谢谢！

S:= EMA(C,12);

T:= EMA(C,26);

DIFF: S - T,LAYER0,LINETHICK2;

DEA: EMA(DIFF,9),COLORRED,LAYER0,LINETHICK2;

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

STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,6,0),COLOR000099;

STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,4,0),COLOR0000bb;

STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,3,0),COLOR0000dd;

STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,1,0),COLOR0000ff;

STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,6,0),COLOR009999;

STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,4,0),COLOR00bbbb;

STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,3,0),COLOR00dddd;

STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,1,0),COLORyellow;

STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,6,0),COLORFF4400;

STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,4,0),COLORFF6600;

STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,3,0),COLORFF8800;

STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,1,0),COLORFFaa00;

STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,6,0),COLOR009900;

STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,4,0),COLOR00bb00;

STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,3,0),COLOR00dd00;

STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,1,0),COLOR00ff00;

0,COLOR545454;

{MACDNEXT:88/65*S-40/27*T-1.6*DEA+224/1755*C;}

叉上需要点数:= (DEA + 25*T/27 - 11*S/13)/(2/13 - 2/27);

变化需要点数:= (1.25*DIFF - 0.25*DEA + 25*T/27 - 11*S/13)/(2/13 - 2/27);

MACDXTODAY:=(DEA-DIFF)/(2/13 - 2/27);

DRAWMOVETEXT(1,'今日叉上需:' + STR(MACDXTODAY));

DRAWMOVETEXT(1,'下交易日叉上需:' + STR(叉上需要点数 - C));

DRAWMOVETEXT(1,'下交易日趋势变化需:' + STR(变化需要点数 - C));