飞狐用的板块个股分析.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,LINETHICK0; DYZB:=IF(c>0,'GGZJ.一日',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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,'GGZJ.昨日',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB1,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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[vci[5]],2)),Color0000FF; DYZB2:=IF(c>0,'GGZJ.前天',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB2,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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,550,50,'前天攻击资金前五名'),ColorF7A700; DRAWTEXTEX(islastbar,1,545,250,'① '+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,545,400,'② '+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,545,550,'③ '+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,545,700,'④ '+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,545,850,'⑤ '+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[vci[5]],2)),Color0000FF; DYZB3:=IF(c>0,'GGZJ.一周',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB3,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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,820,50,'一周攻击资金前五名'),Color0000FF; DRAWTEXTEX(islastbar,1,815,250,'① '+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),ColorF000F0; DRAWTEXTEX(islastbar,1,815,400,'② '+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),ColorF000F0; DRAWTEXTEX(islastbar,1,815,550,'③ '+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),ColorF000F0; DRAWTEXTEX(islastbar,1,815,700,'④ '+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),ColorF000F0; DRAWTEXTEX(islastbar,1,815,850,'⑤ '+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[vci[5]],2)),ColorF000F0; DYZB4:=IF(c>0,'GGZJ.日涨幅',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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); //PX2:=SORTPOS(vcp,1,1,HYs); KHYS:=HYS-TP,LINETHICK; IF KHYS<2 THEN EXIT; EXPLAIN(ISLASTBAR,'日涨跌幅领先前五名'),Color01ACFE; EXPLAIN(ISLASTBAR,' ① '+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+'%'),Color0000F9; EXPLAIN(ISLASTBAR and KHYS>1,' ② '+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+'%'),Color0000F9; IF KHYS<3 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>2,' ③ '+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+'%'),Color0000F9; IF KHYS<4 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>3,' ④ '+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+'%'),Color0000F9; IF KHYS<5 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>4,' ⑤ '+STKNAMEEX(DM[vci[5]])+' '+numtostr(vcp[vci[5]],2)+'%'),Color0000F9; IF KHYS<6 THEN EXIT; EXPLAIN(ISLASTBAR,'\n日涨跌幅滞后前五名'),ColorFD9617; EXPLAIN(ISLASTBAR,' ① '+STKNAMEEX(DM[vci[KHYs]])+' '+numtostr(vcp[vci[KHYs]],2)+'%'+' \n ② '+STKNAMEEX(DM[vci[KHYs-1]])+' '+numtostr(vcp[vci[KHYs-1]],2)+'%'+' \n ③ '+ STKNAMEEX(DM[vci[KHYs-2]])+' '+numtostr(vcp[vci[KHYs-2]],2)+'%'+' \n ④ '+STKNAMEEX(DM[vci[KHYs-3]])+' '+numtostr(vcp[vci[KHYs-3]],2)+'%'+ ' \n ⑤ '+STKNAMEEX(DM[vci[KHYs-4]])+' '+numtostr(vcp[vci[KHYs-4]],2)+'%'),Color00A800; DYZB4:=IF(c>0,'GGZJ.周涨幅',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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); //PX2:=SORTPOS(vcp,1,1,HYs); KHYS1:=HYS-TP,LINETHICK; IF KHYS<2 THEN EXIT; EXPLAIN(ISLASTBAR,'\n周涨跌幅领先前五名'),Color01ACFE; EXPLAIN(ISLASTBAR,' ① '+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+'%'),Color0000F9; EXPLAIN(ISLASTBAR and KHYS>1,' ② '+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+'%'),Color0000F9; IF KHYS<3 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>2,' ③ '+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+'%'),Color0000F9; IF KHYS<4 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>3,' ④ '+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+'%'),Color0000F9; IF KHYS<5 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>4,' ⑤ '+STKNAMEEX(DM[vci[5]])+' '+numtostr(vcp[vci[5]],2)+'%'),Color0000F9; IF KHYS<6 THEN EXIT; EXPLAIN(ISLASTBAR,'\n周涨跌幅滞后前五名'),ColorFD9617; EXPLAIN(ISLASTBAR,' ① '+STKNAMEEX(DM[vci[KHYs]])+' '+numtostr(vcp[vci[KHYs]],2)+'%'+' \n ② '+STKNAMEEX(DM[vci[KHYs-1]])+' '+numtostr(vcp[vci[KHYs-1]],2)+'%'+' \n ③ '+ STKNAMEEX(DM[vci[KHYs-2]])+' '+numtostr(vcp[vci[KHYs-2]],2)+'%'+' \n ④ '+STKNAMEEX(DM[vci[KHYs-3]])+' '+numtostr(vcp[vci[KHYs-3]],2)+'%'+ ' \n ⑤ '+STKNAMEEX(DM[vci[KHYs-4]])+' '+numtostr(vcp[vci[KHYs-4]],2)+'%'),Color00A800; explain(islastbar,'\n\n\n '),Color36C7FE; {GGZJ} CC:=C; HH:=H; LL:=L; a1:=AMOUNT/(100*vol); a:=(CC-a1)/(H-L); AA:=sum(a*V,1); 一日:aa/CAPITAL*10000; AA1:=REF(AA,1); 昨日:aa1/CAPITAL*10000; AA2:=REF(AA,2);; 前天:aa2/CAPITAL*10000; AA3:=sum(a*V,5); 一周:aa3/CAPITAL*10000; VV:V/CAPITAL*100; VV1:1/2*V/CAPITAL*100; DD:DATE; 日涨幅:(c/REF(c,1)-1)*100; 周涨幅:(c/REF(c,5)-1)*100; {板块个股分析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,LINETHICK0; DYZB:=IF(c>0,'GGZJ.一日',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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,115,50,'[当日攻击资金前十名]'),Color1080FA; DRAWTEXTEX(islastbar,1,10,250,'1: '+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,10,400,'2: '+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,10,550,'3: '+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,10,700,'4: '+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,10,850,'5: '+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[vci[5]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,275,250,'6: '+STKNAMEEX(DM[vci[6]])+':'+numtostr(vcp[vci[6]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,275,400,'7: '+STKNAMEEX(DM[vci[7]])+':'+numtostr(vcp[vci[7]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,275,550,'8: '+STKNAMEEX(DM[vci[8]])+':'+numtostr(vcp[vci[8]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,275,700,'9: '+STKNAMEEX(DM[vci[9]])+':'+numtostr(vcp[vci[9]],2)),Color0000FF; DRAWTEXTEX(islastbar,1,275,850,'10: '+STKNAMEEX(DM[vci[10]])+':'+numtostr(vcp[vci[10]],2)),Color0000FF; DYZB:=IF(c>0,'GGZJ.一日',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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,0,1,HYs); DRAWTEXTEX(islastbar,1,650,50,'[当日攻击资金后十名]'),Color00FF33; DRAWTEXTEX(islastbar,1,545,250,'1: '+STKNAMEEX(DM[vci[1]])+':'+numtostr(vcp[vci[1]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,545,400,'2: '+STKNAMEEX(DM[vci[2]])+':'+numtostr(vcp[vci[2]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,545,550,'3: '+STKNAMEEX(DM[vci[3]])+':'+numtostr(vcp[vci[3]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,545,700,'4: '+STKNAMEEX(DM[vci[4]])+':'+numtostr(vcp[vci[4]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,545,850,'5: '+STKNAMEEX(DM[vci[5]])+':'+numtostr(vcp[vci[5]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,815,250,'6: '+STKNAMEEX(DM[vci[6]])+':'+numtostr(vcp[vci[6]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,815,400,'7: '+STKNAMEEX(DM[vci[7]])+':'+numtostr(vcp[vci[7]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,815,550,'8: '+STKNAMEEX(DM[vci[8]])+':'+numtostr(vcp[vci[8]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,815,700,'9: '+STKNAMEEX(DM[vci[9]])+':'+numtostr(vcp[vci[9]],2)),Color00FF33; DRAWTEXTEX(islastbar,1,815,850,'10: '+STKNAMEEX(DM[vci[10]])+':'+numtostr(vcp[vci[10]],2)),Color00FF33; DYZB4:=IF(c>0,'GGZJ.日涨幅',IF(c<0,'GGZJ.VV','GGZJ.VV1')); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD,DYZB4,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',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); //PX2:=SORTPOS(vcp,1,1,HYs); KHYS:=HYS-TP,LINETHICK; IF KHYS<2 THEN EXIT; EXPLAIN(ISLASTBAR,'[日涨跌幅领先前十五名]'),Color00FFFF; EXPLAIN(ISLASTBAR,' 1: '+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+'%'),Color0000F9; EXPLAIN(ISLASTBAR and KHYS>1,' 2: '+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+'%'),Color0000F9; IF KHYS<3 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>2,' 3: '+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+'%'),Color0000F9; IF KHYS<4 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>3,' 4: '+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+'%'),Color0000F9; IF KHYS<5 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>4,' 5: '+STKNAMEEX(DM[vci[5]])+' '+numtostr(vcp[vci[5]],2)+'%'),Color0000F9; IF KHYS<6 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>5,' 6: '+STKNAMEEX(DM[vci[6]])+' '+numtostr(vcp[vci[6]],2)+'%'),Color0000F9; IF KHYS<7 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>6,' 7: '+STKNAMEEX(DM[vci[7]])+' '+numtostr(vcp[vci[7]],2)+'%'),Color0000F9; IF KHYS<8 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>7,' 8: '+STKNAMEEX(DM[vci[8]])+' '+numtostr(vcp[vci[8]],2)+'%'),Color0000F9; IF KHYS<9 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>8,' 9: '+STKNAMEEX(DM[vci[9]])+' '+numtostr(vcp[vci[9]],2)+'%'),Color0000F9; IF KHYS<10 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>9,' 10: '+STKNAMEEX(DM[vci[10]])+' '+numtostr(vcp[vci[10]],2)+'%'),Color0000F9; IF KHYS<11 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>10,' 11: '+STKNAMEEX(DM[vci[11]])+' '+numtostr(vcp[vci[11]],2)+'%'),Color0000F9; IF KHYS<12 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>11,' 12: '+STKNAMEEX(DM[vci[12]])+' '+numtostr(vcp[vci[12]],2)+'%'),Color0000F9; IF KHYS<13 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>12,' 13: '+STKNAMEEX(DM[vci[13]])+' '+numtostr(vcp[vci[13]],2)+'%'),Color0000F9; IF KHYS<14 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>13,' 14: '+STKNAMEEX(DM[vci[14]])+' '+numtostr(vcp[vci[14]],2)+'%'),Color0000F9; IF KHYS<15 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>14,' 15: '+STKNAMEEX(DM[vci[15]])+' '+numtostr(vcp[vci[15]],2)+'%'),Color0000F9; IF KHYS<16 THEN EXIT; EXPLAIN(ISLASTBAR,'\n[日涨跌幅滞后前十名]'),Color00CCFF; EXPLAIN(ISLASTBAR,' 1: '+STKNAMEEX(DM[vci[KHYs]])+' '+numtostr(vcp[vci[KHYs]],2)+'%'+' \n 2: '+STKNAMEEX(DM[vci[KHYs-1]])+' '+numtostr(vcp[vci[KHYs-1]],2)+'%'+' \n 3: '+ STKNAMEEX(DM[vci[KHYs-2]])+' '+numtostr(vcp[vci[KHYs-2]],2)+'%'+' \n 4: '+STKNAMEEX(DM[vci[KHYs-3]])+' '+numtostr(vcp[vci[KHYs-3]],2)+'%'+ ' \n 5: '+STKNAMEEX(DM[vci[KHYs-4]])+' '+numtostr(vcp[vci[KHYs-4]],2)+'%'+' \n 6: '+STKNAMEEX(DM[vci[KHYs-5]])+' '+numtostr(vcp[vci[KHYs-5]],2)+'%'+' \n 7: '+ STKNAMEEX(DM[vci[KHYs-6]])+' '+numtostr(vcp[vci[KHYs-6]],2)+'%'+' \n 8: '+STKNAMEEX(DM[vci[KHYs-7]])+' '+numtostr(vcp[vci[KHYs-7]],2)+'%'+ ' \n 9: '+ STKNAMEEX(DM[vci[KHYs-8]])+' '+numtostr(vcp[vci[KHYs-8]],2)+'%'+' \n 10: '+ STKNAMEEX(DM[vci[KHYs-9]])+' '+numtostr(vcp[vci[KHYs-9]],2)+'%'),Color00A800;　原文链接：先建立引用公式，再建立主公式板块个股分析（引用） {GGZJ} CC:=C; HH:=H; LL:=L; a1:=AMOUNT/(100*vol); a:=(CC-a1)/(H-L); AA:=sum(a*V,1); 一日:aa/CAPITAL*10000; AA1:=REF(AA,1); 昨日:aa1/CAPITAL*10000; AA2:=REF(AA,2);; 前天:aa2/CAPITAL*10000; AA3:=sum(a*V,5); 一周:aa3/CAPITAL*10000; VV:V/CAPITAL*100; VV1:1/2*V/CAPITAL*100; DD:DATE; 日涨幅:(c/REF(c,1)-1)*100; 周涨幅:(c/REF(c,5)-1)*100; {板块个股分析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,LINETHICK0; DYZB:=IF(c>0,GGZJ.一日,IF(c<0,GGZJ.VV,GGZJ.VV1)); DAS:=DATACOUNT; D0:=RQ[DAS];//取最后日期 variable:DM[HYs]=,vcp[HYs]=0,vci[HYs]=0,TP=0; for k=1 to HYs do begin DDD:=STKFROMBLK(HY,k); DM[k]:=DDD; TMP:=STKINDI(DDD

展开阅读全文