通达信主力建仓+吸筹副图指标 主力力度色块越多主力越强！源码

VAR1:=REF(LOW,1);

 VAR2:=SMA(ABS(LOW-VAR1),3,1)/SMA(MAX(LOW-VAR1,0),3,1)*100;

 VAR3:=EMA(IF(CLOSE*1.2,VAR2*10,VAR2/10),3);

 VAR4:=LLV(LOW,38);

 VAR5:=HHV(VAR3,38);

 VAR6:=IF(LLV(LOW,90),1,0);

 VAR7:=EMA(IF(LOW<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6;

 VAR8:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;

 VAR9:=SMA(VAR8,13,8);

 底线:0,COLOR00FFFF;

 主力吸货:IF(VAR7>100,99+(VAR7)/100,VAR7),COLOR0000FF;

 吸筹1:STICKLINE(VAR7,0,主力吸货,6,0),COLOR0000FF;

 吸筹2:STICKLINE(VAR7,0,主力吸货,5,0),COLOR6600FF;

 吸筹3:STICKLINE(VAR7,0,主力吸货,4,0),COLORBB00FF;

 吸筹4:STICKLINE(VAR7,0,主力吸货,3,0),COLORFF00FF;

 吸筹5:STICKLINE(VAR7,0,主力吸货,2,0),COLORFF33FF;

 吸筹6:STICKLINE(VAR7,0,主力吸货,1,0),COLORFF66FF;

 吸筹7:STICKLINE(VAR7,0,主力吸货,0,0),COLORFF99FF;

 风险:CEILING(SMA(VAR9,13,8)),LINETHICK2,COLORGREEN;

 涨跌:MA(3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*

 SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1),5),LINETHICK2,COLORRED;

{主力抢筹}

VART1:=EMA(EMA(CLOSE,3),1);

控:=(VART1-REF(VART1,1))/REF(VART1,1)*1000;

控盘:=IF(控>30,控,0);

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,3,0),COLORYELLOW;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,2.6,0),COLOR0000E5;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,2.4,0),COLOR335555;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,1.8,0),COLOR338888;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,1.2,0),COLOR33AAAA;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,0.6,0),COLOR33CCCC;

STICKLINE(控盘>REF(控盘,3) AND 控盘>120,120,0,0.3,0),COLOR33EEEE;



STICKLINE(控盘>REF(控盘,3) AND 控盘>0 AND 控盘<120,控盘,0,3.5,0),COLOR000088;

STICKLINE(控盘>REF(控盘,3) AND 控盘>0 AND 控盘<120,控盘,0,2.5,0),COLOR0000AA;

STICKLINE(控盘>REF(控盘,3) AND 控盘>0 AND 控盘<120,控盘,0,1.5,0),COLOR0000CC;

STICKLINE(控盘>REF(控盘,3) AND 控盘>0 AND 控盘<120,控盘,0,1,0),COLOR0000EE;

主力抢筹:IF(控盘>REF(控盘,3) AND 控盘>0,控盘,0),NODRAW,COLOR0000FF;

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR008800;

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR00AA00;

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR00CC00;

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR00EE00;







对倒出货洗盘:IF(控盘<REF(控盘,3) AND 控盘>0,控盘,0),NODRAW,COLOR00FF00; 

WY1001:=(2*CLOSE+HIGH+LOW)/4;

WY1002:=EMA(WY1001,4);

WY1003:=EMA(WY1002,4);

WY1004:=EMA(WY1003,4);

XYS0:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100;

PJGJ:=AMOUNT/VOL/100;

SSRYDJX:=MA(PJGJ,13);

SSRCJL:=EMA(VOL,13);

SSRCJE:=EMA(AMOUNT,13);

SSRCBJX:=SSRCJE/SSRCJL/100;

CYS13:=(CLOSE-SSRCBJX)/SSRCBJX*100;

XYSHSL:=EMA(VOL/CAPITAL*100,13);

STICKLINE(XYSHSL>6.1 AND CYS13>5 ,20 ,0 ,1 ,0 ),COLORGREEN;

STICKLINE(XYSHSL>3.8 AND CYS13>5 ,15 ,0 ,1 ,0 ),COLORYELLOW;

STICKLINE(XYSHSL>2.1 AND CYS13>5 ,10 ,0 ,1,0 ),COLORCYAN;

