通达信的分时预警效果不好的话，做成大智慧的也行。谢谢老师！
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;
机买:(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;
选股公式源码：
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;
机买:=(A2/A6)*100;
机卖:=(A3/A6)*100;
主力差:=机买-机卖;
机构:主力差 0 AND REF(主力差,1) =0
【股票软件下载网提示：测试过不能选出股票来，估计是源码设计有问题，就不提供公式了，仅有源码参考】
