通达信涨跌动因副图指标 源码分享 附图

VAR1:=LLV(LOW,13);

VAR2:=HHV(HIGH,13);

VAR3:=SMA((CLOSE-VAR1)/(VAR2-VAR1)*100,5,1);

VAR4:=SMA((VAR2-CLOSE)/(VAR2-VAR1)*100,5,1);

DRAWBAND(VAR3,RGB(155,50,50),50,RGB(0,100,50));

主力:VAR3,COLORRED;

散户:VAR4,COLORGREEN;

VAR5:=SMA(MAX(CLOSE-REF(CLOSE,1),0),5,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),5,1)*100;

操作:EMA(VAR5,3),COLORYELLOW;

STICKLINE(C,90,90,1,0),COLOR3C3CFF;

STICKLINE(C,50,50,1,0),COLORYELLOW;

STICKLINE(C,10,10,1,0),COLORCYAN;

N:=20;

JJ:=(HIGH+LOW+CLOSE)/3;

QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));

大单动向:20* ((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,100000000,1000000),COLOR00AAAA,LINETHICK;

DX:=(MA(大单动向,5)*N)*2;

STICKLINE(大单动向>0,50,50+大单动向*8.5,2.5,0),COLORYELLOW;

STICKLINE(大单动向<0,50,50+大单动向*8.5,2.5,0),COLORBLUE;

涨跌:=IF(BETWEEN(C,REF(C,1),H),VOL,0);

动因:=IF(BETWEEN(C,REF(C,1),L),VOL,0);

CC2:=IF(涨跌 AND 动因,0,VOL/3);

涨跌动因:3*(涨跌-(动因+CC2))/IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL),LINETHICK0;

STICKLINE(涨跌动因>0,10,10+涨跌动因*28.5,2,0 ),COLORYELLOW;

STICKLINE(涨跌动因<0,10,10+涨跌动因*28.5,2,0 ),COLORBLUE;

原理解析：
VAR1赋值:13日内最低价最低值
VAR2赋值:13日内最高价最高值
VAR3赋值:SMA((收盘价-VAR1)/(VAR2-VAR1)*100,5,1)
VAR4赋值:SMA((VAR2-收盘价)/(VAR2-VAR1)*100,5,1)
DRAWBAND(VAR3,RGB(155,50,50),50,RGB(0,100,50))
输出主力:VAR3,画红色
输出散户:VAR4,COLORGREEN
VAR5赋值:SMA(收盘价-1日前的收盘价和0较大值,5,1)/SMA(收盘价-1日前的收盘价的绝对值,5,1)*100
输出操作:VAR5的3日指数移动平均,画黄色
当满足条件C时,在90和90之间画柱状线
当满足条件C时,在50和50之间画柱状线
当满足条件C时,在10和10之间画柱状线
N赋值:20
JJ赋值:(最高价+最低价+收盘价)/3
如果最高价=最低价返回4否则返回最高价-最低价
QJ1赋值:IF(当前流通股本=0,QJ0*(JJ-收盘价和OPEN的较小值),QJ0*IF(最高价=最低价,1,(OPEN和收盘价的较小值-最低价)))
QJ2赋值:IF(当前流通股本=0,QJ0*(OPEN和收盘价的较小值-最低价),QJ0*IF(最高价=最低价,1,(JJ-收盘价和OPEN的较小值)))
QJ3赋值:IF(当前流通股本=0,QJ0*(最高价-OPEN和收盘价较大值),QJ0*IF(最高价=最低价,1,(最高价-OPEN和收盘价较大值)))
QJ4赋值:IF(当前流通股本=0,QJ0*(收盘价和OPEN较大值-JJ),QJ0*IF(最高价=最低价,1,(收盘价和OPEN较大值-JJ)))
如果当前流通股本=0返回100000000否则返回1000000
DX赋值:(大单动向的5日简单移动平均*N)*2
当满足条件大单动向>0时,在50和50+大单动向*8.5之间画柱状线
当满足条件大单动向<0时,在50和50+大单动向*8.5之间画柱状线
涨跌赋值:IF(BETWEEN(C,1日前的C,H),成交量,0)
动因赋值:IF(BETWEEN(C,1日前的C,L),成交量,0)
如果涨跌 AND 动因返回0否则返回成交量/3
涨跌输出动因:3*(涨跌-(动因+CC2))/IF(当前流通股本<1,71的INDEXV日累和,当前流通股本),LINETHICK0
当满足条件涨跌动因>0时,在10和10+涨跌动因*28.5之间画柱状线
当满足条件涨跌动因<0时,在10和10+涨跌动因*28.5之间画柱状线