通达信自编资金流向指标

本指标适用于通达信决策家
可嫁接到副图成交量指标内
公式明码，不加密，无期限
下午对指标进行了改进，可放到副图指标边角上，不遮盖原指标，见图操盘副图
 

{上接成交量WOL指标}

{以下是资金流向指标}

{A成交额_元_全部M=0；主动M=1}
ADBO:=L2_AMO(1,0+M*2)+L2_AMO(0,0+M*2);
APBO:=L2_AMO(2,0+M*2);
ASBO:=L2_AMO(3,0+M*2);
ADSO:=L2_AMO(1,1+M*2)+L2_AMO(0,1+M*2);
APSO:=L2_AMO(2,1+M*2);
ASSO:=L2_AMO(3,1+M*2);
AO:=ADBO+APBO+ASBO+ADSO+APSO+ASSO;
ADB:=ADBO/AO*100,NODRAW,COLOR0F00FF;
APB:=APBO/AO*100,NODRAW,COLOR0F00FF;
ASB:=ASBO/AO*100,NODRAW,COLOR0F00FF;
ADS:=ADSO/AO*100,NODRAW,COLORLIGREEN;
APS:=APSO/AO*100,NODRAW,COLORLIGREEN;
ASS:=ASSO/AO*100,NODRAW,COLORLIGREEN;

当日净流入:(ADBO+APBO+ASBO-ADSO-APSO-ASSO)/10000,NODRAW;
当日%:当日净流入/AO*1000000,NODRAW,COLORYELLOW;
五日:SUM(当日净流入,5),NODRAW,COLORGREEN;
十日:SUM(当日净流入,10),NODRAW,COLORGREEN;
大宗:(ADBO-ADSO)/10000,NODRAW,COLORMAGENTA;

DRAWRECTREL(000,100,100,999,RGB(255,255,255));
DRAWRECTREL(000,100,100,200,RGB(0,100,0));
DRAWRECTREL(000,100,CONST(50+当日%/2),200,RGB(255,0,0));
DRAWRECTREL(025,CONST(999-ADB*10),035,999,RGB(255,0,0));
DRAWRECTREL(050,CONST(999-APB*10),060,999,RGB(255,0,0));
DRAWRECTREL(075,CONST(999-ASB*10),085,999,RGB(255,0,0));
DRAWRECTREL(035,CONST(999-ADS*10),045,999,RGB(0,100,0));
DRAWRECTREL(060,CONST(999-APS*10),070,999,RGB(0,100,0));
DRAWRECTREL(085,CONST(999-ASS*10),095,999,RGB(0,100,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0,0.70,0,'流入'),COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0,0.85,0,'流出'),COLOR00DD00;