分笔看盘资金进出情况尽收眼底，源码奉送a1:=BARSCOUNT(CLOSE);DRAWTEXTREL(50,10,'资金净流'),linethick2,colorYellow;DRAWTEXTREL(200,10,' 代码: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),linethick2,ColorFFFF80;a2:=DATE;a3:=(WEEKDAY);if (((BARSTATUS = 2) AND (a3 = 5)) ) Then DRAWTEXTREL(800,10,'星期五'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 4)) ) Then DRAWTEXTREL(800,10,'星期四'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 3)) ) Then DRAWTEXTREL(800,10,'星期三'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 2)) ) Then DRAWTEXTREL(800,10,'星期二'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 1)) ) Then DRAWTEXTREL(800,10,'星期一'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 6)) ) Then DRAWTEXTREL(800,10,'星期六'),linethick2,ColorFFEF40;if (((BARSTATUS = 2) AND (a3 = 0)) ) Then DRAWTEXTREL(800,10,'星期日'),linethick2,ColorFFEF40;a4:=(BUYVOL * CLOSE) / 100;a5:=SUM(a4,0);a6:=(CLOSE * SELLVOL) / 100;a7:=SUM(a6,0);a8:=a5 + a7;a9:=a5 - a7;a10:=IF(((a4 < 20) AND (a4 >= 5)),a4,0);a11:=SUM(a10,0);a12:=IF(((a6 < 20) AND (a6 >= 5)),a6,0);a13:=SUM(a12,0);a14:=IF(((a4 < 100) AND (a4 >= 20)),a4,0);a15:=SUM(a14,0);a16:=IF(((a6 < 100) AND (a6 >= 20)),a6,0);a17:=SUM(a16,0);a18:=IF((a4 >= 100),a4,0);a19:=SUM(a18,0);a20:=IF((a6 >= 100),a6,0);a21:=SUM(a20,0);a22:=IF((a4 >= 20),a4,0);a23:=SUM(a22,0);a24:=IF((a6 >= 20),a6,0);a25:=SUM(a24,0);a26:=a11 - a13;a27:=a15 - a17;a28:=a19 - a21;a29:=a23 - a25;a30:=(100 * ((SUM((IF((a4 >= 10),VOL,0)),0)) - (SUM((IF((a6 >= 10),VOL,0)),0)))) / CAPITAL;a31:=(100 * ((SUM((IF((a4 >= 20),VOL,0)),0)) - (SUM((IF((a6 >= 20),VOL,0)),0)))) / CAPITAL;a32:=(a26);a33:=(a27);a34:=(a28);a35:=(a29);a36:=350 / (MAX(ABS(a32),ABS(a33),ABS(a34),ABS(a35)));a37:=500 - (a32 * a36);a38:=500 - (a33 * a36);a39:=500 - (a34 * a36);a40:=500 - (a35 * a36);DRAWRECTREL(0,505,320,510,3289855),colorRed;DRAWRECTREL(50,a37,80,500,(IF((a32 >= 0),3289855,3342080))),colorYellow;DRAWRECTREL(130,a38,160,500,(IF((a33 >= 0),3289855,3342080))),colorYellow;DRAWRECTREL(210,a39,240,500,(IF((a34 >= 0),3289855,3342080))),colorYellow;DRAWRECTREL(290,a40,320,500,(IF((a35 >= 0),3289855,3342080))),colorYellow;DRAWTEXTREL(18,440,'中户'),ColorDDFFFF;DRAWTEXTREL(95,440,'大户'),ColorDDFFFF;DRAWTEXTREL(175,440,'机构'),ColorDDFFFF;DRAWTEXTREL(255,440,'主力'),ColorDDFFFF;a41:=(a11);a42:=(a13);a43:=(a15);a44:=(a17);a45:=(a19);a46:=(a21);a47:=(a23);a48:=(a25);a49:=700 / (MAX(a41,a42,a43,a44,a45,a46,a47,a48));a50:=940 - (a41 * a49);a51:=940 - (a42 * a49);a52:=940 - (a43 * a49);a53:=940 - (a44 * a49);a54:=940 - (a45 * a49);a55:=940 - (a46 * a49);a56:=940 - (a47 * a49);a57:=940 - (a48 * a49);DRAWRECTREL(700,a50,720,940,250),colorYellow;DRAWRECTREL(720,a51,740,940,6617600),colorYellow;DRAWRECTREL(780,a52,800,940,250),colorYellow;DRAWRECTREL(800,a53,820,940,6617600),colorYellow;DRAWRECTREL(860,a54,880,940,250),colorYellow;DRAWRECTREL(880,a55,900,940,6617600),colorYellow;DRAWRECTREL(940,a56,960,940,250),colorYellow;DRAWRECTREL(960,a57,980,940,6617600),colorYellow;DRAWTEXTREL(2,930,'主力净流:'+NUMTOSTR(a29)+'万'+' 机构净流:'+NUMTOSTR(a28)+'万'+' 大户净流:'+NUMTOSTR(a27)+'万'+' 中户净流:'+NUMTOSTR(a26)+'万'),colorWhite;DRAWTEXTREL(2,820,'控盘系数:'+NUMTOSTR(a30)+'%'+' 主力增仓:'+NUMTOSTR(a31)+'%'),linethick2,colorYellow;DRAWTEXTREL(940,965,'主力'),ColorDDFFFF;DRAWTEXTREL(865,965,'机构'),ColorDDFFFF;DRAWTEXTREL(785,965,'大户'),ColorDDFFFF;DRAWTEXTREL(705,965,'中户'),ColorDDFFFF;DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0)); |
