通达信主力控盘优化版选股指标公式源码

通达信主力控盘优化版选股指标公式源码

源码正文：

B1:=(HHV(H,12)-C)/(HHV(H,12)-LLV(LOW,12))*100- 38{XG51};
B2:=SMA(B1,12,1)+100{XG51};
B3:=(C-LLV(L,12))/(HHV(H,12)- LLV(L,12))*100{XG51};
B4:=Sma(B3,3,1){XG51};
B5:=SMA(B4,3,1)+100{XG51};
B6:=B5-B2{XG51};
控盘程度:(IF(B6>11,B6-1,0)),COLORBLUE,NODRAW{XG51};
控盘度:=50,COLORWHITE{XG51};
stICKLINE( 控盘程度,0,控盘程度 ,2,0 ),COLORA05858{XG51};
STICKLINE( 控盘程度 AND 控盘程度>50,50,控盘程度 ,2,0 ),COLORWHITE{XG51};
STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度>50,控盘程度,50,3,0 ),COLORYELLOW{XG51};
STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度<50,控盘程度,0,3,0 ),COLORGREEN{XG51};
STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度>50,控盘程度,50,0.3,0 ),COLORCYAN{XG51};
PVAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
PVAR2:=SMA(Abs(LOW-PVAR1),13,1)/SMA(MAX(LOW-PVAR1,0),10,1);
PVAR3:=ema(PVAR2,10){XG51};
PVAR4:=LLV(LOW,33){XG51};
PVAR5:=EMA(IF(LOW<=PVAR4,PVAR3,0),3){XG51};
主力进场:IF(PVAR5>REF(PVAR5,1),PVAR5,0),COLORWHITE,LINETHICK1{XG51};
STICKLINE(PVAR5>REF(PVAR5,1),0,PVAR5,3,0 ),COLORWHITE{XG51};
主力洗盘:IF(PVAR5<REF(PVAR5,1),PVAR5,0),COLORCYAN,LINETHICK1{XG51};
STICKLINE(PVAR5<REF(PVAR5,1),0,PVAR5,3,0),COLORCYAN;
ATR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14){XG51};
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
pdi:=DMP*100/ATR;
mdi:=DMM*100/ATR;0;
持币:=PDI-MDI{XG51};
持股区:IF(持币>0,持币,0),COLORLIMAGENTA, LINETHICK2{XG51};
(IF(主力洗盘>0.01 AND 主力洗盘<0.05,70,0)),LINETHICK2{XG51};
DRAWTEXT(FILTER((IF(主力洗盘>0.01 AND 主力洗盘<0.05,58,0))=58,9),60,'洗盘即将结束'),COLORWHITE{XG51};
VAR51:=3{XG51};
VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)){XG51};
准备启动:=crOSS(VAR52,VAR51),STICK,COLORWHITE{XG51};
DRAWICON(准备启动>0,-8,34){XG51};
PLOWV:=LLV(LOW,17){XG51};
PHIGHV:=HHV(HIGH,17){XG51};
偏RSV:=EMA((CLOSE-PLOWV)/(PHIGHV-PLOWV)*100,6){XG51};
偏K:=EMA(偏RSV,3),COLORGREEN{XG51};
偏D:=MA(偏K,3),COLORGRAY{XG51};
P:=(C-MA(C,5))*100/MA(C,5){XG51};
偏5线:IF(P>0,P,0),COLORBLUE,NODRAW{XG51};
超买:IF(偏K>=79,偏K,110),DOTLINE,COLORCYAN,LINETHICK2{XG51};
危险:IF(偏K>=90,偏K,110),DOTLINE,COLORWHITE{XG51};
超卖:IF(偏K<15,-偏K,0),DOTLINE,COLORWHITE,LINETHICK2{XG51};
TJ1:=((C-LLV(LOW,22))/(HHV(HIGH,22)-LLV(LOW,22)))*110{XG51};
TJF:=SMA(TJ1,10,2){XG51};
TJFF:=SMA(TJ1,17,3){XG51};
DRAWBAND(TJF,RGB(250,110,110),TJFF,RGB(10,250,10)){XG51};
日K:=("kdj.K"(27,6,4)),COLORRED{XG51};
日D:=("kdJ.D"(27,6,4)),COLORRED,LINETHICK2{XG51};
STICKLINE( 控盘程度=0 AND 日K<日D,0,3,3,1 ),COLORGREEN{XG51};
GVAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
GVAR2:=SMA(GVAR1,3,1);
GVAR3:=SMA(GVAR2,3,1);
GVAR4:=SMA(GVAR3,3,1);
BBBB:=GVAR3;
GAA:=LLV(LOW,36);
GBB:=HHV(HIGH,20);
GDD:=(EMA(((CLOSE-GAA)/(GBB-GAA))*(4),4))*(25);
GSSS:=GDD*0.93,COLOR0000FF,LINETHICK2,COLORCYAN;
AZ:=CROSS(GSSS,BBBB) AND BBBB<25{XG51};
AZ1:=CROSS(BBBB,GSSS) AND BBBB<100 {XG51};
DRAWTEXT(AZ,BBBB,'低买'),COLORBLUE{XG51};
DRAWTEXT(AZ1 AND 日K>75,100,'卖出'),COLORRED{X-G-5~1-C-N-{};