分时决策资金（源码）

分时决策资金

A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((DISPSTATUS=1),((100*A2)/A6),0);
A8:=((IF((DISPSTATUS=1),((100*A3)/A6),0)));
A9:=((IF((DISPSTATUS=1),((100*A4)/A6),0)));
A10:=((IF((DISPSTATUS=1),((100*A5)/A6),0)));
机构买盘:(A2),LINETHICK2,COLORFF55FF;
机构卖盘:(A3),LINETHICK2,COLORFFFF55;
小股民买盘:(A4),COLOR5555FF;
小股民卖盘:(A5),COLOR55FF55;
DRAWTEXT(DISPSTATUS=1,机构买盘,'机构买盘'),LINETHICK2,COLORFF55FF;
DRAWTEXT(DISPSTATUS=1,机构卖盘,'机构卖盘'),LINETHICK2,COLORFFFF55;
DRAWTEXT(DISPSTATUS=1,小股民买盘,'小股民买盘'),LINETHICK2,COLOR5555FF;
DRAWTEXT(DISPSTATUS=1,小股民卖盘,'小股民卖盘'),LINETHICK2,COLOR55FF55;




本人引用 飞天下 老师的（通达信 源码）改编 望各位老师多多指教