成交量指标升级(通达信)

R:=vol/((H-L)*2-Abs(O-C));
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,VOL,R*(C-L));
买%:买/VOL*100,COLORRED,NODRAW;
流入亿元:AMOUNT*买%/10000000000,COLORMAGENTA,NODRAW;
流出亿元:AMOUNT/100000000-流入亿元,COLORGREEN,NODRAW;
净流亿元:流入亿元-流出亿元,COLORCYAN,NODRAW;
STICKLINE(VOL,0,VOL,2,1),COLORGREEN;
STICKLINE(买,0,买,2,0),COLORRED;
A:MA(买,3)COLORYELLOW;
B:MA(买,5)COLORMAGENTA;