通达信有价值的资金流向指标公式

{有价值的资金流向指标}
额:AMOUNT/100000000,VOLSTICK,COLORFF00FF;
VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
流入亿:IF(CLOSE OPEN,VAR1*(HIGH-LOW),IF(CLOSE OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
流出亿:IF(CLOSE OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN- LOW)),IF(CLOSE OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/100000000,COLORMAGENTA,NODRAW;
差亿:流入亿+流出亿,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(净流 REF(净流,1)AND 净流 0,0,净流,4,0),COLOR009900;
STICKLINE(净流 REF(净流,1)AND 净流 0,0,净流,3,0),COLOR00BB00;
STICKLINE(净流 REF(净流,1)AND 净流 0,0,净流,2,0),COLOR00DD00;
STICKLINE(净流 REF(净流,1)AND 净流 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;