机构买卖源码

input:p1(5);
TODAY:="ddy.ddy"=0;{判断是否有正版数据}
TODAY1:="LXDDY.DDY";{判断是否有理想数据}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800; {判断是否当天}
DRAWTEXTABS(0,0,'主力大单');
主买:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
主卖:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
b1:sum(主买*vol,p1)/sum(vol,p1),colorred;
s1:sum(主卖*vol,p1)/sum(vol,p1),colorgreen;

连续飘红:LAST(b1>s1),PRECIS0,COLOR0000FF,linethick0;
连续飘绿:LAST(s1>b1),PRECIS0,colorgreen,linethick0;
十日飘红:COUNT(b1>s1,10),PRECIS0,COLOR33CCFF,linethick0;
十日飘绿:COUNT(s1>b1,10),PRECIS0,COLOR33CCFF,linethick0;

DRAWFLAGTEXT(B1>0,0,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'   B1 '+NUMTOSTRN(b1,3)+'\n'+'<*t=E7FFFF*><*c=0000FF*><*p=95*>'+'连续飘红'+  NUMTOSTRN(连续飘红,0)+ '天'+'<*t=E7FFFF*><*c=BB00FF*><*p=95*>'+  '十日飘红'  +NUMTOSTRN(十日飘红,0)+'天');




DRAWTEXTREL(600,900,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;