通达信主力控盘幅图公式 优化版

用法：灰色柱开始出现---表现为主力开始控盘，红色柱50以上--表现为主力高度控盘，兰柱青色芯---主力开始减仓即派发，这时不要贪，与主力采取同步操作获利了结。青色柱阶段--持币休息。特别是图中下方出现青色小方格时，更要耐心持币等待进场机会的到来!优化后的“主力控盘”指标，增加了--主力进场--主力洗盘--持股区--超买--超卖--低买--卖出等参考判断!请与MACD--VOL--DMI配合使用，效果更佳股

B1:=(HHV(H,12)-C)/(HHV(H,12)-LLV(LOW,12))*100- 38;
 B2:=SMA(B1,12,1)+100;
 B3:=(C-LLV(L,12))/(HHV(H,12)- LLV(L,12))*100;
 B4:=SMA(B3,3,1);
 B5:=SMA(B4,3,1)+100;
 B6:=B5-B2;
控盘程度:(IF(B6>11,B6-1,0)),COLORYELLOW,NODRAW;
控盘度:=50,COLORRED;
 STICKLINE( 控盘程度,0,控盘程度 ,2,0 ),COLORA05858;
 STICKLINE( 控盘程度 AND 控盘程度>50,50,控盘程度 ,2,0 ),COLORRED;
 STICKLINE( 控盘程度50,控盘程度,50,3,0 ),COLORBLUE;
 STICKLINE( 控盘程度  STICKLINE( 控盘程度50,控盘程度,50,0.3,0 ),COLORGREEN;
 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);
 PVAR4:=LLV(LOW,33);
 PVAR5:=EMA(IF(LOW<=PVAR4,PVAR3,0),3);
主力进场:IF(PVAR5>REF(PVAR5,1),PVAR5,0),COLORRED,LINETHICK1;
 STICKLINE(PVAR5>REF(PVAR5,1),0,PVAR5,3,0 ),COLORRED;
主力洗盘:IF(PVAR5  STICKLINE(PVAR5  ATR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
 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;
 {持币区:IF(持币<0,0,DRAWNULL),COLORGREEN, LINETHICK2;}
持股区:IF(持币>0,持币,0),COLORMAGENTA, LINETHICK2;
 (IF(主力洗盘>0.01 AND 主力洗盘<0.05,70,0)),LINETHICK2;
 DRAWTEXT(FILTER((IF(主力洗盘>0.01 AND 主力洗盘<0.05,58,0))=58,9),60,'洗盘即将结束'),COLORRED;
 VAR51:=3;
 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));
准备启动:=CROSS(VAR52,VAR51),STICK,COLORRED;
 DRAWICON(准备启动>0,-8,34);
 PLOWV:=LLV(LOW,17);
 PHIGHV:=HHV(HIGH,17);
偏RSV:=EMA((CLOSE-PLOWV)/(PHIGHV-PLOWV)*100,6);
偏K:=EMA(偏RSV,3),COLORCYAN;
偏D:=MA(偏K,3),COLORBROWN;
 P:=(C-MA(C,5))*100/MA(C,5);
偏5线:IF(P>0,P,0),COLORYELLOW,NODRAW;
超买:IF(偏K>=79,偏K,110),DOTLINE,COLORGREEN,LINETHICK2;
危险:IF(偏K>=90,偏K,110),DOTLINE,COLORRED;
超卖:IF(偏K<15,-偏K,0),DOTLINE,COLORRED,LINETHICK2;
 TJ1:=((C-LLV(LOW,22))/(HHV(HIGH,22)-LLV(LOW,22)))*110;
 TJF:=SMA(TJ1,10,2);
 TJFF:=SMA(TJ1,17,3);
 DRAWBAND(TJF,RGB(250,110,110),TJFF,RGB(10,250,10));
日K:=("KDJ.K"(27,6,4)),COLORWHITE;
日D:=("KDJ.D"(27,6,4)),COLORWHITE,LINETHICK2;
 STICKLINE( 控盘程度=0 AND 日K<日D,0,3,3,1 ),COLORCYAN;
 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,COLORGREEN;
 AZ:=CROSS(GSSS,BBBB) AND BBBB<25;
 AZ1:=CROSS(BBBB,GSSS) AND BBBB<100 ;
 DRAWTEXT(AZ,BBBB,'低买'),COLORYELLOW;
 DRAWTEXT(AZ1 AND 日K>75,100,'卖出'),COLORWHITE;