大智慧分时超赢A分时主图.叠加超赢 源码

{分时超赢A-(分时主图.叠加超赢)}
DRAWTEXTABS(0,5,'《夏卫东-自编》'),COLOR0000FF;
{叠加大盘线}
TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','分超引用.昨收#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','分超引用.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLORFF00FF,LINETHICK2,LAYER0;
{分时线}
最新:C,COLORWHITE,LINETHICK2,PRECIS2,LAYER0;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
均线:IF(BB=0,MA(C,BARSCOUNT(C)),AA),COLOR00FFFF,LINETHICK2,PRECIS2;
{分时超赢}
ZLLR:=SUM((AMOUNT*(DYNAINFO(95)+DYNAINFO(94))/10000),0);
ZLLC:=SUM((AMOUNT*(DYNAINFO(98)+DYNAINFO(97))/10000),0);
主净:ZLLR-ZLLC,COLOR00FFFF,LINETHICK0,PRECIS2;
TDLR:=SUM((AMOUNT*DYNAINFO(95)/10000),0);
TDLC:=SUM((AMOUNT*DYNAINFO(98)/10000),0);
超净:TDLR-TDLC,COLORFF00FF,LINETHICK0,PRECIS2;
DDLR:=SUM((AMOUNT*DYNAINFO(94)/10000),0);
DDLC:=SUM((AMOUNT*DYNAINFO(97)/10000),0);
大净:DDLR-DDLC,COLOR00FF00,LINETHICK0,PRECIS2;
ZDLR:=SUM((AMOUNT*DYNAINFO(93)/10000),0);
ZDLC:=SUM((AMOUNT*DYNAINFO(96)/10000),0);
中净:ZDLR-ZDLC,COLORB5B5B5,LINETHICK0,PRECIS2;
XDLR:=IF(AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93)))/10000),0),0);
XDLC:=IF(AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96)))/10000),0),0);
散净:XDLR-XDLC,COLORFF9911,LINETHICK0;
外盘:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
内盘:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
主动率:=(外盘-内盘)/(内盘+外盘)*100;
单数比:=DYNAINFO(92)/DYNAINFO(91);
通吃率:= ((DYNAINFO(95)+DYNAINFO(94))-(DYNAINFO(98)+DYNAINFO(97)))*VOL/VOL*100;
DRAWTEXTABS(440,5,'主动率:'+ NUMTOSTRN(主动率,2)+' 单数比:'+ NUMTOSTRN(单数比,2)+' 通吃率:'+ NUMTOSTRN(通吃率,2)),COLOR00FFFF;
DRAWTEXTABS(110,5,'上涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+' 家'),COLOR0000FF;
DRAWTEXTABS(210,5,'下跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+' 家'),COLOR00FF00;
DRAWTEXTABS(310,5,'平盘家数:'+NUMTOSTRN(DYNAINFO(71),0)+' 家'),COLORFFFFFF;
{五分钟资金趋势}
主5:=主净-REF(主净,5);
超5:=超净-REF(超净,5);
大5:=大净-REF(大净,5);
中5:=中净-REF(中净,5);
散5:=散净-REF(散净,5);
DRAWTEXTABS(110,20,'五分钟各单净买(万):'),COLORFFFF00;
DRAWTEXTABS(230,20,'主力:'+ NUMTOSTRN(主5,2)),COLOR00FFFF;
DRAWTEXTABS(320,20,'超大:'+ NUMTOSTRN(超5,2)),COLORFF00FF;
DRAWTEXTABS(410,20,'大户:'+ NUMTOSTRN(大5,2)),COLOR00FF00;
DRAWTEXTABS(500,20,'中户:'+ NUMTOSTRN(中5,2)),COLORB5B5B5;
DRAWTEXTABS(590,20,'散户:'+ NUMTOSTRN(散5,2)),COLORFF9911;
{画柱图};
最大值:=400/(MAX(ZLLR,ZLLC,TDLR,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,散净,中净,大净,超净,主净));
主力买:=600-(ZLLR*最大值);
主力卖:=600-(ZLLC*最大值);
超大买:=600-(TDLR*最大值);
超大卖:=600-(TDLC*最大值);
大户买:=600-(DDLR*最大值);
大户卖:=600-(DDLC*最大值);
中户买:=600-(ZDLR*最大值);
中户卖:=600-(ZDLC*最大值);
散户买:=600-(XDLR*最大值);
散户卖:=600-(XDLC*最大值);
散户净买:=600-(ABS(散净)*最大值);
中户净买:=600-(ABS(中净)*最大值);
大户净买:=600-(ABS(大净)*最大值);
超大净买:=600-(ABS(超净)*最大值);
主力净买:=600-(ABS(主净)*最大值);
{各单增减比例显示}
ZLB:=SUM((ORDERVOL(1,2)/CAPITAL*100),0);
ZLS:=SUM((ORDERVOL(2,2)/CAPITAL*100),0);
主增:=ZLB-ZLS;
TDB:=SUM((ORDERVOL(1,3)/CAPITAL*100),0);
TDS:=SUM((ORDERVOL(2,3)/CAPITAL*100),0);
超增:=TDB-TDS;
DDB:=SUM(((ORDERVOL(1,2)/CAPITAL*100-ORDERVOL(1,3)/CAPITAL*100)),0);
DDS:=SUM(((ORDERVOL(2,2)/CAPITAL*100-ORDERVOL(2,3)/CAPITAL*100)),0);
大增:=DDB-DDS;
ZDB:=SUM(((ORDERVOL(1,1)/CAPITAL*100-ORDERVOL(1,2)/CAPITAL*100)),0);
ZDS:=SUM(((ORDERVOL(2,1)/CAPITAL*100-ORDERVOL(2,2)/CAPITAL*100)),0);
中增:=ZDB-ZDS;
XDB:=SUM(((VOL-ORDERVOL(1,1))/CAPITAL*100),0);
XDS:=SUM(((VOL-ORDERVOL(2,1))/CAPITAL*100),0);
散增:=XDB-XDS;
DRAWRECTREL(330,主力买,350,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(350,主力卖,370,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(370,主力净买,390,610,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(445,超大买,465,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(465,超大卖,485,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(485,超大净买,505,610,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(560,大户买,580,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(580,大户卖,600,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(600,大户净买,620,610,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(675,中户买,695,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(695,中户卖,715,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(715,中户净买,735,610,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(790,散户买,810,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(810,散户卖,830,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(830,散户净买,850,610,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL( 330,620,390,635,RGB(255,255,0));
DRAWRECTREL( 445,620,505,635,RGB(255,0,255));
DRAWRECTREL( 560,620,620,635,RGB(0,200,0));
DRAWRECTREL( 675,620,735,635,RGB(200,200,200));
DRAWRECTREL( 790,620,850,635,RGB(0,0,200));
DRAWTEXTREL(310,530,'主'),ColorDDFFFF;
DRAWTEXTREL(310,600,'力'),ColorDDFFFF;
DRAWTEXTREL(425,530,'超'),ColorDDFFFF;
DRAWTEXTREL(425,600,'大'),ColorDDFFFF;
DRAWTEXTREL(540,530,'大'),ColorDDFFFF;
DRAWTEXTREL(540,600,'户'),ColorDDFFFF;
DRAWTEXTREL(655,530,'中'),ColorDDFFFF;
DRAWTEXTREL(655,600,'户'),ColorDDFFFF;
DRAWTEXTREL(770,530,'散'),ColorDDFFFF;
DRAWTEXTREL(770,600,'户'),ColorDDFFFF;
DRAWTEXTREL(290,660,'买入'),colorred;
DRAWTEXTREL(290,720,'卖出'),Color00FF00;
DRAWTEXTREL(290,780,'净买'),COLOR1199FF;
DRAWTEXTREL(290,830,'增减'),COLORFFFF00;
DRAWTEXTREL(330,660,NUMTOSTRN(ZLLR,2)),colorred;
DRAWTEXTREL(330,720,NUMTOSTRN(ZLLC,2)),COLOR00FF00;
DRAWTEXTREL(330,780,NUMTOSTRN(主净,2)),COLOR1199FF;
DRAWTEXTREL(330,830,NUMTOSTRN(主增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(445,660,NUMTOSTRN(TDLR,2)),colorred;
DRAWTEXTREL(445,720,NUMTOSTRN(TDLC,2)),COLOR00FF00;
DRAWTEXTREL(445,780,NUMTOSTRN(超净,2)),COLOR1199FF;
DRAWTEXTREL(445,830,NUMTOSTRN(超增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(560,660,NUMTOSTRN(DDLR,2)),colorred;
DRAWTEXTREL(560,720,NUMTOSTRN(DDLC,2)),COLOR00FF00;DRAWTEXTREL(560,780,NUMTOSTRN(大净,2)),COLOR1199FF;
DRAWTEXTREL(560,830,NUMTOSTRN(大增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(675,660,NUMTOSTRN(ZDLR,2)),colorred;
DRAWTEXTREL(675,720,NUMTOSTRN(ZDLC,2)),COLOR00FF00; DRAWTEXTREL(675,780,NUMTOSTRN(中净,2)),COLOR1199FF;
DRAWTEXTREL(675,830,NUMTOSTRN(中增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(790,660,NUMTOSTRN(XDLR,2)),colorred;
DRAWTEXTREL(790,720,NUMTOSTRN(XDLC,2)),COLOR00FF00;
DRAWTEXTREL(790,780,NUMTOSTRN(散净,2)),COLOR1199FF;
DRAWTEXTREL(790,830,NUMTOSTRN(散增,2)+'%'),COLORFFFF00;