STICKLINE(XYSHSL>1.8 AND CYS13>5 ,5 ,0 ,1 ,0 ),COLORBLUE;

80;

原理解析：
VAR1赋值:1日前的最低价
VAR2赋值:SMA(最低价-VAR1的绝对值,3,1)/SMA(最低价-VAR1和0较大值,3,1)*100
如果收盘价*1.2返回VAR2*10否则返回VAR2/10
VAR4赋值:38日内最低价最低值
VAR5赋值:38日内VAR3最高值
VAR6赋值:IF(90日内最低价最低值,1,0)
VAR7赋值:EMA(IF(最低价<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6
VAR8赋值:((C-21日内L最低值)/(21日内H最高值-21日内L最低值))*100
VAR8的13日[8日权重]移动平均
输出底线:0,COLOR00FFFF
输出主力吸货:IF(VAR7>100,99+(VAR7)/100,VAR7),COLOR0000FF
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
当满足条件VAR7时,在0和主力吸货之间画柱状线
VAR9的13日[8日权重]移动平均
输出涨跌:MA(3*SMA((C-27日内L最低值)/(27日内H最高值-27日内L最低值)*100,5,1)-2*
SMA(SMA((C-27日内L最低值)/(27日内H最高值-27日内L最低值)*100,5,1),3,1),5), 线宽为2,画红色
{主力抢筹}
VART1赋值:收盘价的3日指数移动平均,1)
控赋值:(VART1-1日前的VART1)/1日前的VART1*1000
如果控>30返回控否则返回0
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,3,0),画黄色
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,2.6,0),COLOR0000E5
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,2.4,0),COLOR335555
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,1.8,0),COLOR338888
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,1.2,0),COLOR33AAAA
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,0.6,0),COLOR33CCCC
STICKLINE(控盘>3日前的控盘 AND 控盘>120,120,0,0.3,0),COLOR33EEEE

STICKLINE(控盘>3日前的控盘 AND 控盘>0 AND 控盘<120,控盘,0,3.5,0),COLOR000088
STICKLINE(控盘>3日前的控盘 AND 控盘>0 AND 控盘<120,控盘,0,2.5,0),COLOR0000AA
STICKLINE(控盘>3日前的控盘 AND 控盘>0 AND 控盘<120,控盘,0,1.5,0),COLOR0000CC
STICKLINE(控盘>3日前的控盘 AND 控盘>0 AND 控盘<120,控盘,0,1,0),COLOR0000EE
输出主力抢筹:IF(控盘>3日前的控盘 AND 控盘>0,控盘,0),NODRAW,COLOR0000FF
STICKLINE(控盘<3日前的控盘 AND 控盘>0,控盘,0,3.5,0),COLOR008800
STICKLINE(控盘<3日前的控盘 AND 控盘>0,控盘,0,2.5,0),COLOR00AA00
STICKLINE(控盘<3日前的控盘 AND 控盘>0,控盘,0,1.5,0),COLOR00CC00
STICKLINE(控盘<3日前的控盘 AND 控盘>0,控盘,0,1,0),COLOR00EE00

输出对倒出货洗盘:IF(控盘<3日前的控盘 AND 控盘>0,控盘,0),NODRAW,COLOR00FF00

WY1001赋值:(2*收盘价+最高价+最低价)/4
WY1002赋值:WY1001的4日指数移动平均
WY1003赋值:WY1002的4日指数移动平均
WY1004赋值:WY1003的4日指数移动平均
XYS0赋值:(WY1004-1日前的WY1004)/1日前的WY1004*100
PJGJ赋值:成交额/成交量/100
SSRYDJX赋值:PJGJ的13日简单移动平均
SSRCJL赋值:成交量的13日指数移动平均
SSRCJE赋值:成交额的13日指数移动平均
SSRCBJX赋值:SSRCJE/SSRCJL/100
CYS13赋值:(收盘价-SSRCBJX)/SSRCBJX*100
XYSHSL赋值:成交量/当前流通股本*100的13日指数移动平均
当满足条件XYSHSL>6.1 AND CYS13>5 时,在20 和0 之间画柱状线
当满足条件XYSHSL>3.8 AND CYS13>5 时,在15 和0 之间画柱状线
当满足条件XYSHSL>2.1 AND CYS13>5 时,在10 和0 之间画柱状线
当满足条件XYSHSL>1.8 AND CYS13>5 时,在5 和0 之间画柱状线
80