通达信资金热度副图指标源码

AA:=IF(CLOSE< 0,0,SUM(IF(CLOSE>REF(CLOSE,1) AND VOL>REF(VOL,1),VOL,0),2));

BB:=IF(CLOSE< 0,0,SUM(IF(CLOSE< REF(CLOSE,1) AND VOL< REF(VOL,1),VOL,0),2));

DD:=IF(CLOSE< 0,0,AA-BB);

X0:=IF(CLOSE< 0,0,IF(DD>0 AND (CLOSE/REF(CLOSE,1)-1)*100>0,AMOUNT/100,0));

X1:=IF(CLOSE< 0,0,IF(DD< 0 AND (CLOSE/REF(CLOSE,1)-1)*100< 0,AMOUNT/100,0));

DDX:IF(CLOSE< 0,0,(X0-X1)/CAPITAL*CLOSE/100),NODRAW;

选股:IF(CLOSE< 0,0,DDX>=0 AND (CLOSE/REF(CLOSE,1)-1)*100>4),NODRAW;

DRAWTEXT(选股,DDX*1.06,'★买'),LINETHICK2,COLORYELLOW;

STICKLINE(DDX>0,0,DDX,3.5,0),COLOR00AAAA;

STICKLINE(DDX>0,0,DDX,3,0),COLOR00BBBB;

STICKLINE(DDX>0,0,DDX,2.5,0),COLOR00CCCC;

STICKLINE(DDX>0,0,DDX,2,0),COLOR00DDDD;

STICKLINE(DDX>0,0,DDX,1,0),COLOR00EEEE;

STICKLINE(DDX>0,0,DDX,0.3,0),COLOR00FFFF;

STICKLINE(DDX< 0,0,DDX,3.5,0),COLORFF9900;

STICKLINE(DDX< 0,0,DDX,3,0),COLORFFAA00;

STICKLINE(DDX< 0,0,DDX,2.5,0),COLORFFBB00;

STICKLINE(DDX< 0,0,DDX,2,0),COLORFFCC00;

STICKLINE(DDX< 0,0,DDX,1,0),COLORFFDD00;

STICKLINE(DDX< 0,0,DDX,0.3,0),COLORFFEE00;

周净流入:SUM(X0-X1,5),COLOR6622FF,NODRAW;

DDX1:=EMA(DDX,60)*15.367;

DDX2:=MA(DDX1,5);

DDX3:=MA(DDX1,10);

天:=COUNT(X0-X1>0,5);

SNJW:="KDJ.J" - REF("KDJ.J",1) > 30 AND CLOSE / REF(CLOSE,1) > 1.043 AND "MACD.MACD" > 0 AND "MACD.DEA" > 0;

DRAWTEXT(SNJW,DDX*0.6,'★九稳'),LINETHICK2,COLORYELLOW;

上影部分:=(H-C)/(H-L);

实体部分:=(C-O)/(H-L);

下影部分:=(O-L)/(H-L);

拉中:=实体部分*0.8*V;

拉上:=上影部分*0.2*V;

拉下:=下影部分*0.2*V;

洗中:=实体部分*0.2*V;

洗上:=上影部分*0.8*V;

洗下:=下影部分*0.8*V;

Z:=拉中+拉上+拉下;

F:=洗中+洗上+洗下;

燃料:(Z-F)/10000,NODRAW;

温度:(C-MA(C,24))/MA(C,240)*100,NODRAW;

STICKLINE( 燃料>0,0,DDX/2,2,0),COLORRED;

VAR260:=EMA(CLOSE,2)-EMA(CLOSE,150);

VAR270:=EMA(VAR260,100);

VAR280:=2*(VAR260-VAR270);

VAR290:=POW(VAR280,3)*0.1+POW(VAR280,1);

龙抬头:=IF( VAR280>0.1,VAR290,0)*5;

TSWR:=REF(龙抬头,1)=0 AND REF(龙抬头,2)=0 AND REF(龙抬头,3)=0 AND 龙抬头>0;

SC:=100*(CLOSE-MA(CLOSE,26));

MAO:=EMA(SC,9);

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

VAR2G:=EMA(VAR1G,13)-EMA(VAR1G,26);

