通达信MACD分时主图修订版选股指标公式源码

通达信MACD分时主图修订版选股指标公式源码

源码正文：

DA:=YEAR AND MONTH AND DAY{XG51};
AA1:=stRCAT(CON2STR(YEAR,0),'年'){XG51};
AA2:=STRCAT(CON2STR(MONTH,0),'月'){XG51};
AA3:=STRCAT(CON2STR(DAY,0),'日'){XG51};
AA4:=STRCAT('【',IF(WEEkdAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF
(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))){XG51};
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】'){XG51};
DRAWTEXT_FIX(DA AND FROMOPEN<=120,0.88,0,0,AA),COLORYELLOW{XG51};
DRAWTEXT_FIX(DA AND FROMOPEN>120,0,0,0,AA),COLORYELLOW{XG51};
dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
MacD:=2*(DIF-DEA){XG51};
X:=CONST(HHV(Abs(C-DYNAINFO(3)),FROMOPEN))/CONST(HHV(ABS(DIF),FROMOPEN))*0.6{XG51};
DI:DIF*X+DYNAINFO(3),COLORCC00CC{XG51};
DE:DEA*X+DYNAINFO(3),COLOR00DD00{XG51};
MAC:=MACD*X{XG51};
STICKLINE(MAC>0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORWHITE{XG51};
STICKLINE(MAC<0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORGREEN{XG51};

V1:=TIME{XG51};
T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW{XG51};
KP30:=T<240{XG51};
KPGD:=H=HHV(H,0) AND KP30{XG51};
GDSJ:=BArslAST(KPGD){XG51};
HHHH:REF(H,GDSJ),COLORBLUE,POINTDOT,LINETHICK1{XG51};

VQ1:=TIME{XG51};
TQ:=IF(VQ1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000)),
(FLOOR(VQ1/10000)-11)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000))),NODRAW{XG51};
KPQ30:=TQ<240{XG51};
KPGDQ:=L=LLV(L,0) AND KPQ30{XG51};
GDSJQ:=BARSLAST(KPGDQ){XG51};
HHHHQ:REF(L,GDSJQ),COLORCC00CC,POINTDOT,LINETHICK1{XG51};
最新:CLOSE,COLORRED{XG51};
AQA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(vol*100,BARSCOUNT(C)){XG51};
DRAWTEXT( ISLASTBAR  AND 最新>REF(最新,1),最新,STRCAT(' 涨▲',CON2STR(最新,2))),COLORLIMAGENTA{XG51};
DRAWTEXT( ISLASTBAR  AND 最新<REF(最新,1),最新,STRCAT(' 跌▼',CON2STR(最新,2))),COLOR00FF00{XG51};
均价:SUM(V*C,0)/SUM(V,0),COLORCYAN,LINETHICK1{XG51};
IF(均价<=REF(均价,1),均价,DRAWNULL),COLORCYAN,LINETHICK3{XG51};
IF(均价>=REF(均价,1),均价,DRAWNULL),COLORBLUE,LINETHICK3{XG51};
DRAWTEXT(CURRBARSCOUNT=8,均价,'均'),COLORBLUE,LINETHICK3{XG51};
DRAWNUMBER(CURRBARSCOUNT=1,均价,均价),COLORBLUE,LINETHICK3{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.5,0,0,DYBLOCK),COLORRED{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.55,0,0,HYBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.6,0,0,GNBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN>120,0.12,0,0,DYBLOCK),COLORRED{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN>120,0.17,0,0,HYBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(1 AND FROMOPEN>120,0.21,0,0,GNBLOCK),COLORBLUE{X+G^5=1+C+N+{};