通达信改进的“资金流”公式

来函数检测结果如下：
该公式没有未来函数

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

主买:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));

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

量:=VOL;

额:=AMOUNT/100000000;

流入额:MA(主买,4)/100000,COLORRED,LINETHICK1;

流出额:MA((0-主卖),4)/100000,COLORLIGREEN,LINETHICK1;

净流入:流入额-流出额,COLORFE10D2,LINETHICK1;

BB:=(主买+主卖);

STICKLINE(流入额>流出额,流入额,流出额,2,0),COLOR000099;

STICKLINE(流入额>流出额,流入额,流出额,2,0),COLOR0000CC;

STICKLINE(流入额>流出额,流入额,流出额,1.2,0),COLOR0000FF;

STICKLINE(流入额>流出额,流入额,流出额,0.2,0),COLORCC66FF;

STICKLINE(流入额<流出额,流出额,流入额,2,0),COLORFF6600;

STICKLINE(流入额<流出额,流出额,流入额,1,0),COLORFF9900;

STICKLINE(流入额<流出额,流出额,流入额,1.2,0),COLORFFCC00;

STICKLINE(流入额<流出额,流出额,流入额,0.2,0),COLORCYAN;

原理解析：
AA赋值:成交量/((最高价-最低价)*2-收盘价-开盘价的绝对值)


主买赋值:IF(收盘价>开盘价,AA*(最高价-最低价),IF(收盘价<开盘价,AA*((最高价-开盘价)+(收盘价-最低价)),成交量/2))


主卖赋值:IF(收盘价>开盘价,0-AA*((最高价-收盘价)+(开盘价-最低价)),IF(收盘价<开盘价,0-AA*(最高价-最低价),0-成交量/2))


量赋值:成交量


额赋值:成交额/100000000
输出

流入额:主买的4日简单移动平均/100000,画红色,LINETHICK1
输出

流出额:MA((0-主卖),4)/100000,COLORLIGREEN,LINETHICK1
输出

净流入:流入额-流出额,COLORFE10D2,LINETHICK1


BB赋值:(主买+主卖)
当满足条件流入额>流出额时,在流入额和流出额之间画柱状线
当满足条件流入额>流出额时,在流入额和流出额之间画柱状线
当满足条件流入额>流出额时,在流入额和流出额之间画柱状线
当满足条件流入额>流出额时,在流入额和流出额之间画柱状线
当满足条件流入额<流出额时,在流出额和流入额之间画柱状线
当满足条件流入额<流出额时,在流出额和流入额之间画柱状线
当满足条件流入额<流出额时,在流出额和流入额之间画柱状线
当满足条件流入额<流出额时,在流出额和流入额之间画柱状线