通达信MACD庄家抬轿指标公式副图源码说明

 

几天前看到  涨声一翩 在论坛发的公式 （通达信MACD庄家抬轿指标公式 ） 有错误，第一：无图；第二，通不过。而涨声一翩对回帖中提到的错误是千呼万唤不回来。
于是，我决定更正后予以重发，经过试验，我这个的能通过，还有图作证。至于使用方法，想必只要识字的朋友，一看就明白！
{公式在线提供：www.gszx.com.cn}

通达信MACD庄家抬轿指标公式
JH:=VOL*CLOSE;
JHO:=SUM(JH,2)/SUM(VOL,2);
JH0:=EMA(JHO,10);
AAA:=(JHO-JH0)*20/JHO;
超:=STICKLINE(AAA>0 AND AAA>=REF(AAA,1),0,AAA,3,0),COLORLIRED;
级:=STICKLINE(AAA>0 AND AAA 好:=STICKLINE(AAA<0 AND AAA>=REF(AAA,1),0,AAA,3,1),COLORGREEN;
的:=STICKLINE(AAA<0 AND AAA 公:=EMA(IF(AAA>0 AND AAA 式:=CROSS(REF(公,1),公) AND 公>0;
谢:=EMA(IF(AAA<0 AND AAA 了:=CROSS(REF(谢,1),谢) AND 谢<0;
必买:=CROSS(C,DRAWLINE(HIGH>=HHV(HIGH,30),HIGH,LOW<=LLV(LOW,10),HHV(HIGH,6),1));
WY1001:=(2*CLOSE+HIGH+LOW)/4;
WY1002:=EMA(WY1001,4);
WY1003:=EMA(WY1002,4);
WY1004:=EMA(WY1003,4);
X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000;
X1:=IF(X XO:=MA(X,2),COLOR9932CD;
SI:=REF(X,1);
STICKLINE(X>SI,X,SI,2.3,0),COLOR0000FF;
STICKLINE(X>SI,X,SI,0.3,0),COLORCC66FF;
STICKLINE(X STICKLINE(X STICKLINE(式,X,SI,2.15,0),COLOR545454;
STICKLINE(了,X,SI,2.15,0),COLORDB7093;
VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,3,0),COLORWHITE;
AA1:=CROSS(控盘,0);
无庄控盘:IF(控盘<0,控盘,0),COLORWHITE,NODRAW;
轻度控盘:STICKLINE(控盘<0 AND 0.9*控盘>REF(控盘,1),控盘,0,3,0),COLORYELLOW;
轻度出货:STICKLINE(控盘<0 AND 1.1*控盘 开始控盘:=IF(AA1,5,0),LINETHICK1,COLORYELLOW;
有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORRED,NODRAW;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLORRED;
VAR2:=100*WINNER(CLOSE*0.95);
高度控盘:IF(VAR2>50 AND COST(85)0,控盘,0),COLORFF00FF,NODRAW;
STICKLINE(VAR2>50 AND COST(85)0,控盘,0,3,0),COLORFF00FF;
主力出货:IF(控盘0,控盘,0),COLOR00FF00,NODRAW;
STICKLINE(控盘<1.2*REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLOR00FF00;
DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA1:=EMA(DIF1,9);
{柱状线}
MACD1:=(DIF1-DEA1)*2*60;
MACD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORRED,LINETHICK1;
MACD下:IF(MACD1 STICK,COLORFF9900,LINETHICK1;
{买点提示}
A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
BL:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);
{STICKLINE(BL,0,1,2,0),COLOR00FF00;}
买点:DRAWICON(BL,DEA1,23);
A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1));
DBL:=REF(CLOSE,A2+1)DIF1 AND CROSS(DEA1,DIF1);
买点1:DRAWICON(DBL,DEA1,12);
低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1;
DRAWTEXT(低位金叉,-0.36,' 低位金叉');
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA1*1.04,13) ;
DRAWTEXT(二次金叉,-0.22,' 二次金叉'),C