通达信【强庄控盘】1主2副1选指标支持手机电脑使用.主图提示强庄位为大单资金流入，副图1柱子越高代表越强，副图2有红色柱子为底部吸筹信号，此信号代表有大单在底部吸筹，出现吸筹后可结合庄家线上穿散户线为信号。
{主图源码如下}
N:=10;
T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;
低离线:=-20;
高离线:=40;
ABCC2:=CLOSE/REF(CLOSE,1)>=1.095 AND CLOSE/REF(CLOSE,1)<=1.105 OR (CLOSE/REF(CLOSE,1)>=1.195 AND CLOSE/REF(CLOSE,1)<=1.205) OR (CLOSE/REF(CLOSE,1)>=1.295 AND CLOSE/REF(CLOSE,1)<=1.305) AND CLOSE=HIGH;
STICKLINE(ABCC2,OPEN,CLOSE,1,0),COLORMAGENTA;
DRAWTEXT(ABCC2,H*1.026,' ★龙'),COLORYELLOW;
ABC1:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(ABC1,12)-REF(EMA(ABC1,36),1))/REF(EMA(ABC1,36),1)*100+50,NODRAW;
CYC13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
高度控盘:(CLOSE-CYC13)/CYC13*1000,NODRAW;
换手:=VOL/CAPITAL*100;
ABC5:=IF(CODELIKE('688'),0,1);
ABC6:=COST(85);
ABC7:=COST(15);
ABC8:=ABC6-ABC7;
ABC9:=(ABC6+ABC7)/2;
筹码:=ABC8/ABC9*100< 30,LINETHICK0;
ABC10:=HHV(HIGH,250);
ABC11:=LLV(LOW,250);
ABC12:=ABC10-ABC11;
ABC13:=(ABC9-ABC11);
比例:=ABC9< (ABC12*04+ABC11),LINETHICK0;
吸筹结束:=筹码 AND 比例;
ABC15:=C/REF(C,1)>1.04;
主力持仓%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
主力持仓:=主力持仓%>=75 AND C>0 AND CLOSE>OPEN;
强庄:=FILTER(主力持仓 AND 吸筹结束 AND ABC13 AND WINNER(C)>=0.90 AND ABC15 AND C/REF(C,1)>1.092 AND C=H AND C< 40 AND ABC5 AND 换手< 20 ,10),NODRAW;
短线成本线:EMA(CLOSE,5),LINETHICK1,COLORWHITE DOTLINE;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+ 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12) +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+ REF(A,20))/210;
中线成本线:EMA(X,34),LINETHICK2,COLORRED;
STICKLINE(强庄,O,C,1,0),COLORFF0080;
开始控盘:=BARSLASTCOUNT(高度控盘>0 AND 高度控盘>=50)=1;
STICKLINE(开始控盘,C,O,2,0),COLORYELLOW;
DRAWICON(开始控盘,L*1.002,9);
DRAWTEXT(开始控盘,L*0.93,' ↖强庄'),COLORMAGENTA;
{强庄吸筹副图源码}
M:=55;
N:=34;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(85,RSI),75,'▼'),COLORGREEN;
VAR1:=IF(YEAR>=2038 AND MONTH>=1,0,1);
VAR2:=REF(LOW,1)*VAR1;
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100*VAR1;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3)*VAR1;
VAR5:=LLV(LOW,30)*VAR1;
VAR6:=HHV(VAR4,30)*VAR1;
VAR7:=IF(MA(CLOSE,58),1,0)*VAR1;
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7*VAR1;
吸筹:IF(VAR8>100,100,VAR8)*VAR1,COLORRED;
庄家吸筹:STICKLINE(吸筹>-150,0,吸筹,3,0),COLORRED;
散户: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),COLORFFFF00,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
庄家:EMA(J,6),COLORFF00FF,LINETHICK2;
{强庄控盘副图如下}
ABC1:=(3*CLOSE+OPEN+HIGH+LOW)/6;
MA12:=EMA(ABC1,12);
MA36:=EMA(ABC1,36);
MA108:=EMA(ABC1,108);
MA250:=EMA(ABC1,250);
控盘度:=(EMA(ABC1,12)-REF(EMA(ABC1,36),1))/REF(EMA(ABC1,36),1)*100+50,NODRAW;
STICKLINE( 控盘度>50,0,控盘度-20,2.5,0),COLORFFFF00;
STICKLINE( 控盘度>=60,60,控盘度,2.5,0),COLORRED;
STICKLINE( 控盘度>=80,80,控盘度,2.5,0),COLORMAGENTA;
低控盘:IF(控盘度>=50,控盘度,0),COLORYELLOW,NODRAW;
中控盘:IF(控盘度>=60,控盘度,0),COLORRED,NODRAW;
高控盘:IF(控盘度>=80,控盘度,0),COLORMAGENTA,NODRAW;
10,COLORWHITE,DOTLINE;
CYC13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
强弱:=50,COLORYELLOW,DOTLINE;
高度控盘:=(CLOSE-CYC13)/CYC13*1000,NODRAW;
STICKLINE(高度控盘>0,0,高度控盘,3,0),COLORRED;
STICKLINE(高度控盘>0 AND 控盘度>=60,0,控盘度,3,0),COLOR00FFFF;
STICKLINE(高度控盘< 0,0,高度控盘,3,0),COLORGREEN;
庄洗盘吸筹: 控盘度>=60 AND 高度控盘< 0,COLORC08080,NODRAW;
STICKLINE( 控盘度>=60 AND 高度控盘< 0,0,控盘度,2.5,0),COLORC08080;
STICKLINE(高度控盘< -50,-50,高度控盘,3,0),COLORLIBLUE;
STICKLINE(高度控盘< -100,-100,高度控盘,3,0),COLORYELLOW;
STICKLINE(高度控盘>100,100,高度控盘,3,0),COLORLIRED;
STICKLINE(高度控盘>150,150,高度控盘,3,0),COLORMAGENTA;
换手:=VOL/CAPITAL*100;
ABC5:=IF(CODELIKE('688'),0,1);
ABC6:=COST(85);
ABC7:=COST(15);
ABC8:=ABC6-ABC7;
ABC9:=(ABC6+ABC7)/2;
筹码:=ABC8/ABC9*100< 30,LINETHICK0;
ABC10:=HHV(HIGH,250);
ABC11:=LLV(LOW,250);
ABC12:=ABC10-ABC11;
ABC13:=(ABC9-ABC11);
比例:=ABC9< (ABC12*04+ABC11),LINETHICK0;
吸筹结束:=筹码 AND 比例;
ABC15:=C/REF(C,1)>1.04;
主力持仓%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
主力持仓:=主力持仓%>=75 AND C>0 AND CLOSE>OPEN;
强庄:高度控盘>0 AND 高度控盘>=50;
开始控盘:=BARSLASTCOUNT(高度控盘>0 AND 高度控盘>=50)=1;
STICKLINE(开始控盘,0,高度控盘,1,0),COLORMAGENTA;
DRAWICON(开始控盘,50*1.002,9);
