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

这个公式是飞狐用的！板块个股分析2DRAWGBK(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,LINETHICK0;DYZB:=IF(c0,GGZJ.一日,IF(c0,GGZJ.昨日,IF(c0,GGZJ.前天,IF(c0,GGZJ.一周,IF(c0,GGZJ.日涨幅,IF(c0,GGZJ.VV,GGZJ.VV1);DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable:DMHYs=,vcpHYs=0,vciHYs=0,TP=0;for k=1 to HYs dobegin DDD:=STKFROMBLK(HY,k); DMk:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,GGZJ.DD,0,6); vcpk:=TMPDAS; vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除当天停牌股 TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);/PX2:=SORTPOS(vcp,1,1,HYs);KHYS:=HYS-TP,LINETHICK;IF KHYS1, +STKNAMEEX(DMvci2)+ +numtostr(vcpvci2,2)+%),Color0000F9;IF KHYS2, +STKNAMEEX(DMvci3)+ +numtostr(vcpvci3,2)+%),Color0000F9;IF KHYS3, +STKNAMEEX(DMvci4)+ +numtostr(vcpvci4,2)+%),Color0000F9;IF KHYS4, +STKNAMEEX(DMvci5)+ +numtostr(vcpvci5,2)+%),Color0000F9;IF KHYS0,GGZJ.周涨幅,IF(c0,GGZJ.VV,GGZJ.VV1);DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable:DMHYs=,vcpHYs=0,vciHYs=0,TP=0;for k=1 to HYs dobegin DDD:=STKFROMBLK(HY,k); DMk:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,GGZJ.DD,0,6); vcpk:=TMPDAS; vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除当天停牌股 TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);/PX2:=SORTPOS(vcp,1,1,HYs);KHYS1:=HYS-TP,LINETHICK;IF KHYS1, +STKNAMEEX(DMvci2)+ +numtostr(vcpvci2,2)+%),Color0000F9;IF KHYS2, +STKNAMEEX(DMvci3)+ +numtostr(vcpvci3,2)+%),Color0000F9;IF KHYS3, +STKNAMEEX(DMvci4)+ +numtostr(vcpvci4,2)+%),Color0000F9;IF KHYS4, +STKNAMEEX(DMvci5)+ +numtostr(vcpvci5,2)+%),Color0000F9;IF KHYS 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,LINETHICK0;DYZB:=IF(c0,GGZJ.一日,IF(c0,GGZJ.一日,IF(c0,GGZJ.日涨幅,IF(c0,GGZJ.VV,GGZJ.VV1);DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable:DMHYs=,vcpHYs=0,vciHYs=0,TP=0;for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DMk:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,GGZJ.DD,0,6); vcpk:=TMPDAS; vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除当天停牌股 TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);/PX2:=SORTPOS(vcp,1,1,HYs);KHYS:=HYS-TP,LINETHICK;IF KHYS1, 2: +STKNAMEEX(DMvci2)+ +numtostr(vcpvci2,2)+%),Color0000F9;IF KHYS2, 3: +STKNAMEEX(DMvci3)+ +numtostr(vcpvci3,2)+%),Color0000F9;IF KHYS3, 4: +STKNAMEEX(DMvci4)+ +numtostr(vcpvci4,2)+%),Color0000F9;IF KHYS4, 5: +STKNAMEEX(DMvci5)+ +numtostr(vcpvci5,2)+%),Color0000F9;IF KHYS5, 6: +STKNAMEEX(DMvci6)+ +numtostr(vcpvci6,2)+%),Color0000F9;IF KHYS6, 7: +STKNAMEEX(DMvci7)+ +numtostr(vcpvci7,2)+%),Color0000F9;IF KHYS7, 8: +STKNAMEEX(DMvci8)+ +numtostr(vcpvci8,2)+%),Color0000F9;IF KHYS8, 9: +STKNAMEEX(DMvci9)+ +numtostr(vcpvci9,2)+%),Color0000F9;IF KHYS9, 10: +STKNAMEEX(DMvci10)+ +numtostr(vcpvci10,2)+%),Color0000F9;IF KHYS10, 11: +STKNAMEEX(DMvci11)+ +numtostr(vcpvci11,2)+%),Color0000F9;IF KHYS11, 12: +STKNAMEEX(DMvci12)+ +numtostr(vcpvci12,2)+%),Color0000F9;IF KHYS12, 13: +STKNAMEEX(DMvci13)+ +numtostr(vcpvci13,2)+%),Color0000F9;IF KHYS13, 14: +STKNAMEEX(DMvci14)+ +numtostr(vcpvci14,2)+%),Color0000F9;IF KHYS14, 15: +STKNAMEEX(DMvci15)+ +numtostr(vcpvci15,2)+%),Color0000F9;IF KHYS 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,LINETHICK0;DYZB:=IF(c0,GGZJ.一日,IF(c0,GGZJ.VV,GGZJ.VV1);DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable:DMHYs=,vcpHYs=0,vciHYs=0,TP=0;for k=1 to HYs do beginDDD:=STKFROMBLK(HY,k);DMk:=DDD;TMP:=STKINDI(DDD