通达信与庄翩翩起舞，副图+选股公式源码

顶:80,COLORYELLOW,LINETHICK2;

底:20,COLORWHITE,LINETHICK2;

DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD1:=(DIF-DEA)*2;

主力潜入:COUNT(MACD1< 0,10)=10,COLORLIRED;

STICKLINE(主力潜入,0,MACD1*200,1,0),COLORLIRED;

庄家:=EMA(EMA(CLOSE,10),10);

现价:=(庄家-REF(庄家,1))/REF(庄家,1)*1000;

STICKLINE(现价< REF(现价,1) AND 现价< 0,现价,0,2,0),COLORBLUE;

打压吸筹:IF(现价< REF(现价,1) AND 现价< 0,现价,0)COLORBLUE,NODRAW;

上价:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;

下价:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;

中价:=MAX(EMA(上价,1)-EMA(下价,5),0)*200;

与庄共舞:EMA(中价,5)STICK,COLORRED;

STICKLINE(与庄共舞< REF(与庄共舞,1),0,与庄共舞,1,0),COLOR00FF00;

STICKLINE(现价< REF(现价,1) AND 现价>0,现价,0,1,0),COLOR00FF00;

庄家出货:IF(现价< REF(现价,1) AND 现价>0,现价,0),COLOR00FF00,NODRAW;

RSV:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3))*100;

K:EXPMA(EXPMA(EXPMA(RSV,3),3),3),COLORCYAN;

D:SMA(K,2,1),COLORWHITE;

J:3*K-2*D,COLORMAGENTA,LINETHICK2;

VARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;

DRAWICON(CROSS(82,VARR1),10,15);

DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD1:=(DIF-DEA)*2;

主力潜入:=COUNT(MACD1< 0,10)=10;

主力潜入=1 AND   REF(主力潜入,1)=0;