DRAWTEXTABS(5,110,'提示:使用免FEI登陆用户因为没'),COLORRED,linethick0;
DRAWTEXTABS(5,125,'L2数据的实时数据由于网络延迟'),COLORRED,linethick0;
DRAWTEXTABS(5,140,'可能有所出入,早盘差别经常太'),COLORRED,linethick0;
DRAWTEXTABS(5,155,'大,建议午盘使用准确性比较大'),COLORRED,linethick0;
{寂寞线}
VAR0:=BKNAME;
DRAWTEXTABS(10,2,STKLABEL + ' ' + STKNAME + ' ' + VAR0),COLORYELLOW;
VAR1:='◆ 大事提醒 ◆ ';
VAR2:='时间';
VAR3:=F10FIND(VAR2,F10FIND(VAR1,1)) + 80;
DRAWTEXTABS(0,25,'' + F10TEXT(VAR3,80)),COLORYELLOW;
VAR4:='时间 ';
VAR5:=F10FIND(VAR4,F10FIND(VAR1,1)) + 135;
DRAWTEXTABS(336,25,'' + F10TEXT(VAR5,28)),COLORYELLOW;
VAR6:=EMA(CLOSE,7);
VAR7:=EMA(CLOSE,21);
STICKLINE(CLOSE >= OPEN,CLOSE,OPEN,8,0),COLOR000055;
STICKLINE(CLOSE >= OPEN,CLOSE,OPEN,6.5,0),COLOR000075;
STICKLINE(CLOSE >= OPEN,CLOSE,OPEN,5,0),COLOR000095;
STICKLINE(CLOSE >= OPEN,CLOSE,OPEN,3.5,0),COLOR0000B5;
STICKLINE(CLOSE >= OPEN,CLOSE,OPEN,2,0),COLOR0000D5;
STICKLINE(CLOSE >= OPEN,HIGH,LOW,0.5,0),COLOR0000F5;
STICKLINE(CLOSE < OPEN,CLOSE,OPEN,8,0),COLOR303000;
STICKLINE(CLOSE < OPEN,CLOSE,OPEN,6.5,0),COLOR404000;
STICKLINE(CLOSE < OPEN,CLOSE,OPEN,5,0),COLOR505000;
STICKLINE(CLOSE < OPEN,CLOSE,OPEN,3.5,0),COLOR606000;
STICKLINE(CLOSE < OPEN,CLOSE,OPEN,2,0),COLOR707000;
STICKLINE(CLOSE < OPEN,HIGH,LOW,0.5,0),COLOR808000;
DRAWTEXTREL(800,20,STKLABEL+' '+STKNAME),LINETHICK1,ColorFFFF80;
VAR8:=VAR7;
PARTLINE(VAR8,VAR8 > REF(VAR8,1),RGB(255,0,0),VAR8 < REF(VAR8,1),RGB(0,255,0),1,RGB(0,0,255)),LINETHICK2;
总股本(亿):FINANCE2(35)/10000,LINETHICK0,COLORYELLOW;
流通(亿):FINANCE2(37)/10000,LINETHICK0,COLORWHITE;
VAR9:=CROSS(VAR6,VAR7);
DRAWICON(VAR9,LOW * 0.99,7),ALIGN1;
VAR10:=CROSS(VAR7,VAR6);
DRAWICON(VAR10,HIGH * 1.01,8),ALIGN1;
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;
AODAY:=bigorder(1,1)=0 and bigorder(2,1)=0;
ZDZR:=selfdata('中单买入');
ZDZC:=selfdata('中单卖出');
ZDDR:=selfdata('大单买入');
ZDDC:=selfdata('大单卖出');
ZDTR:=selfdata('特大买入');
ZDTC:=selfdata('特大卖出');
SSTR:=IF(AODAY,"DDE@BIGORDER"(1,3),bigorder(1,3));
SSTC:=IF(AODAY,"DDE@BIGORDER"(2,3),bigorder(2,3));
SSDR:=IF(AODAY,("DDE@BIGORDER"(1,2)-"DDE@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
SSDC:=IF(AODAY,("DDE@BIGORDER"(2,2)-"DDE@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));
SSZR:=IF(AODAY,("DDE@BIGORDER"(1,1)-"DDE@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)));
SSZC:=IF(AODAY,("DDE@BIGORDER"(2,1)-"DDE@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)));
SZZR:=IF(AODAY,ZDZR,(bigorder(1,1)-bigorder(1,2)));
SZZC:=IF(AODAY,ZDZC,(bigorder(2,1)-bigorder(2,2)));
SZDR:=IF(AODAY,ZDDR,(bigorder(1,2)-bigorder(1,3)));
SZDC:=IF(AODAY,ZDDC,(bigorder(2,2)-bigorder(2,3)));
SZTR:=IF(AODAY,ZDTR,bigorder(1,3));
SZTC:=IF(AODAY,ZDTC,bigorder(2,3));
ZDLR:=IF(TODAY,IF(SSZR=0,SZZR,SSZR),SZZR);
ZDLC:=IF(TODAY,IF(SSZC=0,SZZC,SSZC),SZZC);
DDLR:=IF(TODAY,IF(SSDR=0,SZDR,SSDR),SZDR);
DDLC:=IF(TODAY,IF(SSDC=0,SZDC,SSDC),SZDC);
TDLR:=IF(TODAY,IF(SSTR=0,SZTR,SSTR),SZTR);
TDLC:=IF(TODAY,IF(SSTC=0,SZTC,SSTC),SZTC);
XDLR:=1-(ZDLR+DDLR+TDLR);
XDLC:=1-(ZDLC+DDLC+TDLC);
ZLLR:=TDLR+DDLR;
ZLLC:=TDLC+DDLC;
XDJL:=(XDLR-XDLC);
ZDJL:=(ZDLR-ZDLC);
DDJL:=(DDLR-DDLC);
TDJL:=(TDLR-TDLC);
ZLJL:=(ZLLR-ZLLC);
VAR25:=(XDLR-XDLC)*AMOUNT/10000;
VAR26:=(ZDLR-ZDLC)*AMOUNT/10000;
VAR27:=(DDLR-DDLC)*AMOUNT/10000;
VAR28:=(TDLR-TDLC)*AMOUNT/10000;
VAR32:=(ZLLR-ZLLC)*AMOUNT/10000;
DRAWRECTABS(30,15,80,30,1),COLOR808000;
DRAWRECTABS(80,15,130,30,1),COLOR008080;
DRAWRECTABS(80,17,IF(30 + VAR32/100 <= 100,80 + VAR32/100,100),28,1710731),COLOR1A1A8B;
DRAWRECTABS(80,19,IF(30 + VAR32/100 <= 100,80 + VAR32/100,100),26,2500301),COLOR2626CD;
DRAWRECTABS(80,21,IF(30 + VAR32/100 <= 100,80 + VAR32/100,100),24,2895086),COLOR2C2CEE;
DRAWRECTABS(80,23,IF(30 + VAR32/100 <= 100,80 + VAR32/100,100),22,3158271),COLOR3030FF;
DRAWTEXTABS(5,15,'主力 '),COLORRED;
DRAWTEXTABS(140,15,NUMTOSTRN(VAR32,2) + '万元'),COLORRED;
DRAWRECTABS(30,32,80,47,1),COLOR808000;
DRAWRECTABS(80,32,130,47,1),COLOR008080;
DRAWRECTABS(80,34,IF(30 + VAR28/100 <= 100,80 + VAR28/100,100),45,5245579),COLORMAGENTA;
DRAWRECTABS(80,36,IF(30 + VAR28/100 <= 100,80 + VAR28/100,100),43,7737549),COLORMAGENTA;
DRAWRECTABS(80,38,IF(30 + VAR28/100 <= 100,80 + VAR28/100,100),41,8983278),COLORMAGENTA;
DRAWRECTABS(80,40,IF(30 + VAR28/100 <= 100,80 + VAR28/100,100),39,9639167),COLORMAGENTA;
DRAWTEXTABS(5,33,'特户 '),COLORMAGENTA;
DRAWTEXTABS(140,33,NUMTOSTRN(VAR28,2) + '万元'),COLORMAGENTA;
DRAWRECTABS(30,50,80,65,1),COLOR808000;
DRAWRECTABS(80,50,130,65,1),COLOR008080;
DRAWRECTABS(80,52,IF(30 + VAR27/100 <= 100,80 + VAR27/100,130),63,23179),COLOR005A8B;
DRAWRECTABS(80,54,IF(30 + VAR27/100 <= 100,80 + VAR27/100,130),61,34253),COLOR0085CD;
DRAWRECTABS(80,56,IF(30 + VAR27/100 <= 100,80 + VAR27/100,130),59,39662),COLOR009AEE;
DRAWRECTABS(80,58,IF(30 + VAR27/100 <= 100,80 + VAR27/100,130),57,42495),COLOR00A5FF;
DRAWTEXTABS(5,51,'大户 '),COLORYELLOW;
DRAWTEXTABS(140,51,NUMTOSTRN(VAR27,2) + '万元'),COLORYELLOW;
DRAWRECTABS(30,68,80,83,1),COLOR808000;
DRAWRECTABS(80,68,130,83,1),COLOR008080;
DRAWRECTABS(80,70,IF(30 + VAR26/100 <= 100,80 + VAR26/100,130),81,3816075),COLOR3A3A8B;
DRAWRECTABS(80,72,IF(30 + VAR26/100 <= 100,80 + VAR26/100,130),79,5592525),COLOR5555CD;
DRAWRECTABS(80,74,IF(30 + VAR26/100 <= 100,80 + VAR26/100,130),77,6513646),COLOR6363EE;
DRAWRECTABS(80,76,IF(30 + VAR26/100 <= 100,80 + VAR26/100,130),75,6974207),COLOR6A6AFF;
DRAWTEXTABS(5,69,'中户 '),COLOR8080FF;
DRAWTEXTABS(140,69,NUMTOSTRN(VAR26,2) + '万元'),COLOR8080FF;
DRAWRECTABS(30,86,80,101,1),COLOR808000;
DRAWRECTABS(80,86,130,101,1),COLOR008080;
DRAWRECTABS(80,88,IF(30 + VAR25/100 <= 100,80 + VAR25/100,130),99,9147648),COLOR8B8600;
DRAWRECTABS(80,90,IF(30 + VAR25/100 <= 100,80 + VAR25/100,130),97,13485312),COLOR8B8600;
DRAWRECTABS(80,92,IF(30 + VAR25/100 <= 100,80 + VAR25/100,130),95,15656192),COLOR8B8600;
DRAWRECTABS(80,94,IF(30 + VAR25/100 <= 100,80 + VAR25/100,130),93,16774400),COLOR8B8600;
DRAWTEXTABS(5,87,'散户 '),COLOR8B8600;
DRAWTEXTABS(140,87,NUMTOSTRN(VAR25,2) + '万元'),COLOR8B8600;
|