又一珍藏源码【通达信分时极品跟庄】修正 源码 通达信 贴图
A1:=(DVOL/C)/2,NODRAW;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM((IF(((A1>100) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM((IF(((A1<100) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=A2+A3+A4+A5;{WWW.}
机买:(A2/A6)*100,LINETHICK2,COLORRED;
机卖:(A3/A6)*100,LINETHICK2,COLORGREEN;
散买:(A4/A6)*100,LINETHICK0;
散卖:(A5/A6)*100,LINETHICK0;
主力差:机买-机卖,LINETHICK2,NODRAW;
散户差:散买-散卖,LINETHICK0,NODRAW;
DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构'),COLORRED;
DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,'○机构'),COLORWHITE;
DRAWTEXT(散户差>0 AND REF(散户差,1)<=0,C*0.15,'▲散户'),COLORCYAN;
DRAWTEXT(散户差<0 AND REF(散户差,1)>=0,-C*0.15,'△散户'),COLORWHITE;
未来函数检测结果如下：
该公式包含未来函数:DVOL
解密、编写股票、期货策略请联系QQ或微信同号：88652583
相关股票指标公式
原理解析：
A1赋值:(D成交量/C)/2,NODRAW
A2赋值:SUM(IF(A1>100 AND 收盘价>1日前的收盘价,A1,0),0)
A3赋值:SUM((IF(((A1>100) AND (收盘价<(1日前的收盘价))),A1,0)),0)
A4赋值:SUM(IF(A1<100 AND 收盘价>1日前的收盘价,A1,0),0)
A5赋值:SUM((IF(((A1<100) AND (收盘价<(1日前的收盘价))),A1,0)),0)
A6赋值:A2+A3+A4+A5
输出{WWW.}
机买:(A2/A6)*100, 线宽为2,画红色
输出机卖:(A3/A6)*100, 线宽为2,画绿色
输出散买:(A4/A6)*100,LINETHICK0
输出散卖:(A5/A6)*100,LINETHICK0
输出主力差:机买-机卖, 线宽为2,NODRAW
输出散户差:散买-散卖,LINETHICK0,NODRAW
DRAWTEXT(主力差>0 AND 1日前的主力差<=0,C*0.85,'●机构'),画红色
DRAWTEXT(主力差<0 AND 1日前的主力差>=0,-C*0.85,'○机构'),画白色
DRAWTEXT(散户差>0 AND 1日前的散户差<=0,C*0.15,'▲散户'),画青色
DRAWTEXT(散户差<0 AND 1日前的散户差>=0,-C*0.15,'△散户'),画白色