VAR3G:=EMA(VAR2G,2);

A11:=(-2)*(VAR2G-VAR3G)*10000;

B11:=2*(VAR2G-VAR3G)*10000;

必涨A:=CROSS(B11,A11);

DRAWTEXT(TSWR>0.1 AND CROSS(SC,MAO),0,'↑  马'),COLORMAGENTA;

DRAWTEXT(TSWR>0.1 AND 必涨A,0,'↑庄'),COLORMAGENTA;

原理解析：
AA赋值:IF(收盘价< 0,0,SUM(IF(收盘价>1日前的收盘价 AND 成交量>1日前的成交量,成交量,0),2))
BB赋值:IF(收盘价< 0,0,SUM(IF(收盘价< 1日前的收盘价 AND 成交量< 1日前的成交量,成交量,0),2))
如果收盘价< 0返回0否则返回AA-BB
X0赋值:IF(收盘价< 0,0,IF(DD>0 AND (收盘价/1日前的收盘价-1)*100>0,成交额/100,0))
X1赋值:IF(收盘价< 0,0,IF(DD< 0 AND (收盘价/1日前的收盘价-1)*100< 0,成交额/100,0))
DDX:IF(收盘价< 0,0,(X0-X1)/当前流通股本*收盘价/100),NODRAW
输出选股:IF(收盘价< 0,0,DDX>=0 AND (收盘价/1日前的收盘价-1)*100>4),NODRAW
当满足条件选股时,在DDX*1.06和'★买'位置书写文字
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX>0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
当满足条件DDX< 0时,在0和DDX之间画柱状线
输出周净流入:5的X0-X1日累和,COLOR6622FF,NODRAW
DDX1赋值:DDX的60日指数移动平均*15.367
DDX2:=DDX1的5日简单移动平均
DDX3:=DDX1的10日简单移动平均
天赋值:统计5日满足X0-X1>0的天数
SNJW赋值:"KDJ.J" - 1日前的"KDJ.J" > 30 AND 收盘价 / 1日前的收盘价 > 1.043 AND "MACD.MACD" > 0 AND "MACD.DEA" > 0
当满足条件SNJW时,在DDX*0.6和'★九稳'位置书写文字
上影部分赋值:(H-C)/(H-L)
实体部分赋值:(C-O)/(H-L)
下影部分赋值:(O-L)/(H-L)
拉中赋值:实体部分*0.8*V
拉上赋值:上影部分*0.2*V
拉下赋值:下影部分*0.2*V
洗中赋值:实体部分*0.2*V
洗上赋值:上影部分*0.8*V
洗下赋值:下影部分*0.8*V
Z赋值:拉中+拉上+拉下
F赋值:洗中+洗上+洗下
输出燃料:(Z-F)/10000,NODRAW
输出温度:(C-C的24日简单移动平均)/C的240日简单移动平均*100,NODRAW
当满足条件 燃料>0时,在0和DDX/2之间画柱状线
VAR260赋值:收盘价的2日指数移动平均-收盘价的150日指数移动平均
VAR270赋值:VAR260的100日指数移动平均
VAR280赋值:2*(VAR260-VAR270)
VAR290赋值:POW(VAR280,3)*0.1+POW(VAR280,1)
如果 VAR280>0.1返回VAR290否则返回0
TSWR赋值:1日前的龙抬头=0 AND 2日前的龙抬头=0 AND 3日前的龙抬头=0 AND 龙抬头>0
SC赋值:100*(收盘价-收盘价的26日简单移动平均)
MAO赋值:SC的9日指数移动平均
VAR1G赋值:(收盘价*2+最高价+最低价)/4
VAR2G赋值:VAR1G的13日指数移动平均-VAR1G的26日指数移动平均
VAR3G赋值:VAR2G的2日指数移动平均
A11赋值:(-2)*(VAR2G-VAR3G)*10000
B11赋值:2*(VAR2G-VAR3G)*10000
必涨A赋值:B11上穿A11
DRAWTEXT(TSWR>0.1 AND SC上穿MAO,0,'↑  马'),画洋红色
当满足条件TSWR>0.1 AND 必涨A时,在0和'↑庄'位置书写文字