通达信优MACD指标公式

{标准公式}
{DIF:EMA(CLOSE12)-EMA(CLOSE26);
DEA:EMA(DIF9);
MACD:(DIF-DEA)*2COLORSTICK;}
{MACD调整参数}
{DIFF:EMA(CLOSE7)-EMA(CLOSE19)COLORWHITE;}
DIFF:EMA(CLOSE12)-EMA(CLOSE26)COLORWHITE;
DEA:EMA(DIFF9)COLORYELLOW;
MACD:(DIFF-DEA)*2COLORSTICK;
{牛眼}
MA1:=MA(C5);
MA2:=MA(C10);
MA3:=MA(C20);
MA6:=MA(C30);
MA4:=MA(C40);
MA5:=MA(C60);
牛眼:(MA1>REF(MA11) AND C>MA2 AND C>MA5 AND MA1>MA5 AND MA2>MA5
AND CROSS(MA1MA2) AND DIFF>REF(DIFF1) AND MA5>REF(MA51) AND MA4>REF(MA41)
AND MA5>REF(MA52) AND V>REF(V1)*1.6)NODRAWCOLORYELLOW;
{JCCOUNT:=COUNT(CROSS(DIFFDEA)BARSLAST(DEA>=0));
牛眼:=CROSS(DIFFDEA) AND DEA<0 AND V>REF(V1)*2) AND COUNT(JCCOUNT=N22)=1;}
{画图标}
DRAWICON(牛眼-0.0138);
DRAWTEXT(牛眼-0.02'牛眼')COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFFDEA)1));
B1:=REF(CA1+1)>C AND REF(DIFFA1+1)<DIFF AND CROSS(DIFFDEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(933)"KDJ.D"(933))1));
B2:=REF(CA2+1)>C AND REF("KDJ.K"(933)A2+1)<"KDJ.K"(933) AND CROSS
("KDJ.K"(933)"KDJ.D"(933));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(61224)"RSI.RSI2"(61224))1));
B3:=REF(CA3+1)>C AND REF("RSI.RSI1"(61224)A3+1)<"RSI.RSI1"(61224) AND
CROSS("RSI.RSI1"(61224)"RSI.RSI2"(61224));
C1:=BARSLAST(REF(CROSS(DEADIFF)1));
D1:=REF(CC1+1)<C AND REF(DIFFC1+1)>DIFF AND CROSS(DEADIFF);
C2:=BARSLAST(REF(CROSS("KDJ.D"(933)"KDJ.K"(933))1));
D2:=REF(CC2+1)<C AND REF("KDJ.K"(933)C2+1)>"KDJ.K"(933) AND CROSS
("KDJ.D"(933)"KDJ.K"(933));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(61224)"RSI.RSI1"(61224))1));
D3:=REF(CC3+1)<C AND REF("RSI.RSI1"(61224)C3+1)>"RSI.RSI1"(61224) AND
CROSS("RSI.RSI2"(61224)"RSI.RSI1"(61224));
{指标底背标示}
{MACD底背:IF(B1>0-0.10)COLORREDPOINTDOT;}
KDJ底背:IF(B2>0-0.10)COLORFF00FFPOINTDOT;
RSI底背:IF(B3>0-0.10)COLORYELLOWPOINTDOT;
{STICKLINE(B1>0-0.1020)COLORRED;}
STICKLINE(B2>0-0.1010)COLORFF00FF;
STICKLINE(B3>0-0.1010)COLORYELLOW;
{指标顶背标示}
{MACD顶背:IF(D1>00.10)COLOR00FF00POINTDOT;}
KDJ顶背:IF(D2>00.10)COLORFFCC66POINTDOT;
RSI顶背:IF(D3>00.10)COLORWHITEPOINTDOT;
{STICKLINE(D1>00.1020)COLOR00FF00;}
STICKLINE(D2>00.1010)COLORFFCC66;
STICKLINE(D3>00.1010)COLORWHITE;
{画图标}
{DRAWICON(D2>002);
DRAWICON(D3>002);}
{画变色线}
{STICKLINE(MACD>REF(MACD1) AND MACD>00MACD00)COLORRED;
STICKLINE(MACD<=REF(MACD1) AND MACD>00MACD00)COLORYELLOW;
STICKLINE(MACD<REF(MACD1) AND MACD<00MACD00)COLORCYAN;
STICKLINE(MACD>=REF(MACD1) AND MACD<00MACD00)COLORMAGENTA;
STICKLINE(C>000501)COLORBLUE;
NOTEXT强:IF(DIFF>MA(DIFF2)DIFFDRAWNULL)COLORRED;
NOTEXT弱:IF(DEA>MA(DEA2)DEADRAWNULL)COLORMAGENTA;}
{VARA1:=(DVOL/C)/2NODRAW;
VARA2:=SUM(IF(VARA1>100 AND CLOSE>REF(CLOSE1)VARA10)0);
VARA3:=SUM(IF(VARA1>100 AND CLOSE<REF(CLOSE1)VARA10)0);
VARA4:=SUM(IF(VARA1<100 AND CLOSE>REF(CLOSE1)VARA10)0);
VARA5:=SUM(IF(VARA1<100 AND CLOSE<REF(CLOSE1)VARA10)0);
VARA6:=VARA2+VARA3+VARA4+VARA5;
机买:=(VARA2/VARA6)*100LINETHICK2COLORRED;
机卖:=(VARA3/VARA6)*100LINETHICK2COLORGREEN;
主力差:=机买-机卖LINETHICK2NODRAW;
强度:主力差-REF(主力差1)NODRAWCOLORYELLOW;
STICKLINE(强度>1.5-0.1020)COLORYELLOW;
近期:BARSLAST(强度>1.5)NODRAWCOLORGRAY;}
低位金叉:=CROSS(DIFFDEA) AND DIFF<-0.1;
{STICKLINE(低位金叉0-0.1820)COLORYELLOW;}
{DRAWTEXT(低位金叉DEA-0.02' 低位金叉')COLORYELLOW;}
JCCOUNT:=COUNT(CROSS(DIFFDEA)BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFFDEA) AND DEA<0 AND COUNT(JCCOUNT=221)=1;
{STICKLINE(二次金叉0-0.1820)COLORFF00FF;}
{DRAWICON(二次金叉DEA*0.0213); }
DRAWTEXT(二次金叉DEA-0.03' 二次金叉')COLORWHITE;
{自动画线}
AB1:=BARSLAST(REF(CROSS(DIFFDEA)1));
底背离:=REF(CLOSEAB1+1)>CLOSE AND DIFF>REF(DIFFAB1+1) AND CROSS(DIFFDEA);
{STICKLINE(底背离00.1320)COLOR00FF00;}
DRAWLINE(AB1=0DEA底背离DEA0)COLORREDDOTLINELINETHICK1;
DRAWTEXT(底背离DEA+0.05' 底背离')COLORRED;
AB2:=BARSLAST(REF(CROSS(DEADIFF)1));
顶背离:=REF(CLOSEAB2+1)<CLOSE AND REF(DIFFAB2+1)>DIFF AND CROSS(DEADIFF);
DRAWLINE(AB2=0DEA顶背离DEA0)COLORGREENDOTLINELINETHICK1;
DRAWTEXT(顶背离DEA-0.02' 顶背离')COLORLIGREEN;
{N:=7{2100}
{M:=5{2100}
{VAR1:=(CLOSE-LLV(LOW60))/(HHV(HIGH60)-LLV(LOW60))*80;
B:=SMA(VAR1N1);
VAR2:=SMA(BM1);
短买:CROSS(BVAR2) AND B<40NODRAWCOLORRED;
DRAWICON(短买011);};
{高送转提示}
DRAWTEXT_FIX(10.0000'送转分红：')COLORGRAY;
DRAWTEXT_FIX(10.1000EXTERNSTR(011))COLORLIGRAY;
N:=BARSLAST(CROSS(DEA0));
VAR1:=LLV(DEAN-2)>0 AND SUM(IF(REF(CROSS(DEADIFF)1)10)N)=0 AND CROSS
(DEADIFF);
N1:=BARSLAST(VAR1);
VAR2:=LLV(DEAN-2)>0 AND SUM(IF(REF(CROSS(DEADIFF)1)10)N)=1 AND CROSS
(DEADIFF);
N2:=BARSLAST(VAR2);
减持:=VAR2 AND REF(DEAN2+1)>REF(DEAN1+1);
大减:=VAR2 AND REF(DEAN2+1)<REF(DEAN1+1) AND REF(CN2+1)<REF(CN1+1);
清仓:=VAR2 AND REF(DEAN2+1)<REF(DEAN1+1) AND REF(CN2+1)>REF(CN1+1);
BB1:=减持 OR 大减 OR 清仓;
DRAWTEXT(减持DEA+0.02'减持')COLORGREEN;
DRAWTEXT(大减DEA+0.02'大减')COLORCYAN;
DRAWTEXT(清仓DEA+0.02'清仓');
小N:BARSLAST(BB1)NODRAW;
YQXC:=SUM(IF(CROSS(0DEA)10)小N)=1;
NN:BARSLAST(CROSS(0DEA))NODRAW;
VARB1:=HHV(DEANN-2)<0 AND SUM(IF(REF(CROSS(DIFFDEA)1)10)NN)=0 AND CROSS
(DIFFDEA);
NN1:BARSLAST(VARB1)NODRAW;
VARB2:=HHV(DEANN-2)<0 AND SUM(IF(REF(CROSS(DIFFDEA)1)10)NN)=1 AND CROSS
(DIFFDEA);
NN2:BARSLAST(VARB2)NODRAW;
增持:=VARB1 AND YQXC=1;
全仓:=VARB2 AND REF(DEANN2+1)>REF(DEANN1+1) AND YQXC=1;
开仓:=IF(全仓0VARB2 AND REF(DEANN2+1)>REF(DEANN1+1));
DRAWTEXT(增持DEA-0.05'增持')COLORRED;
DRAWTEXT(全仓DEA-0.05'全仓')COLORMAGENTA;
DRAWTEXT(开仓DEA-0.05'开仓')COLORYELLOW;