通达信分钟MACD分时指标公式

SHORT:=12;
LONG:=26;
MID:=9;
MA1:=MA(CLOSE5);
MA2:=MA(CLOSE10);
MA3:=MA(CLOSE20);
MA4:=MA(CLOSE60);
MA30:=EMA(CLOSE30);
强弱:=EMA(CLOSE900);
{STICKLINE((MA30>强弱)MA30强弱0-1)COLORLIGRAY;
STICKLINE((MA30<强弱)MA30强弱0-1)COLORLICYAN;}
DIF:EMA(CLOSESHORT)-EMA(CLOSELONG);
DEA:EMA(DIFMID);
MACD:(DIF-DEA)*2COLORSTICK;
DIF1:=EMA(CLOSE8)-EMA(CLOSE18)COLORYELLOW;
DEA1:=EMA(DIF18)COLORWHITE;
五大:=IF (MA(C5)>MA(C10) AND MA(C5)>REF(MA(C5)1) AND C>MA(C5)MA(C5)DRAWNULL)COLORWHITELINETHICK2;
十大:=IF (EVERY(MA(C10)>MA(C20)2)MA(C10)DRAWNULL)COLORYELLOWLINETHICK2;
二十大:=IF (EVERY(MA(C20)>MA(C60)2)MA(C20)DRAWNULL)COLORREDLINETHICK2;
六十大:=IF (EVERY(MA(C60)>REF(MA(C60)1)6)MA(C60)DRAWNULL)COLORGREENLINETHICK2;
分钟板底:IF(EVERY(DEA>0 AND DEA>REF(DEA1) AND DIF>DEA5)DEADRAWNULL)COLORREDLINETHICK2;
中期行情:DRAWTEXT(COUNT(CROSS(DIF0)3) AND CROSS(DEA0) AND MACD>REF(MACD1)-0.01'中期')COLOR888888;
稳板:DRAWTEXT((({COUNT(中期行情10) AND }REF(MACD<01) AND MACD>0) OR (REF(EVERY(DEA<REF(DEA1) AND DEA>DIF AND MACD<010)1))
AND CROSS(DIFDEA)) AND MACD>REF(MACD1) AND 五大-0.01'WB')COLORWHITE;
{第一涨停}
ZT:=C/REF(C1)>1.096;
前次涨停:=BARSLAST(REF(ZT1));
DRAWTEXT(REF(COUNT(ZT20)=01) AND C/REF(C1)>1.076{ AND V=HHV(V250) AND C<=HHV(C50)} AND HSL>3
AND C>=MA(O前次涨停) AND DEA<0 AND C/O>1.056DEA'INO1') COLORLIRED;
均线启动:=DRAWTEXT((REF((COUNT(CROSS(MA(C60)MA(C5))15)) OR (EVERY(MA(C60)<REF(MA(C60)1)20)
AND MA(C5)<MA(C60))1) AND CROSS(MA(C5)MA(C60)) AND C>REF(HHV(H10)1))
OR BARSLASTCOUNT(((EVERY(C20))MA(C>MA(C10) AND MA(C10)>MA(C20) AND MA(C20)>MA(C60)20)
AND C>REF(HHV(H20)1)) AND COUNT((C>O OR C>REF(C1))10)>7{ AND EVERY(V>REF(V1)3)})=1MA(C20)'均启')COLORLIBLUE;
{金叉启动:DRAWTEXT(CROSS(DIFDEA)DEA'金叉')COLORLIRED;}
{123 金叉数字}
DONCROSS:=IF(CROSS(DIFDEA) AND DEA>010);{0上金叉}
DUNDERCROSS:=IF(CROSS(DIFDEA) AND DIF<010);{0下金叉}
KONCROSS:=IF(CROSS(DEADIF) AND DIF>010);{0上死叉}
KUNDERCROSS:=IF(CROSS(DEADIF) AND DEA<010);{0下死叉}
A7X:=VAR2STR(COUNT(DUNDERCROSSBARSLAST(DIF>0)+1)0)NODRAW;
DRAWTEXT(DONCROSSDEAVAR2STR(COUNT(DONCROSSBARSLAST(DIF<0)+1)0))COLORRED;
DRAWTEXT(DUNDERCROSSDEAA7X)COLORYELLOW;
DRAWTEXT(KONCROSSDIFVAR2STR(COUNT(KONCROSSBARSLAST(DIF<0)+1)0))COLORCYAN;
DRAWTEXT(KUNDERCROSSDIFVAR2STR(COUNT(KUNDERCROSSBARSLAST(DIF>0)+1)0))COLORGREEN;
分时板底:IF(EVERY(DEA>0 AND DIF>08) AND EVERY(NOT(KONCROSS)10)0DRAWNULL)COLORREDLINETHICK3;
分时启动:DRAWTEXT(((EVERY(DIF>DEA AND DEA>REF(DEA1)10))
OR (REF(EVERY(DIF>DEA AND DEA>REF(DEA1)10)5) AND (CROSS(DIFDEA)
OR (REF(MACD<REF(MACD1)1) AND MACD>REF(MACD1)))))
AND ((REF(DIF<=REF(DIF1)1)
AND DIF>REF(DIF1)) OR (REF(MACD<REF(MACD1)1) AND MACD>REF(MACD1)))
AND DIF>REF(HHV(DIF6)1)DEA'启动') COLORLIRED;