飞狐用的板块个股分析.doc

这个公式是飞狐用的!!!{板块个股分析2}DRAWGBK((CLOSE>0),COLORRGB(0,0,0),COLORRGB(0,0,0),1);RQ:=DATE;//取日期A:=BLKNAME;HY:=STRLEFT(A,STRFIND(A,',',1)-1);HYs:=STKCOUNT(HY);板块个股数:HYs,HICK0;DYZB:=IF(c>0,'',IF(c<0,'',''));DAS:=DATACOUNT;D0:=RQ[DAS];//取最后日期variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0;fork=1toHYsdo  begin  DDD:=STKFROMBLK(HY,k);  DM[k]:=DDD;  TMP:=STKINDI(DDD,DYZB,0,6);  TMPD:=STKINDI(DDD,'',0,6);  vcp[k]:=TMP[DAS];  vci[k]:=IF(TMPD[DAS]=D0,TMP[DAS],-1000);//去除当天停牌股  TP:=TP+IF(vci[k]=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,15,50,'当日攻击资金前五名'),Color1080FA;DRAWTEXTEX(islastbar,1,10,250,'①'+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,10,400,'②'+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,10,550,'③'+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,10,700,'④'+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,10,850,'⑤'+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[vci[5]],2)),Color0000FF;DYZB1:=IF(c>0,'',IF(c<0,'',''));DAS:=DATACOUNT;D0:=RQ[DAS];//取最后日期variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0;fork=1toHYsdo  begin  DDD:=STKFROMBLK(HY,k);  DM[k]:=DDD;  TMP:=STKINDI(DDD,DYZB1,0,6);  TMPD:=STKINDI(DDD,'',0,6);  vcp[k]:=TMP[DAS];  vci[k]:=IF(TMPD[DAS]=D0,TMP[DAS],-1000);//去除当天停牌股  TP:=TP+IF(vci[k]=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,280,50,'昨日攻击资金前五名'),Color20FF20;DRAWTEXTEX(islastbar,1,275,250,'①'+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,275,400,'②'+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,275,550,'③'+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,275,700,'④'+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),Color0000FF;DRAWTEXTEX(islastbar,1,275,850,'⑤'+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[v