INPUT: 天前(5,1,500);
VAR3:=天前;
POLYLINE(CLOSE,40),LINETHICK0,LAYER0,COLOR222222;
POLYLINE(CLOSE,30),LINETHICK0,LAYER0,COLOR222222;
POLYLINE(CLOSE,20),LINETHICK0,LAYER0,COLOR222222;
POLYLINE(CLOSE,10),LINETHICK0,LAYER0,COLOR222222;
VAR0:=BARSLAST(DISPSTATUS=1);
VAR1:=HHVALL(VAR0);
VAR2:=IF(VAR1 < 120,VAR1,0);
VAR4:=VAR1 - VAR0;
VAR5:=HHVALL(IF(VAR4=VAR3,DATE,0));
VAR6:=NUMTOSTRN(VAR3,0);
VAR7:=' ' + VAR6;
VAR8:=VAR7 + '天前';
DRAWTEXT(VAR4=VAR3,50,VAR8),LAYER0,COLORWHITE;
DRAWRECTREL(-150,1200,0,-100,1),COLORBLACK;
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800; {判断是否当天}
TB1:=BIGORDER(1,3);TB2:="DDEDATA@BIGORDER"(1,3);
TB:=IF(TODAY,TB2,TB1);{特大买单}
TS1:=BIGORDER(2,3);TS2:="DDEDATA@BIGORDER"(2,3);
TS:=IF(TODAY,TS2,TS1);{特大卖单}
DB1:=BIGORDER(1,2);DB2:="DDEDATA@BIGORDER"(1,2);
DB:=IF(TODAY,DB2,DB1);{大单买}
DS1:=BIGORDER(2,2);DS2:="DDEDATA@BIGORDER"(2,2);
DS:=IF(TODAY,DS2,DS1);{大单卖}
ZB1:=BIGORDER(1,1);ZB2:="DDEDATA@BIGORDER"(1,1);
ZB:=IF(TODAY,ZB2,ZB1);{中单买}
ZS1:=BIGORDER(2,1);ZS2:="DDEDATA@BIGORDER"(2,1);
ZS:=IF(TODAY,ZS2,ZS1);{中单卖}
VAR9:=TB * AMOUNT/10000;{特大买单W元}
VAR10:=TS * AMOUNT/10000;{特大卖单W元}
VAR11:=(DB - TB) * AMOUNT/10000;{大户买单W元}
VAR12:=(DS - TS) * AMOUNT/10000;{大户卖单W元}
VAR13:=(ZB - DB) * AMOUNT/10000;{中户买单W元}
VAR14:=(ZS - DS) * AMOUNT/10000;{中户卖单W元}
VAR15:=(1 - ZB) * AMOUNT/10000;{散户买单W元}
VAR16:=(1 - ZS) * AMOUNT/10000;{散户卖单W元}
特净:VAR9 - VAR10,LINETHICK0,PRECIS2,COLORMAGENTA;
大净:VAR11 - VAR12,LINETHICK0,PRECIS2,COLOR0048FF;
中净:VAR13 - VAR14,LINETHICK0,PRECIS2,COLORYELLOW;
小净:VAR15 - VAR16,LINETHICK0,PRECIS2,COLOR22FF26;
VAR17:=DB * AMOUNT/10000;{大单买w元}
VAR18:=DS * AMOUNT/10000;{大单卖w元}
VAR19:=VAR17 - VAR18;{大单净额}
VAR20:=IF(DISPSTATUS=2,SUM(特净,VAR3),0);
VAR21:=IF(HHVALL(VAR20) > 0,HHVALL(VAR20),LLVALL(VAR20));
DRAWTEXT(VAR4=VAR3,50,'超:' + STRRIGHT('
DRAWTEXT(VAR4=VAR3 AND VAR21 < 0,50,'' + STRRIGHT('
VAR22:=IF(DISPSTATUS=2,SUM(大净,VAR3),0);
VAR23:=IF(HHVALL(VAR22) > 0,HHVALL(VAR22),LLVALL(VAR22));
DRAWTEXT(VAR4=VAR3,47.5,'大:' + STRRIGHT('
DRAWTEXT(VAR4=VAR3 AND VAR23 < 0,47.5,'' + STRRIGHT('
VAR24:=IF(DISPSTATUS=2,SUM(中净,VAR3),0);
VAR25:=IF(HHVALL(VAR24) > 0,HHVALL(VAR24),LLVALL(VAR24));
DRAWTEXT(VAR4=VAR3,45,'中:' + STRRIGHT('
DRAWTEXT(VAR4=VAR3 AND VAR25 < 0,45,'' + STRRIGHT('
VAR26:=IF(DISPSTATUS=2,SUM(小净,VAR3),0);
VAR27:=IF(HHVALL(VAR26) > 0,HHVALL(VAR26),LLVALL(VAR26));
DRAWTEXT(VAR4=VAR3,42.5,'小:' + STRRIGHT('
DRAWTEXT(VAR4=VAR3 AND VAR27 < 0,42.5,'' + STRRIGHT('
VAR28:=ABS(VAR21) + ABS(VAR23) + ABS(VAR25) + ABS(VAR27);
VAR29:=(VAR0 - 天前)/(VAR0 + 2) * 1000;
VAR30:=IF(VAR21 > 0,VAR29 - VAR21/VAR28 * 400,VAR29);
VAR31:=IF(VAR21 < 0,VAR29 - ABS(VAR21)/VAR28 * 400,VAR29);
VAR32:=IF(VAR23 > 0,VAR29 - VAR23/VAR28 * 400,VAR29);
VAR33:=IF(VAR23 < 0,VAR29 - ABS(VAR23)/VAR28 * 400,VAR29);
VAR34:=IF(VAR25 > 0,VAR29 - VAR25/VAR28 * 400,VAR29);
VAR35:=IF(VAR25 < 0,VAR29 - ABS(VAR25)/VAR28 * 400,VAR29);
VAR36:=IF(VAR27 > 0,VAR29 - VAR27/VAR28 * 400,VAR29);
VAR37:=IF(VAR27 < 0,VAR29 - ABS(VAR27)/VAR28 * 400,VAR29);
DRAWRECTREL(VAR30,48,VAR29,35,16711900),COLORBLACK;
DRAWRECTREL(VAR31,48,VAR29,35,13107200),COLORBLACK;
DRAWRECTREL(VAR32,98,VAR29,85,16711900),COLORBLACK;
DRAWRECTREL(VAR33,98,VAR29,85,13107200),COLORBLACK;
DRAWRECTREL(VAR34,145,VAR29,133,16711900),COLORBLACK;
DRAWRECTREL(VAR35,145,VAR29,133,13107200),COLORBLACK;
DRAWRECTREL(VAR36,193,VAR29,180,16711900),COLORBLACK;
DRAWRECTREL(VAR37,193,VAR29,180,13107200),COLORBLACK;
VAR38:=AMOUNT * TB;{特大买入}
VAR39:=AMOUNT * (DB - TB);{大户买入}
VAR40:=AMOUNT * (ZB - DB);{中户买入}
VAR41:=AMOUNT * (1 - ZB);{散户买入}
VAR42:=VAR38 + VAR39 + VAR40 + VAR41;
VAR43:=AMOUNT * TS;{特大卖出}
VAR44:=AMOUNT * (DS- TS);{大户卖出}
VAR45:=AMOUNT * (ZS - DS);{中户卖出}
VAR46:=AMOUNT * (1 - ZS);{散户卖出}
VAR47:=(DB - DS) * VOL/CAPITAL * 100;
VAR48:=VAR38/VAR42;
VAR49:=VAR39/VAR42;
VAR50:=VAR40/VAR42;
VAR51:=VAR41/VAR42;
VAR52:=VAR48 * 100;
VAR53:=VAR49 * 100;
VAR54:=VAR50 * 100;
VAR55:=VAR51 * 100;
VAR56:=SUM(特净,VAR2);
VAR57:=(HHVALL(VAR56 + 特净) - LLVALL(VAR56 + 特净))/9;
VAR58:=40 - LLVALL((VAR56 + 特净)/VAR57);
VAR59:=SUM(大净,VAR2);
VAR60:=(HHVALL(VAR59 + 大净) - LLVALL(VAR59 + 大净))/9;
VAR61:=30 - LLVALL((VAR59 + 大净)/VAR60);
VAR62:=SUM(中净,VAR2);
VAR63:=(HHVALL(VAR62 + 中净) - LLVALL(VAR62 + 中净))/9;
VAR64:=20 - LLVALL((VAR62 + 中净)/VAR63);
VAR65:=SUM(小净,VAR2);
VAR66:=(HHVALL(VAR65 + 小净) - LLVALL(VAR65 + 小净))/9;
VAR67:=10 - LLVALL((VAR65 + 小净)/VAR66);
VAR68:=10/HHVALL(ABS(VAR19));
VERTLINE(VAR4=VAR3,1),LAYER0,COLORBLACK;
VERTLINE(VAR4=VAR3,2),LAYER0,COLORWHITE;
DRAWTEXT(DISPSTATUS=1,HHVALL(REF(VAR56/VAR57 + VAR58,VAR0)),'O.OO-'),LINETHICK2,LAYER0,ALIGN2,COLOR000088;
DRAWTEXT(DISPSTATUS=1,HHVALL(REF(VAR59/VAR60 + VAR61,VAR0)),'0.00-'),LINETHICK2,LAYER0,ALIGN2,COLOR000088;
DRAWTEXT(DISPSTATUS=1,HHVALL(REF(VAR62/VAR63 + VAR64,VAR0)),'0.00-'),LINETHICK2,LAYER0,ALIGN2,COLOR000088;
DRAWTEXT(DISPSTATUS=1,HHVALL(REF(VAR65/VAR66 + VAR67,VAR0)),'0.00-'),LINETHICK2,LAYER0,ALIGN2,COLOR000088;
DRAWRECTREL(1,1200,30,0,1),LAYER0,COLORBLACK;
POLYLINE(CLOSE,VAR56/VAR57 + VAR58),LAYER0,COLOR18A4FF;
STICKLINE(特净 > 0,VAR56/VAR57 + VAR58,(VAR56 + 特净)/VAR57 + VAR58,2,0),LAYER0,COLORRED;
STICKLINE(特净 < 0,VAR56/VAR57 + VAR58,(VAR56 + 特净)/VAR57 + VAR58,2,0),LAYER0,COLORCYAN;
POLYLINE(CLOSE,VAR59/VAR60 + VAR61),LAYER0,COLOR18A4FF;
STICKLINE(大净 > 0,VAR59/VAR60 + VAR61,(VAR59 + 大净)/VAR60 + VAR61,2,0),LAYER0,COLORRED;
STICKLINE(大净 < 0,VAR59/VAR60 + VAR61,(VAR59 + 大净)/VAR60 + VAR61,2,0),LAYER0,COLORCYAN;
POLYLINE(CLOSE,VAR62/VAR63 + VAR64),LAYER0,COLOR18A4FF;
STICKLINE(中净 > 0,VAR62/VAR63 + VAR64,(VAR62 + 中净)/VAR63 + VAR64,2,0),LAYER0,COLORRED;
STICKLINE(中净 < 0,VAR62/VAR63 + VAR64,(VAR62 + 中净)/VAR63 + VAR64,2,0),LAYER0,COLORCYAN;
POLYLINE(CLOSE,VAR65/VAR66 + VAR67),LAYER0,COLOR18A4FF;
STICKLINE(小净 > 0,VAR65/VAR66 + VAR67,(VAR65 + 小净)/VAR66 + VAR67,2,0),LAYER0,COLORRED;
STICKLINE(小净 < 0,VAR65/VAR66 + VAR67,(VAR65 + 小净)/VAR66 + VAR67,2,0),LAYER0,COLORCYAN;
VAR69:=SUM(VAR19,VAR2);
VAR70:=(HHVALL(VAR69) - LLVALL(VAR69))/8.5;
VAR71:=0 - LLVALL(VAR69/VAR70);
POLYLINE(CLOSE,VAR69/VAR70 + VAR71 + 0.8),LAYER0,COLOR18A4FF;
STICKLINE(VAR19 < 0,REVERSE(VAR19) * VAR68,0,3,0),COLORGREEN;
STICKLINE(VAR19 > 0,VAR19 * VAR68,0,3,0),COLORRED;
0.01,LAYER0,COLORBLACK;
DRAWFLAGTEXT(特净 > 0,35,'当日特单买入:' + NUMTOSTRN(特净,0) + '万'),COLORRED;
DRAWFLAGTEXT(特净 < 0,35,'当日特单卖出;' + NUMTOSTRN(特净,0) + '万'),COLORCYAN;
DRAWFLAGTEXT(大净 > 0,35,'当日大单买入:' + NUMTOSTRN(大净,0) + '万'),COLORRED;
DRAWFLAGTEXT(大净 < 0,35,'当日大单卖出:' + NUMTOSTRN(大净,0) + '万'),COLORCYAN;
DRAWFLAGTEXT(中净 > 0,35,'当日中单买入:' + NUMTOSTRN(中净,0) + '万'),COLORRED;
DRAWFLAGTEXT(中净 < 0,35,'当日中单卖出:' + NUMTOSTRN(中净,0) + '万'),COLORCYAN;
DRAWFLAGTEXT(小净 > 0,35,'当日小单买入:' + NUMTOSTRN(小净,0) + '万'),COLORRED;
DRAWFLAGTEXT(小净 < 0,35,'当日小单卖出:' + NUMTOSTRN(小净,0) + '万'),COLORCYAN;
DRAWFLAGTEXT(VAR19 > 0,35,'当日机构买入:' + NUMTOSTRN(VAR19,0) + '万'),COLORRED;
DRAWFLAGTEXT(VAR19 < 0,35,'当日机构卖出:' + NUMTOSTRN(VAR19,0) + '万'),COLORCYAN;
DRAWTEXTREL(28,10,'超户'),LAYER0,COLORMAGENTA;
DRAWTEXTREL(28,210,'大户'),LAYER0,COLOR0048FF;
DRAWTEXTREL(28,410,'中户'),LAYER0,COLORYELLOW;
DRAWTEXTREL(28,610,'散户'),LAYER0,COLOR22FF26;
DRAWTEXTREL(28,810,'资金'),LAYER0,COLORWHITE;
DRAWRECTREL(0,180,VAR52 * 7,142,16711935),COLORBLACK;
DRAWRECTREL(0,380,VAR53 * 7,342,255),COLORBLACK;
DRAWRECTREL(0,580,VAR54 * 7,542,65535),COLORBLACK;
DRAWRECTREL(0,780,VAR55 * 7,742,65280),COLORBLACK;
DRAWTEXTREL(VAR52 * 7 + 2,142,'' + NUMTOSTRN(VAR52,0) + '%'),LAYER0,COLORMAGENTA;
DRAWTEXTREL(VAR53 * 7 + 2,342,'' + NUMTOSTRN(VAR53,0) + '%'),LAYER0,COLOR0048FF;
DRAWTEXTREL(VAR54 * 7 + 2,542,'' + NUMTOSTRN(VAR54,0) + '%'),LAYER0,COLORYELLOW;
