抓板资金监控和谐源码分享通达信副图 源码附图

VAR1:=DMA((HIGH+LOW+CLOSE*2)/4,0.9);

VAR2:=REF(EMA(VAR1,3),1);

VAR3:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

VAR4:=IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+(CLOSE-LOW)),VOL/2))+IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2));

VAR5:=VOL/CAPITAL;

VAR6:=IF(VAR5>10,10,VAR5);

VAR7:=VAR4/20/1.15;

VAR8:=VAR7*0.55+REF(VAR7,1)*0.33+REF(VAR7,2)*0.22;

VAR9:=EMA(VAR8,8);

VAR10:=EMA(VAR8,3);

STICKLINE(VAR7*0.4>=0,VAR7*0.4+VAR10,0,3,0),COLORYELLOW;

STICKLINE(VAR7*0.4<0,VAR7*0.4+VAR10,0,3,0),COLORGREEN;

VAR11:=IF(VAR7*0.4+VAR10>0,VAR7*0.4+VAR10,DRAWNULL);

VAR12:=IF(VAR7*0.4+VAR10<0,VAR7*0.4+VAR10,DRAWNULL);

VAR13:=VAR7*0.4+VAR10;

VAR14:=AMOUNT/10000;

资金净进出:IF(VAR7*0.4+VAR10>0,VAR11,VAR12),POINTDOT,COLORWHITE;

进出比例%:IF(VAR7*0.4+VAR10>0,VAR11/VAR14*100,VAR12/VAR14*100),COLORYELLOW;

VAR15:=VAR10;{股票指标网  整理}

STICKLINE(VAR15>0,VAR15,0,3,0),COLORRED;

STICKLINE(VAR15<0,VAR15,0,3,0),COLORFF3300;

VAR16:=REF(VAR12,1)<0 AND VAR11>30 AND CLOSE>OPEN AND CLOSE>REF(CLOSE,1) AND CLOSE>MA(CLOSE,3);

VAR17:=(3*CLOSE+2*LOW+OPEN+HIGH)/7;

VAR18:=(20*VAR17+19*REF(VAR17,1)+18*REF(VAR17,2)+17*REF(VAR17,3)+16*REF(VAR17,4)+15*REF(VAR17,5)+14*REF(VAR17,6)+13*REF(VAR17,7)+12*REF(VAR17,8)+11*REF(VAR17,9)+10*REF(VAR17,10)+9*REF(VAR17,11)+8*REF(VAR17,12)+7*REF(VAR17,13)+6*REF(VAR17,14)+5*REF(VAR17,15)+4*REF(VAR17,16)+3*REF(VAR17,17)+2*REF(VAR17,18)+REF(VAR17,20))/210;

VAR19:=VAR11>300 AND CROSS(CLOSE,VAR18);

DRAWTEXT(VAR16,(-30),13),COLORMAGENTA;

DRAWTEXT(VAR19,VAR7*0.4*1.5*1.4,13),COLORRED;

原理解析：
VAR1赋值:DMA((最高价+最低价+收盘价*2)/4,0.9)
VAR2赋值:1日前的VAR1的3日指数移动平均
VAR3赋值:成交量/((最高价-最低价)*2-收盘价-开盘价的绝对值)
VAR4赋值:IF(收盘价>开盘价,VAR3*(最高价-最低价),IF(收盘价<开盘价,VAR3*(最高价-开盘价+(收盘价-最低价)),成交量/2))+IF(收盘价>开盘价,0-VAR3*(最高价-收盘价+(开盘价-最低价)),IF(收盘价<开盘价,0-VAR3*(最高价-最低价),0-成交量/2))
VAR5赋值:成交量/当前流通股本
如果VAR5>10返回10否则返回VAR5
VAR7赋值:VAR4/20/1.15
VAR8赋值:VAR7*0.55+1日前的VAR7*0.33+2日前的VAR7*0.22
VAR9赋值:VAR8的8日指数移动平均
VAR10:=VAR8的3日指数移动平均
当满足条件VAR7*0.4>=0时,在VAR7*0.4+VAR10和0之间画柱状线
当满足条件VAR7*0.4<0时,在VAR7*0.4+VAR10和0之间画柱状线
如果VAR7*0.4+VAR10>0返回VAR7*0.4+VAR10否则返回DRAWNULL
如果VAR7*0.4+VAR10<0返回VAR7*0.4+VAR10否则返回DRAWNULL
VAR13:=VAR7*0.4+VAR10
VAR14:=成交额/10000
如果VAR7*0.4+VAR10>0返回VAR11否则返回VAR12
如果VAR7*0.4+VAR10>0返回VAR11/VAR14*100否则返回VAR12/VAR14*100
VAR15:=VAR10
当满足条件VAR15>0时,在VAR15和0之间画柱状线
当满足条件VAR15<0时,在VAR15和0之间画柱状线
VAR16:=1日前的VAR12<0 AND VAR11>30 AND 收盘价>开盘价 AND 收盘价>1日前的收盘价 AND 收盘价>收盘价的3日简单移动平均
VAR17:=(3*收盘价+2*最低价+开盘价+最高价)/7
VAR18:=(20*VAR17+19*1日前的VAR17+18*2日前的VAR17+17*3日前的VAR17+16*4日前的VAR17+15*5日前的VAR17+14*6日前的VAR17+13*7日前的VAR17+12*8日前的VAR17+11*9日前的VAR17+10*10日前的VAR17+9*11日前的VAR17+8*12日前的VAR17+7*13日前的VAR17+6*14日前的VAR17+5*15日前的VAR17+4*16日前的VAR17+3*17日前的VAR17+2*18日前的VAR17+20日前的VAR17)/210
VAR19:=VAR11>300 AND 收盘价上穿VAR18
DRAWTEXT(VAR16,(-30),13),画洋红色
当满足条件VAR19时,在VAR7*0.4*1.5*1.4和13位置书写文字