庄家控盘洗盘吸筹副图 ，精品通达信源码分享

{庄家控盘洗盘吸筹}

VAR1:=(3*CLOSE+OPEN+HIGH+LOW)/6;

MA12:=EMA(VAR1,12);

MA36:=EMA(VAR1,36);

MA108:=EMA(VAR1,108);

MA250:=EMA(VAR1,250);

控盘度:(EMA(VAR1,12)-REF(EMA(VAR1,36),1))/REF(EMA(VAR1,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;

DRAWICON(高度控盘>0 AND 控盘度>=60 AND 高度控盘< 50,控盘度+20,23);

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;{公式平台，公式源码 http://www.gspt.com}

VAR5:=IF(CODELIKE('688'),0,1);

VAR6:=COST(85);

VAR7:=COST(15);

VAR8:=VAR6-VAR7;

gsptcom:=(VAR6+VAR7)/2;

筹码:=VAR8/gsptcom*100< 30,LINETHICK0;

BU1:=HHV(HIGH,250);

BU2:=LLV(LOW,250);

BU3:=BU1-BU2;

BU4:=(gsptcom-BU2);

比例:=gsptcom< (BU3*04+BU2),LINETHICK0;

吸筹结束:=筹码 AND 比例;

BU5:=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 BU4 AND WINNER(C)>=0.90 AND BU5 AND C/REF(C,1)>1.092 AND C=H AND C< 40 AND VAR5 AND 公式平台< 20 ,10),NODRAW;

STICKLINE(强庄,控盘度,-10,1,0),COLORFF0080;