有价值的资金流向指标 源码 通达信

有价值的资金流向指标源码通达信

{有价值的资金流向指标}

额:AMOUNT/100000000,VOLSTICK,COLORFF00FF;

VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

流入

亿:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE

流出亿:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-

LOW)),IF(CLOSE

差亿:流入亿+流出亿,COLORFFFF00,NODRAW;

净:=EMA(EMA(差亿,2),2),COLOR00FFFF,NODRAW;

净1:=EMA(净,2);

流:=EMA(净1,7);

净流:=3*EMA(净1+流,2);

STICKLINE(净流<0,0,净流,4,0),COLORFF6600;

STICKLINE(净流<0,0,净流,3,0),COLORFF9900;

STICKLINE(净流<0,0,净流,1.5,0),COLORFFCC00;

STICKLINE(净流<0,0,净流,0.5,0),COLORCYAN;

STICKLINE(净流>0,0,净流,4,0),COLOR000099;

STICKLINE(净流>0,0,净流,3,0),COLOR0000CC;

STICKLINE(净流>0,0,净流,1.5,0),COLOR0000FF;

STICKLINE(净流>0,0,净流,0.5,0),COLORCC66FF;

STICKLINE(净流0,0,净流,4,0),COLOR009900; STICKLINE(净流0,0,净流,3,0),COLOR00BB00; STICKLINE(净流0,0,净流,2,0),COLOR00DD00; STICKLINE(净流0,0,净流,1,0),COLOR00FF00; STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,4,0),COLOR000099; STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,3,0),COLOR0000BB; STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,1.5,0),COLOR0000DD; STICKLINE(净流>REF(净流,1)AND 净流<0,0,净流,0.5,0),COLOR0000FF; DRAWTEXT(CROSS(净流,0),0,'买'),COLORFF00FF;

0;