1、這個公式是飛狐用的！板塊個股分析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(c>0,'GGZJ.一日',IF(c<0,'GGZJ.VV','GGZJ.VV1');DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable

2、:DMHYs='',vcpHYs=0,vciHYs=0,TP=0;for k=1 to HYs do  begin   DDD:=STKFROMBLK(HY,k);   DMk:=DDD;   TMP:=STKINDI(DDD,DYZB,0,6);   TMPD:=STKINDI(DDD,'GGZJ.DD',0,6);   vcpk:=TMPDAS;   vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/

3、去除當天停牌股   TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,15,50,'當日攻擊資金前五名'),Color1080FA;DRAWTEXTEX(islastbar,1,10,250,' '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,400,' '+STKNAMEEX(DMvci2

4、)+':'+numtostr(vcpvci2,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,550,' '+STKNAMEEX(DMvci3)+':'+numtostr(vcpvci3,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,700,' '+STKNAMEEX(DMvci4)+':'+numtostr(vcpvci4,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,850,' '+STKN

5、AMEEX(DMvci5)+':'+numtostr(vcpvci5,2),Color0000FF;DYZB1:=IF(c>0,'GGZJ.昨日',IF(c<0,'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); 

6、60;DMk:=DDD;   TMP:=STKINDI(DDD,DYZB1,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);DRAWTEXTEX(islastbar,1,280,50,'昨日攻擊資金前五

7、名'),Color20FF20;DRAWTEXTEX(islastbar,1,275,250,' '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,400,' '+STKNAMEEX(DMvci2)+':'+numtostr(vcpvci2,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,550,' '+STKNAMEEX(DMvci3)+':

8、9;+numtostr(vcpvci3,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,700,' '+STKNAMEEX(DMvci4)+':'+numtostr(vcpvci4,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,850,' '+STKNAMEEX(DMvci5)+':'+numtostr(vcpvci5,2),Color0000FF;DYZB2:=IF(c>0,'GGZJ.前天',IF(c<0,'GGZJ.

9、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,DYZB2,0,6);   TMPD:=STKINDI(DDD,'GGZJ.DD',0,6); 

10、  vcpk:=TMPDAS;   vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除當天停牌股   TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,550,50,'前天攻擊資金前五名'),ColorF7A700;DRAWTEXTEX(islastbar,1,545,250,' '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),

11、Color0000FF;DRAWTEXTEX(islastbar,1,545,400,' '+STKNAMEEX(DMvci2)+':'+numtostr(vcpvci2,2),Color0000FF;DRAWTEXTEX(islastbar,1,545,550,' '+STKNAMEEX(DMvci3)+':'+numtostr(vcpvci3,2),Color0000FF;DRAWTEXTEX(islastbar,1,545,700,' '+STKNAMEEX(DMvci4)+':'+numto

12、str(vcpvci4,2),Color0000FF;DRAWTEXTEX(islastbar,1,545,850,' '+STKNAMEEX(DMvci5)+':'+numtostr(vcpvci5,2),Color0000FF;DYZB3:=IF(c>0,'GGZJ.一周',IF(c<0,'GGZJ.VV','GGZJ.VV1');DAS:=DATACOUNT;D0:=RQDAS;/取最后日期variable:DMHYs='',vcpHYs=0,vciHYs=0,TP=0;for k

13、=1 to HYs do  begin   DDD:=STKFROMBLK(HY,k);   DMk:=DDD;   TMP:=STKINDI(DDD,DYZB3,0,6);   TMPD:=STKINDI(DDD,'GGZJ.DD',0,6);   vcpk:=TMPDAS;   vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除當天停牌股   TP:=TP+IF(vcik=-1000,1,0)

14、;end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,820,50,'一周攻擊資金前五名'),Color0000FF;DRAWTEXTEX(islastbar,1,815,250,' '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),ColorF000F0;DRAWTEXTEX(islastbar,1,815,400,' '+STKNAMEEX(DMvci2)+':'+numtostr(vcpvci2,2),ColorF00

15、0F0;DRAWTEXTEX(islastbar,1,815,550,' '+STKNAMEEX(DMvci3)+':'+numtostr(vcpvci3,2),ColorF000F0;DRAWTEXTEX(islastbar,1,815,700,' '+STKNAMEEX(DMvci4)+':'+numtostr(vcpvci4,2),ColorF000F0;DRAWTEXTEX(islastbar,1,815,850,' '+STKNAMEEX(DMvci5)+':'+numtostr(vcpv

16、ci5,2),ColorF000F0;DYZB4:=IF(c>0,'GGZJ.日漲幅',IF(c<0,'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(

17、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 KHYS<2 THEN EXIT;EXPLAIN(

18、ISLASTBAR,'日漲跌幅領先前五名'),Color01ACFE;EXPLAIN(ISLASTBAR,' '+STKNAMEEX(DMvci1)+' '+numtostr(vcpvci1,2)+'%'),Color0000F9;EXPLAIN(ISLASTBAR and KHYS>1,' '+STKNAMEEX(DMvci2)+' '+numtostr(vcpvci2,2)+'%'),Color0000F9;IF KHYS<3 THEN EXIT;EXPLAIN(IS

19、LASTBAR and KHYS>2,' '+STKNAMEEX(DMvci3)+' '+numtostr(vcpvci3,2)+'%'),Color0000F9;IF KHYS<4 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>3,' '+STKNAMEEX(DMvci4)+' '+numtostr(vcpvci4,2)+'%'),Color0000F9;IF KHYS<5 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS

20、>4,' '+STKNAMEEX(DMvci5)+' '+numtostr(vcpvci5,2)+'%'),Color0000F9;IF KHYS<6 THEN EXIT;EXPLAIN(ISLASTBAR,'n日漲跌幅滯后前五名'),ColorFD9617;EXPLAIN(ISLASTBAR,' '+STKNAMEEX(DMvciKHYs)+' '+numtostr(vcpvciKHYs,2)+'%'+' n '+STKNAMEEX(DMvciKHYs-

21、1)+' '+numtostr(vcpvciKHYs-1,2)+'%'+' n '+  STKNAMEEX(DMvciKHYs-2)+' '+numtostr(vcpvciKHYs-2,2)+'%'+' n '+STKNAMEEX(DMvciKHYs-3)+' '+numtostr(vcpvciKHYs-3,2)+'%'+' n '+STKNAMEEX(DMvciKHYs-4)+' '+numtostr(vcpvci

22、KHYs-4,2)+'%'),Color00A800;DYZB4:=IF(c>0,'GGZJ.周漲幅',IF(c<0,'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; 

23、60;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 KHYS<2 T

24、HEN EXIT;EXPLAIN(ISLASTBAR,'n周漲跌幅領先前五名'),Color01ACFE;EXPLAIN(ISLASTBAR,' '+STKNAMEEX(DMvci1)+' '+numtostr(vcpvci1,2)+'%'),Color0000F9;EXPLAIN(ISLASTBAR and KHYS>1,' '+STKNAMEEX(DMvci2)+' '+numtostr(vcpvci2,2)+'%'),Color0000F9;IF KHYS<3 TH

25、EN EXIT;EXPLAIN(ISLASTBAR and KHYS>2,' '+STKNAMEEX(DMvci3)+' '+numtostr(vcpvci3,2)+'%'),Color0000F9;IF KHYS<4 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>3,' '+STKNAMEEX(DMvci4)+' '+numtostr(vcpvci4,2)+'%'),Color0000F9;IF KHYS<5 THEN EXIT;EXPLAIN(

26、ISLASTBAR and KHYS>4,' '+STKNAMEEX(DMvci5)+' '+numtostr(vcpvci5,2)+'%'),Color0000F9;IF KHYS<6 THEN EXIT;EXPLAIN(ISLASTBAR,'n周漲跌幅滯后前五名'),ColorFD9617;EXPLAIN(ISLASTBAR,' '+STKNAMEEX(DMvciKHYs)+' '+numtostr(vcpvciKHYs,2)+'%'+' n '+ST

27、KNAMEEX(DMvciKHYs-1)+' '+numtostr(vcpvciKHYs-1,2)+'%'+' n '+  STKNAMEEX(DMvciKHYs-2)+' '+numtostr(vcpvciKHYs-2,2)+'%'+' n '+STKNAMEEX(DMvciKHYs-3)+' '+numtostr(vcpvciKHYs-3,2)+'%'+' n '+STKNAMEEX(DMvciKHYs-4)+' 

28、9;+numtostr(vcpvciKHYs-4,2)+'%'),Color00A800;explain(islastbar,'nnn   '),Color36C7FE;GGZJCC:=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

29、/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;板塊個股分析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(c>0,'GG

30、ZJ.一日',IF(c<0,'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,DYZB,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',0,6); vcpk:=TMPDAS; vcik:=IF(TMPDDAS=D0,

31、TMPDAS,-1000);/去除當天停牌股 TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,115,50,'當日攻擊資金前十名'),Color1080FA;DRAWTEXTEX(islastbar,1,10,250,'1: '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,400,'2: '+STKNAMEE

32、X(DMvci2)+':'+numtostr(vcpvci2,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,550,'3: '+STKNAMEEX(DMvci3)+':'+numtostr(vcpvci3,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,700,'4: '+STKNAMEEX(DMvci4)+':'+numtostr(vcpvci4,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,850,'

33、;5: '+STKNAMEEX(DMvci5)+':'+numtostr(vcpvci5,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,250,'6: '+STKNAMEEX(DMvci6)+':'+numtostr(vcpvci6,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,400,'7: '+STKNAMEEX(DMvci7)+':'+numtostr(vcpvci7,2),Color0000FF;DRAWTEXTEX(isl

34、astbar,1,275,550,'8: '+STKNAMEEX(DMvci8)+':'+numtostr(vcpvci8,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,700,'9: '+STKNAMEEX(DMvci9)+':'+numtostr(vcpvci9,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,850,'10: '+STKNAMEEX(DMvci10)+':'+numtostr(vcpvci10,2),Co

35、lor0000FF;DYZB:=IF(c>0,'GGZJ.一日',IF(c<0,'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,DYZB,0,6); TMPD:=STKINDI(DDD,'GGZJ.DD',0,6); v

36、cpk:=TMPDAS; vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除當天停牌股 TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,0,1,HYs);DRAWTEXTEX(islastbar,1,650,50,'當日攻擊資金后十名'),Color00FF33;DRAWTEXTEX(islastbar,1,545,250,'1: '+STKNAMEEX(DMvci1)+':'+numtostr(vcpvci1,2),Color00FF33;DRAWTEXTEX(islastb

37、ar,1,545,400,'2: '+STKNAMEEX(DMvci2)+':'+numtostr(vcpvci2,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,550,'3: '+STKNAMEEX(DMvci3)+':'+numtostr(vcpvci3,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,700,'4: '+STKNAMEEX(DMvci4)+':'+numtostr(vcpvci4,2),Color00FF

38、33;DRAWTEXTEX(islastbar,1,545,850,'5: '+STKNAMEEX(DMvci5)+':'+numtostr(vcpvci5,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,250,'6: '+STKNAMEEX(DMvci6)+':'+numtostr(vcpvci6,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,400,'7: '+STKNAMEEX(DMvci7)+':'+numtostr

39、(vcpvci7,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,550,'8: '+STKNAMEEX(DMvci8)+':'+numtostr(vcpvci8,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,700,'9: '+STKNAMEEX(DMvci9)+':'+numtostr(vcpvci9,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,850,'10: '+STKNAMEEX(DMvci1

40、0)+':'+numtostr(vcpvci10,2),Color00FF33;DYZB4:=IF(c>0,'GGZJ.日漲幅',IF(c<0,'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); TM

41、PD:=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 KHYS<2 THEN EXIT;EXPLAIN(ISLASTBAR,'日漲跌幅領先前十五名'),Color00FFFF;EXPLAIN(ISLASTBAR,'

42、; 1: '+STKNAMEEX(DMvci1)+' '+numtostr(vcpvci1,2)+'%'),Color0000F9;EXPLAIN(ISLASTBAR and KHYS>1,' 2: '+STKNAMEEX(DMvci2)+' '+numtostr(vcpvci2,2)+'%'),Color0000F9;IF KHYS<3 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>2,' 3: '+STKNAMEEX(DMvci3)+'

43、; '+numtostr(vcpvci3,2)+'%'),Color0000F9;IF KHYS<4 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>3,' 4: '+STKNAMEEX(DMvci4)+' '+numtostr(vcpvci4,2)+'%'),Color0000F9;IF KHYS<5 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>4,' 5: '+STKNAMEEX(DMvci5)+' '+nu

44、mtostr(vcpvci5,2)+'%'),Color0000F9;IF KHYS<6 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>5,' 6: '+STKNAMEEX(DMvci6)+' '+numtostr(vcpvci6,2)+'%'),Color0000F9;IF KHYS<7 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>6,' 7: '+STKNAMEEX(DMvci7)+' '+numtostr(vcp

45、vci7,2)+'%'),Color0000F9;IF KHYS<8 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>7,' 8: '+STKNAMEEX(DMvci8)+' '+numtostr(vcpvci8,2)+'%'),Color0000F9;IF KHYS<9 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>8,' 9: '+STKNAMEEX(DMvci9)+' '+numtostr(vcpvci9,2)+&#

46、39;%'),Color0000F9;IF KHYS<10 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>9,' 10: '+STKNAMEEX(DMvci10)+' '+numtostr(vcpvci10,2)+'%'),Color0000F9;IF KHYS<11 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>10,' 11: '+STKNAMEEX(DMvci11)+' '+numtostr(vcpvci11,2)+&

47、#39;%'),Color0000F9;IF KHYS<12 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>11,' 12: '+STKNAMEEX(DMvci12)+' '+numtostr(vcpvci12,2)+'%'),Color0000F9;IF KHYS<13 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>12,' 13: '+STKNAMEEX(DMvci13)+' '+numtostr(vcpvci13,2)+&

48、#39;%'),Color0000F9;IF KHYS<14 THEN EXIT;EXPLAIN(ISLASTBAR and KHYS>13,' 14: '+STKNAMEEX(DMvci14)+' '+numtostr(vcpvci14,2)+'%'),Color0000F9;IF KHYS<15 THEN EXIT; EXPLAIN(ISLASTBAR and KHYS>14,' 15: '+STKNAMEEX(DMvci15)+' '+numtostr(vcpvci15,2)+

49、'%'),Color0000F9;IF KHYS<16 THEN EXIT; EXPLAIN(ISLASTBAR,'n日漲跌幅滯后前十名'),Color00CCFF;EXPLAIN(ISLASTBAR,' 1: '+STKNAMEEX(DMvciKHYs)+' '+numtostr(vcpvciKHYs,2)+'%'+' n 2: '+STKNAMEEX(DMvciKHYs-1)+' '+numtostr(vcpvciKHYs-1,2)+'%'+' n

50、3: '+ STKNAMEEX(DMvciKHYs-2)+' '+numtostr(vcpvciKHYs-2,2)+'%'+' n 4: '+STKNAMEEX(DMvciKHYs-3)+' '+numtostr(vcpvciKHYs-3,2)+'%'+' n 5: '+STKNAMEEX(DMvciKHYs-4)+' '+numtostr(vcpvciKHYs-4,2)+'%'+' n 6: '+STKNAMEEX(DMvciKHYs-5)+

51、' '+numtostr(vcpvciKHYs-5,2)+'%'+' n 7: '+ STKNAMEEX(DMvciKHYs-6)+' '+numtostr(vcpvciKHYs-6,2)+'%'+' n 8: '+STKNAMEEX(DMvciKHYs-7)+' '+numtostr(vcpvciKHYs-7,2)+'%'+' n 9: '+ STKNAMEEX(DMvciKHYs-8)+' '+numtostr(vcpvciKHYs

52、-8,2)+'%'+' n 10: '+ STKNAMEEX(DMvciKHYs-9)+' '+numtostr(vcpvciKHYs-9,2)+'%'),Color00A800;原文鏈接：先建立引用公式，再建立主公式板塊個股分析（引用）GGZJCC:=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);前天:

53、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;板塊個股分析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,LINETH

54、ICK0;DYZB:=IF(c>0,GGZJ.一日,IF(c<0,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,DYZB,0,6);TMPD:=STKINDI(DDD,GGZJ.DD,0,6);vcpk:=TMPDAS;vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除當天停牌股TP:=TP

55、+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,1,1,HYs);DRAWTEXTEX(islastbar,1,115,50,當日攻擊資金前十名),Color1080FA;DRAWTEXTEX(islastbar,1,10,250,1: +STKNAMEEX(DMvci1)+:+numtostr(vcpvci1,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,400,2: +STKNAMEEX(DMvci2)+:+numtostr(vcpvci2,2),Color0000FF;DRAWTEXTEX(islastbar,1,10

56、,550,3: +STKNAMEEX(DMvci3)+:+numtostr(vcpvci3,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,700,4: +STKNAMEEX(DMvci4)+:+numtostr(vcpvci4,2),Color0000FF;DRAWTEXTEX(islastbar,1,10,850,5: +STKNAMEEX(DMvci5)+:+numtostr(vcpvci5,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,250,6: +STKNAMEEX(DMvci6)+:+numtostr(vcp

57、vci6,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,400,7: +STKNAMEEX(DMvci7)+:+numtostr(vcpvci7,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,550,8: +STKNAMEEX(DMvci8)+:+numtostr(vcpvci8,2),Color0000FF;DRAWTEXTEX(islastbar,1,275,700,9: +STKNAMEEX(DMvci9)+:+numtostr(vcpvci9,2),Color0000FF;DRAWTEXTEX(islastba

58、r,1,275,850,10: +STKNAMEEX(DMvci10)+:+numtostr(vcpvci10,2),Color0000FF;DYZB:=IF(c>0,GGZJ.一日,IF(c<0,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,DYZB,0,6);TMPD:=STKINDI(DDD,GGZJ.DD,

59、0,6);vcpk:=TMPDAS;vcik:=IF(TMPDDAS=D0,TMPDAS,-1000);/去除當天停牌股TP:=TP+IF(vcik=-1000,1,0);end;PX1:=SORTPOS(vci,0,1,HYs);DRAWTEXTEX(islastbar,1,650,50,當日攻擊資金后十名),Color00FF33;DRAWTEXTEX(islastbar,1,545,250,1: +STKNAMEEX(DMvci1)+:+numtostr(vcpvci1,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,400,2: +STKNAMEEX

60、(DMvci2)+:+numtostr(vcpvci2,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,550,3: +STKNAMEEX(DMvci3)+:+numtostr(vcpvci3,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,700,4: +STKNAMEEX(DMvci4)+:+numtostr(vcpvci4,2),Color00FF33;DRAWTEXTEX(islastbar,1,545,850,5: +STKNAMEEX(DMvci5)+:+numtostr(vcpvci5,2),Color00F

61、F33;DRAWTEXTEX(islastbar,1,815,250,6: +STKNAMEEX(DMvci6)+:+numtostr(vcpvci6,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,400,7: +STKNAMEEX(DMvci7)+:+numtostr(vcpvci7,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,550,8: +STKNAMEEX(DMvci8)+:+numtostr(vcpvci8,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,700,9: +

62、STKNAMEEX(DMvci9)+:+numtostr(vcpvci9,2),Color00FF33;DRAWTEXTEX(islastbar,1,815,850,10: +STKNAMEEX(DMvci10)+:+numtostr(vcpvci10,2),Color00FF33;DYZB4:=IF(c>0,GGZJ.日漲幅,IF(c<0,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;T